Bonjour le Forum,
Suite à une recherche dans ma base données, je souhaiterais qu'une fois l'élément retrouvé la case change de couleur, voilà le code et je ne comprends pas, il ne marche pas systématiquement :
On Error Resume Next
Dim X As Range
Set X = Cells(2, 3)
If X = '' Then Exit Sub 'si la cellule C2 est vide (fin de la macro)
'Selection de colonnes de recherche
Range('A8:C1500').Select
Selection.Interior.ColorIndex = xlNone
Selection.Find(What:=X, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Select
With Selection.Interior
.ColorIndex = 34
Autres questions sur le même thème :
Est il possible à la saisie d'une cellule d'avoir un format conditionnel pour une ligne complète en rapport à une seule cellule.
MErci de votre aide si vous avez vu une erreur ou une autre idée.
Suite à une recherche dans ma base données, je souhaiterais qu'une fois l'élément retrouvé la case change de couleur, voilà le code et je ne comprends pas, il ne marche pas systématiquement :
On Error Resume Next
Dim X As Range
Set X = Cells(2, 3)
If X = '' Then Exit Sub 'si la cellule C2 est vide (fin de la macro)
'Selection de colonnes de recherche
Range('A8:C1500').Select
Selection.Interior.ColorIndex = xlNone
Selection.Find(What:=X, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Select
With Selection.Interior
.ColorIndex = 34
Autres questions sur le même thème :
Est il possible à la saisie d'une cellule d'avoir un format conditionnel pour une ligne complète en rapport à une seule cellule.
MErci de votre aide si vous avez vu une erreur ou une autre idée.