Recherche en VBA la prochaine cellule d'une couleur de n'importe quelle valeur
Fermé
sfa11
-
12 mai 2021 à 11:51
yg_be Messages postés 21303 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mars 2023 - 12 mai 2021 à 13:08
yg_be Messages postés 21303 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mars 2023 - 12 mai 2021 à 13:08
A voir également:
- Recherche en VBA la prochaine cellule d'une couleur de n'importe quelle valeur
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Recherche musique - Guide
- Recherche par image - Guide
- Excel compter cellule couleur sans vba ✓ - Forum Excel
1 réponse
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
12 mai 2021 à 11:53
12 mai 2021 à 11:53
bonjour,
je pense qu'il suffit de parcourir les cellules et de s'arrêter quand la bonne couleur aura été trouvée.
je pense qu'il suffit de parcourir les cellules et de s'arrêter quand la bonne couleur aura été trouvée.
12 mai 2021 à 12:18
12 mai 2021 à 12:25
Private Sub CommandButton1_Click()
'recherche les différences de couleur bleue
Range("A1:Z500").Select
With Application.FindFormat.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = RGB(183, 222, 232)
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveSheet.Cells.Find(What:="", LookIn:=xlValues, LookAt:=xlPart, SearchFormat:=True).Activate
'MsgBox ActiveCell.Find(What:="", LookIn:=xlValues, LookAt:=xlPart, SearchFormat:=True).Activate
Do While MsgBox("Voulez-vous continuer la recherche ? ", vbYesNo, "Demande de confirmation") = vbYes
With Application.FindFormat.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = RGB(183, 222, 232)
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Cells.FindNext(After:=ActiveCell).Activate
Loop
End Sub
Merci pour votre aide
12 mai 2021 à 12:26
tu ne précises pas où il faut commencer, dans quelle direction chercher, ni où s'arreter.
quelques exemples:
https://docs.microsoft.com/fr-fr/office/troubleshoot/excel/loop-through-data-using-macro
12 mai 2021 à 12:27
12 mai 2021 à 12:34
Option Explicit Private Sub cc() Dim rg As Range, cl As Range Set rg = Range("A1:Z50") For Each cl In rg If cl.Interior.Color = RGB(183, 222, 232) Then cl.Select Exit For End If Next cl End Sub