rechercher Couleur cellule avec un bouton

[steph57]

Bonjour

j'aimerais faire une macro,pour rechercher une couleur de cellule.
Par ex dans la colonne 3 en c10-c15-c50 la couleur de cellule est rouge(3),a l'aide d'un bouton de commande suivant
j'aimerais a chaque fois que j'appui dessus la position se place sur la cellule en rouge

Pour la recherche de mot j'ai fait cette macro pour la couleur je calle,merci de votre aide

Sub Recherche_Couleur_Rouge()
i = 15
While Cells(i, 1) <> ""
commande = Range("a8") & "00" & i - 14

Set result = Range("c15:c5000").Find(What:=commande, LookIn:=xlValues)
If result Is Nothing Then
MsgBox "Non trouvé"
Else
'selectionne la commande et les colonnes a coté
Range(result, result.End(xlToRight)).Select
End If

i = i + 1
Wend

End Sub

 

[jpb388]

Re : rechercher Couleur cellule avec un bouton

Bonjour à tous
exemple

Sub Recherche_Couleur_Rouge()
Dim Plage As Range, i&
 Set Plage = Range("c15:c5000")
 For i = 1 To Plage.Count
    If Plage(i).Interior.ColorIndex = 3 Then Plage(i).Select: Exit Sub
 Next i
 End Sub

 

[steph57]

Re : rechercher Couleur cellule avec un bouton

Bonjour ,et merci jpb388
la macro me donne bien la 1ere cellule rouge,mais pas les autres,en fait j'aimerais qu'a cahque fois que j'appui sur le bouton"suivant",je me positionne sur la prochaine cellule
Merci

 

[jpb388]

Re : rechercher Couleur cellule avec un bouton

re

Sub Recherche_Couleur_Rouge()
 Dim Plage As Range, i&
  Set Plage = Range("c15:c5000")
  For i = GetSetting("steph57", "Recherche", "Couleur", 1) To Plage.Count
     If Plage(i).Interior.ColorIndex = 3 Then
        Plage(i).Select
        SaveSetting "steph57", "Recherche", "Couleur", i + 1
        Exit Sub
    End If
    If i = Plage.Count Then MsgBox "fin de liste": DeleteSetting "steph57"
  Next i
  End Sub

 

[steph57]

Re : rechercher Couleur cellule avec un bouton

Merci pour la reponse
c'est nickel...

Merci

 

[jbaudry]

Bonjour,

Je souhaite faire quelque chose de similaire mais sur plusieurs colonnes.
Quelqu'un peut-il m'expliquer comment fonctionne getsetting et savesetting?

Merci