Note: The other languages of the website are Google-translated. Back to English

Comment clignoter ou flasher le texte de la cellule spécifiée dans Excel?

Pour rendre une certaine cellule exceptionnelle dans votre feuille de calcul, que diriez-vous de faire clignoter le texte de cette cellule? Cet article vous montrera la méthode de clignotement du texte d'une cellule spécifiée dans Excel.

Texte clignotant ou clignotant de la cellule spécifiée avec le code VBA


Texte clignotant ou clignotant de la cellule spécifiée avec le code VBA

Veuillez procéder comme suit pour faire clignoter le texte d'une cellule spécifiée dans Excel.

1. presse autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Ensuite, copiez et collez le code suivant dans la fenêtre Code.

Code VBA: texte clignotant de la cellule spécifiée dans Excel

Sub StartBlink()
'Updated by ExtendOffice 20181010
    Dim xCell As Range
    Dim xTime As Variant
      On Error Resume Next
    Set xCell = Range("Sheet2!A1")
  On Error Resume Next
   
        If xCell.Font.Color = vbRed Then
            xCell.Font.Color = vbWhite
        Else
            xCell.Font.Color = vbRed
        End If
    xTime = Now + TimeSerial(0, 0, 1)
    Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True
End Sub

Notes: dans ce code VBA, Sheet2 et A1 indiquent que le texte de la cellule A1 de Sheet2 clignotera dans le classeur actuel.

3. appuie sur le autre + Q touches simultanément pour fermer le Microsoft Visual Basic pour applications fenêtre.

Vous avez maintenant besoin d'un bouton pour démarrer et arrêter le clignotement.

4. Cliquez Développeur > insérer > Bouton (contrôle de formulaire). Voir la capture d'écran:

5. Dessinez un bouton dans votre feuille de calcul, puis un Attribuer une macro boîte de dialogue apparaît, veuillez cliquer DémarrerBlink à l' Macro prénom , puis cliquez sur le OK bouton. Voir la capture d'écran:

6. Cliquez avec le bouton droit sur le bouton inséré et cliquez sur Éditer le texte dans le menu contextuel. Puis changez le texte du bouton en le texte dont vous avez besoin, par exemple Démarrer / Arrêter le clignotement.

Désormais, en cliquant sur le bouton, le texte de la cellule A1 commence à clignoter. Et en cliquant à nouveau sur le bouton, le texte de la cellule A1 cesse de clignoter.


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Commentaires (18)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Ce code n'arrêtera pas de clignoter, il reste bloqué. Qu'est-ce que je fais mal?
Ken
Ce commentaire a été minimisé par le modérateur sur le site
Ce texte clignotant peut-il être appliqué à une condition. c'est-à-dire que si une date est atteinte ou approche sur une feuille de calcul, une cellule sur une feuille de couverture/menu clignote
Geoff Culbertson
Ce commentaire a été minimisé par le modérateur sur le site
Comment peut-il faire clignoter une cellule aléatoire dans une certaine plage ?
Adam
Ce commentaire a été minimisé par le modérateur sur le site
Travailler... Super
Rafi
Ce commentaire a été minimisé par le modérateur sur le site
Comment puis-je inclure ce code dans ce qui suit afin que je n'aie pas besoin de boutons mais que le clignotement démarre automatiquement à l'ouverture du classeur?

Sous-carnet de travail privé_Open ()

' code ici

End Sub
Dayle
Ce commentaire a été minimisé par le modérateur sur le site
Salut Dayle,
Veuillez mettre ce code dans la fenêtre ThisWorkbook.

'Mettre dans la fenêtre "Ce classeur"
Sous-carnet de travail privé_Open ()
StarBlink
End Sub

Mettez le code ci-dessous dans la fenêtre du module. Et puis enregistrez le classeur en tant que classeur Excel prenant en charge les macros. J'espère que je peux aider. Merci pour votre commentaire.

