pour Les Pros De La Macros

Philo à dit:

Bonjour je voudrais savoir si il existe une macro qui me permeterais de mettre un "X" dans la colonne J et de faire clignoter la colonne A

Cliquez pour agrandir...

Sub test()
Dim X As Long
Dim Y As Integer
X = Selection.Row
Range("B" & X) = "X"
For Y = 1 To 6
    If Y Mod 2 = 0 Then
        Range("A" & X).Interior.ColorIndex = 3
    Else
        Range("A" & X).Interior.ColorIndex = 4
    End If
    Application.Wait (Now + TimeValue("0:00:01"))
Next Y
Range("A" & X).Interior.ColorIndex = xlNone
End Sub

Philo à dit:

merci pour cette reponse qui fonctionne
Mais le petit souci c'est si je met un "X" dans une cellule J7,J8,J9,J19,ETC......
est-il possile de faire clignoter les cellule A7,A8,A9,A19,Etc.......
et si par exemple je retire le "X" de J8 les autres cellule devrait continuer a clignoter
le probleme parait compliquer
vu que mon tableau Se situe en A7:J1000
dans la colonne A il y a par exemple
A7 : Papa a Faim
A8 : Maman Fait La Vaiselle
A9 : Tonoton Fait La sieste
A19 : Tata VA Chez Le Coiffeur

Cliquez pour agrandir...

Philo à dit:

Votre Exemple Marche tres Bien, mais quand je veux renomer les onglets cela ne marche plus (Onglets Feuil1 en DVDThéque)
quel est a votre avis la manipulation a faire
merci de me repondre

Cliquez pour agrandir...

Philo à dit:

Sur t'on expemble de clignotement quand je veux renomer la feuille1 en DVDthéque la macro ne marche plus, et quand je veux la recopier dans mon fichier excel cela ne marche pas non plus. C'est peut-être normal je suis un vrai petit debutant dans les macros et le VBA

Cliquez pour agrandir...