Macro

Fermé

Ludivine - 4 avril 2016 à 11:54
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 4 avril 2016 à 14:39

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 !!

A voir également:

Macro
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Macro recorder - Télécharger - Confidentialité
Telecharger macro nblettre.xla - Forum Bureautique

2 réponses

Réponse 1 / 2

Pierre1310 Messages postés 8564 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 649
4 avril 2016 à 11:56

Salut,



while ta cellule like "COMLMI"

ta cellule = ce que tu veux


tu descends d'une case
Wend

Réponse 2 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
4 avril 2016 à 14:39

Bonjour

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

Discussions similaires

faire une boucle sans VBA

Transformer un chiffre en lettres dans excel sans macro

recup couleur de cellule sans macro

Copie automatique tableau Excel sans macro

tri automatque sur excel sans créer de macro