Macro
Ludivine
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
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 !!
A voir également:
- Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Actiona macro - Télécharger - Divers Utilitaires
2 réponses
Bonjour
En sortant des conseils flous...
sans filtre
En sortant des conseils flous...
sans filtre
Option 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
