Bonjour à tous,
Je suis en train de mettre en place un code VBA me permettant de copier/coller des colonnes d'un tableau vers d'autres feuilles.
Jusque-là, tout va bien et ma macro fonctionne à merveille.
Cependant, je souhaiterais ajouter une condition, je voudrais copier/coller mes valeurs présentes dans mes colonnes uniquement si la colonne D du tableau contient la valeur "M".
Si la colonne en question ne contient pas M, alors on ne copie pas les éléments présents dans les cellules des autres colonnes. Pour information, dans cette colonne D, je n'aurai pas de M "éparpillés", ces derniers se suivront les uns à la suite des autres jusqu'à ce qu'il n'y en ait plus et qu'il y ait une autre lettre.
Je vous joins une partie du code que j'ai mis en place et sur lequel j'aimerai rajouter cette condition:
La condition que j'aimerais ajouter avant le début de ce code ressemblerait à cela:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Sub Macro2() Dim DerLigne As Long Sheets("refok").Range("H7:H1100").Copy Sheets("MAJ").Activate DerLigne = Range("C65536").End(xlUp).Row + 1 Range("C" & DerLigne).Select Selection.PasteSpecial Paste:=xlPasteValues DerLigne = Range("O65536").End(xlUp).Row + 1 Range("O" & DerLigne).Select Selection.PasteSpecial Paste:=xlPasteValues DerLigne = Range("W65536").End(xlUp).Row + 1 Range("W" & DerLigne).Select Selection.PasteSpecial Paste:=xlPasteValues Sheets("refok").Range("T7:T1100").Copy Sheets("MAJ").Activate DerLigne = Range("E65536").End(xlUp).Row + 1 Range("E" & DerLigne).Select Selection.PasteSpecial Paste:=xlPasteValues (...) End Sub
J'ai bien entendu essayé cela mais ca ne fonctionne pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part If Sheets("refok").Range("D7:D1100") = "M" Then
Pouvez-vous m'aider?
En vous remerciant par avance.
Bonne journée.
Partager