Faire clignoter les cellules vides

[Gregory76]

Bonjour le forum,

Je suis plus que débutant sous Excel et j'aurais besoin d'un coup de main pour faire clignoter des cellules.

Je m'explique : J'ai une colonne (A1:A24) dont chaque ligne doit être renseignée à l'aide d'un menu déroulant (fait par Validation). Je voudrais qu'à l'aide d'un bouton "Vérification de la grille", on puisse faire clignoter, quelques instants, les cellules qui n'ont pas été renseignées. Le clignotement des cellules a pour but d'alerter l'utilisateur qu'il a oublié de remplir certaines informations.

Merci d'avance.

 

[Creepy]

Re : Faire clignoter les cellules vides

Bonjour le Forum, Grogory76,

Regarde le fichier en pièce jointe, je pense que cela devrait te convenir.

Ce n'est pas un clignotement à proprement parler mais ca attire bien l'oeil je trouve.

A+

Creepy

 

[Gregory76]

Re : Faire clignoter les cellules vides

Merci Creepy, effectivement ça attire bien l'oeil, et c'est tout à fait ce qu'il me fallait !!!!!!

 

[Gregory76]

Re : Faire clignoter les cellules vides

Je reviens de nouveau vers vous parce que j'ai un souci avec la macro que Creepy m'a proposé !!!!

Je n'arrive à modifier les cellules où cette macro est affecté. Dans le code, il y a des boucles mais les lignes et les colonnes ne sont pas mentionnées. Je voudrais appliquer cette macro à plusieurs tableaux, est-il possible de modifier facilement le code pour que je puisse l'appliquer à n'importe quelle ligne et colonne de mon fichier ?

Quelqu'un peut-il m'aider ?

 

[Pyrof]

Re : Faire clignoter les cellules vides

Bonjour,

voici la macro modifée

Private Sub CommandButton1_Click()
Dim Boucle As Integer, Boucle2 As Integer, Boucle3 As Long
ligne_deb = 10
colonne = 4
ligne_fin = 24
For Boucle = ligne_deb To ligne_fin Step 1
If Cells(Boucle, colonne).Value = "" Then
For Boucle2 = 1 To 8 Step 1
Cells(Boucle, colonne).Interior.ColorIndex = 6
Cells(Boucle, colonne).Interior.Pattern = xlSolid
For Boucle3 = 1 To 1000000 Step 1
Next Boucle3
Cells(Boucle, colonne).Interior.ColorIndex = xlNone
Next Boucle2
End If
Next
End Sub


il te faut modifier la valeur des variables ligne_deb, ligne_fin et colonne

 

[Gregory76]

Re : Faire clignoter les cellules vides

Merci pour ton aide Pyrof, c'est parfait !!!!!!!!!