'Commence à clignoter
Sous StarBlink()
Dim xCell As Range
Dim xTime comme variante
Définir xCell = Range("A1")
Avec ThisWorkbook.Worksheets("Sheet1").Range("A1").Font
Si xCell.Font.Color = vbRed Alors
xCell.Font.Color = vbWhite
autre
xCell.Font.Color = vbRed
Si fin
Terminer par
xHeure = Maintenant + HeureSerial(0, 0, 1)
Application.OnTime xTime, "" & ThisWorkbook.Name & "!StarBlink", , Vrai
End Sub
'Arrête de clignoter
Sous StopBlink()
xHeure = Maintenant + HeureSerial(0, 0, 1)
Application.OnTime EarlyTime:=xTime, Procedure:="" & ThisWorkbook.Name & "!StarBlink", Schedule:=False
End Sub
cristal
Ce commentaire a été minimisé par le modérateur sur le site
Hi,
cela fonctionne bien, mais lorsque je protège ma feuille, le clignotement ne fonctionne pas et affiche le message de débogage.
Rachid Imam
Ce commentaire a été minimisé par le modérateur sur le site
Bonne journée,
Veuillez essayer le code suivant.

Sous StartBlink()
Dim xCell As Range
Dim xTime comme variante
On Error Resume Next
Définir xCell = Range("A1")
On Error Resume Next

Si xCell.Font.Color = vbRed Alors
xCell.Font.Color = vbWhite
autre
xCell.Font.Color = vbRed
Si fin
xHeure = Maintenant + HeureSerial(0, 0, 1)
Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , Vrai
End Sub
cristal
Ce commentaire a été minimisé par le modérateur sur le site
Travail. bon
Mais après avoir protégé ma feuille LOCK & Hidden (sauf la cellule clignotante), cela ne fonctionne pas.
Quelqu'un plz m'aider à résoudre ce problème.
Compagnie Al Assail
Ce commentaire a été minimisé par le modérateur sur le site
MANTEB GAN
SUNARYANTO
Ce commentaire a été minimisé par le modérateur sur le site
Comment puis-je changer cela en feuille 1?
Sam
Ce commentaire a été minimisé par le modérateur sur le site
Salut Sam,
Si vous souhaitez faire clignoter la cellule A1 dans Sheet1 ou une autre feuille de calcul spécifique, veuillez ajouter "Sheet1!" ou un autre nom de feuille de calcul avant l'adresse de la cellule. Voir la ligne de code ci-dessous :

Set xCell = Range("Feuille1!A1")
cristal
Ce commentaire a été minimisé par le modérateur sur le site
Comment puis-je mettre une condition pour faire clignoter certaines cellules si sa valeur est inférieure à une limite, disons inférieure à 30, sans utiliser le bouton. De plus, je vais utiliser une feuille protégée. Merci d'avance pour votre aide.
Baburaj KK
Ce commentaire a été minimisé par le modérateur sur le site
salut, j'ai besoin d'aide dans les feuilles de google ..

J'ai besoin qu'une ligne entière clignote si F3: F1001 contient le "STAT". la ligne entière doit être en orange mais aussi clignoter jusqu'à ce que la case à cocher de la colonne W3:W1001 soit cochée.

c'est possible? pouvez-vous aider? s'il vous plaiteeeeeeeeeeee
mekka
Ce commentaire a été minimisé par le modérateur sur le site
Salut Mecca,
Désolé, je ne peux pas vous aider. Merci pour votre commentaire.
cristal
Ce commentaire a été minimisé par le modérateur sur le site
quand protéger la feuille ce code ne fonctionne pas
Shreenivas AK
Ce commentaire a été minimisé par le modérateur sur le site
Ca ne fonctionne pas,

S'il vous plaît aider
Connie
Ce commentaire a été minimisé par le modérateur sur le site
comment faire clignoter une cellule spécifique contenant uniquement du texte spécifique?
chalim
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0  Personnages
Emplacements suggérés