Voici le code à ajouter (ligne rouge) dans chaque feuille :
Code:
Sub Worksheet_SelectionChange(ByVal sel As Range)
[COLOR="Red"] If sel.Column = 2 Then Exit Sub[/COLOR]
If Not old_sel = "" Then Range(old_sel).Interior.ColorIndex = old_color
old_sel = sel.Address
old_color = sel.Interior.ColorIndex
ActiveCell.Interior.ColorIndex = 6
End Sub
Pourquoi ne pas mettre le code dans ThisWorkbook ?
Code:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 2 Then Exit Sub
If Not old_sel = "" Then Range(old_sel).Interior.ColorIndex = old_color
old_sel = Target.Address
old_color = Target.Interior.ColorIndex
ActiveCell.Interior.ColorIndex = 6
End Sub
Ce qui évite de recopier le code dans chaque feuille du classeur
Voici le code à ajouter (ligne rouge) dans chaque feuille :
Code:
Sub Worksheet_SelectionChange(ByVal sel As Range)
[COLOR="Red"] If sel.Column = 2 Then Exit Sub[/COLOR]
If Not old_sel = "" Then Range(old_sel).Interior.ColorIndex = old_color
old_sel = sel.Address
old_color = sel.Interior.ColorIndex
ActiveCell.Interior.ColorIndex = 6
End Sub
Pourquoi ne pas mettre le code dans ThisWorkbook ?
Code:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 2 Then Exit Sub
If Not old_sel = "" Then Range(old_sel).Interior.ColorIndex = old_color
old_sel = Target.Address
old_color = Target.Interior.ColorIndex
ActiveCell.Interior.ColorIndex = 6
End Sub
Ce qui évite de recopier le code dans chaque feuille du classeur
Bonsoir Staple1600
merci pour ton aide, j'aurais souhaité que ca fonctionne, mais quand je met le code dans le workbook, ca fonctionne pas
Par contre, si toi ou cbea aviez une astuce a me donner pour mettre dans le workbook, je serais preneur
J'aurais souhaité a la place d'un surlignage jaune, un encadrement en gras et rouge des cellules trouvées et toujours a l'exeption de la colonne B.
merci de t'etre interessé à mon problème, mais je ne peut pas ouvrir ton fichier ..
un message " acces non autorisé" apparait quand je clique sur ton lien
Merci bea,
perso je trouve que ca fonctionne mieux quand le code est dans la feuille (trop lent dans le workbook)
une derniere question !!! je souhaiterais qu'une fois la recherche terminée, la couleur de la cellule trouvée soit remise a zéro ( sans le surlignage) car quand je lance une autre recherche, la cellule trouvée auparavant a gardé la couleur rouge.
merci pour tout
@+