Macro
Bonjour à tous !
Je cherche à faire une macro (simple):
1)colonne G : filtrer contient "comlmi"
2) Pour les lignes qui contiennent comlmi en G, remplacer la cellule en colonne F par la valeur "FR".
J'avais fait ça (pour le 1)
Selection.AutoFilter
ActiveSheet.Range("$A$1:$P$1704").AutoFilter Field:=7, Criteria1:="COMLMI"
Mais après je sais pas pour remplacer la valeur pour toutes les lignes ou le filtre a une réponse
Merci beaucoup !!
Je cherche à faire une macro (simple):
1)colonne G : filtrer contient "comlmi"
2) Pour les lignes qui contiennent comlmi en G, remplacer la cellule en colonne F par la valeur "FR".
J'avais fait ça (pour le 1)
Selection.AutoFilter
ActiveSheet.Range("$A$1:$P$1704").AutoFilter Field:=7, Criteria1:="COMLMI"
Mais après je sais pas pour remplacer la valeur pour toutes les lignes ou le filtre a une réponse
Merci beaucoup !!
2 réponses
-
Salut,
while ta cellule like "COMLMI"
ta cellule = ce que tu veux
tu descends d'une case
Wend
-
ContributeurBonjour
En sortant des conseils flous...
sans filtreOption Explicit
'---------
Sub modifier_colF_si()
Dim Nbre As Integer, Lig As Integer, Cptr As Integer
Nbre = Application.CountIf(Columns("G"), "comlmi")
Lig = 1
For Cptr = 1 To Nbre
Lig = Columns("G").Find("comlmi", Cells(Lig, "G"), xlValues).Row
Cells(Lig, "F") = "FR"
Next
End Sub
