ligne couleur

[serge (pas le même)]

Bonjour à toutes et à tous.
J'ai réussi en piochant chez l'un, chez l'autre, à créer cette macro qui colore en rouge la ligne comportant une valeur saisie dans la boîte de dialogue, à condition que cette valeur se trouve dans une colonne déterminée (A:A dans l'exemple).
Comment faire pour étendre la recherche à toutes les colonnes occupées dans la feuille?


Sub ColorLigVal()
Dim Var As String
fin = ActiveSheet.UsedRange.Rows.Count
Range("A1").Select
On Error Resume Next
Var = InputBox(Prompt:="Valeur recherchée: ")
ActiveCell.Offset(fin - 1, 0).Range("A1").Select
Do While ActiveCell.Row() <> 1
If ActiveCell.Value = (Var) Then
ActiveCell.EntireRow.Cells().Select
Selection.Interior.ColorIndex = 3
End If
ActiveCell.Offset(-1, 0).Range("A1").Select
Loop
End Sub

Merci d'avance à tous de votre attention et de votre aide précieuse.
Bonne fin de journée,
Serge.

 

[CHti160]

salut"serge (pas le même)
en piece jointe
un exemple à modifier sûrement et à adapter
A+++
Jean Marie

 

[serge (pas le même)]

Merci beaucoup Jean-Marie, c'est parfait, les modifs seront minima.
A bientôt, bonne soirée,
Serge.