Cellule suivante
Résolu
mic6259
Messages postés
342
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
11 décembre 2023
-
9 juil. 2023 à 14:32
mic6259 - 9 juil. 2023 à 15:09
mic6259 - 9 juil. 2023 à 15:09
A voir également:
- Cellule suivante
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Figer cellule excel - Guide
- Faites en sorte que la cellule a1 affiche exactement ce qui est montré sur cette image. quel mot apparaît en b1 ? - Forum Excel
1 réponse
via55
Messages postés
14405
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 avril 2024
2 703
9 juil. 2023 à 14:57
9 juil. 2023 à 14:57
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
9 juil. 2023 à 15:09
Super ça marche
Merci beaucoup via
Cordialement