Cellule suivante

Résolu
mic6259 Messages postés 342 Date d'inscription   Statut Membre Dernière intervention   -  
 mic6259 -

Bonjour,

Quand on clic par exemple sur le bouton vert, affiche la première cellule verte, serait-il possible lorsque l'on clic une deuxième fois affiche la seconde cellule verte et ainsi de suite. Même chose pour la couleur bleu.   

Merci beaucoup

https://www.cjoint.com/c/MGjmAQ1mK3N

1 réponse

via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 

Bonjour

Modifie tes macros ainsi :

Sub Recherche_Couleur_Bleu()
Range("E2") = Range("E2") + 1
Dim Plage As Range, i&
    Set Plage = Range("a2:a250")
    For i = 1 To Plage.Count
         If Plage(i).DisplayFormat.Interior.ColorIndex = 22 Then plus = plus + 1
        If plus = Range("E2") Then Plage(i).Select: Exit Sub
    Next i
End Sub

Sub Recherche_Couleur_Vert()
Range("D2") = Range("D2") + 1
Dim Plage As Range, i&
    Set Plage = Range("a2:a250")
    For i = 1 To Plage.Count
        If Plage(i).DisplayFormat.Interior.ColorIndex = 4 Then plus = plus + 1
        If plus = Range("D2") Then Plage(i).Select: Exit Sub
    Next i
End Sub

Cdlmnt

Via


0
mic6259
 

Super ça marche 

Merci beaucoup via

Cordialement 

0