Cellule suivante Résolu/Fermé

Question

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

via55 · Answer

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

Cellule suivante

1 réponse

Discussions similaires