F
Francis
Guest
Bonsoir
Je débute en Vba et j’ai écrit un petit programme pour cacher les lignes ne contenant pas une expression dans une plage (C1:G 250).
Il fonctionne seulement sur la colonne C. (Parce que je ne sais pas sélectionner les colonnes C à G !)
Quelqu'un pourrait-il m'aider?
Merci pour votre aide
Francis
Sub cherche_valeur()
valtest = InputBox("entrez la valeur à rechercher")
For Each ligne In Range("c1:g250")
r = ligne.Row
chercher = Application.Find(valtest, Cells(r, 3))
If (IsError(chercher)) Then _
Cells(r, 3).EntireRow.Hidden = True
Next
MsgBox "Pas de " & valtest & " dans la plage testée !"
End Sub
Je débute en Vba et j’ai écrit un petit programme pour cacher les lignes ne contenant pas une expression dans une plage (C1:G 250).
Il fonctionne seulement sur la colonne C. (Parce que je ne sais pas sélectionner les colonnes C à G !)
Quelqu'un pourrait-il m'aider?
Merci pour votre aide
Francis
Sub cherche_valeur()
valtest = InputBox("entrez la valeur à rechercher")
For Each ligne In Range("c1:g250")
r = ligne.Row
chercher = Application.Find(valtest, Cells(r, 3))
If (IsError(chercher)) Then _
Cells(r, 3).EntireRow.Hidden = True
Next
MsgBox "Pas de " & valtest & " dans la plage testée !"
End Sub