Discussion :

[gangsterus]

Bonjour,

Je suis en train de faire une macro dans laquelle j'ai appliqué un filtre et je réalise des modifications sur les données filtrées.
Ca fonctionne sauf sur une modification.
Ce que je souhaite:
- Filtrer selon le critère Tata sur la colonne B -> ok ça marche
- Filtrer les cellules vides sur la colonne D -> ok ça marche
- Sur les lignes filtrées, je souhaite copier les cellules de la colonne C et les coller dans la colonne D
- Sur les lignes filtrées, je souhaite coller "Toto" dans la colonne C -> c'est là que ça ne fonctionne pas correctement, car ça colle "Toto" sur des lignes non filtrées

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Range("A1").AutoFilter Field:=2, Criteria1:="Tata"
    Range("A1").AutoFilter Field:=4, Criteria1:=""
 
   For Each Cel In Range("D2:D" & Range("A" & Rows.Count).End(xlUp).Row).Cells
 
    If Cel.Value = "" Then Cel.Value = Cel.Offset(0, -1).Value
 
    Cel.Offset(0, -1).Value = "Toto"
 
    Next Cel
 
    Sheets(Feuille(2)).AutoFilterMode = False

Merci par avance pour votre aide!

[mercatog]

Regardes l'aide sur la méthode specialcells(xlcelltypevisible) de l'objet Range