j'aurai besoin besoin d'un petit coup de main pour une macro.
j'ai dans une cellule ("J1") une valeur (qui change suite à une macro exécutée).
Je voudrais que cette valeur soit recherchée dans la colonne "G" et que si elle est trouvée la cellule de la colonne G prenne la couleur jaune.
Voir fichier joint :
Ex : J1 = 45353
1 - On recherche J1 dans colonne G
2 - On trouve J1 en G14 donc cellule G14 = couleur fond jaune.
Re : macro pour rechercher valeur dans une colonne et mettre en couleur la cellule
Bonjour,
une manière :
Sub Recherche()
With ActiveSheet.Range("G4:G20")
a = [J1]
Set c = .Find(What:=a, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then c.Interior.ColorIndex = 6
End With
End Sub
Re : macro pour rechercher valeur dans une colonne et mettre en couleur la cellule
Bonjour,
une autre p'tite démonstration :
VB:
Sub Demo()
With Feuil1.[G4].CurrentRegion
V = Application.Match(.Parent.Cells(10).Value, .Cells, 0)
If IsNumeric(V) Then .Cells(V).Interior.ColorIndex = 36
End With
End Sub
_______________________________________________________________________________
Merci de cliquer sur J'aime ce post en bas à gauche de chaque message ayant aidé …
_______________________________________________________________________________ Je suis Paris, …