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:

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
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
If Sheets("refok").Range("D7:D1100") = "M" Then
J'ai bien entendu essayé cela mais ca ne fonctionne pas.

Pouvez-vous m'aider?

En vous remerciant par avance.

Bonne journée.