Discussion :

[clorion91]

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.

[NVCfrm]

bonjour,
l'excellente méthode AutoFilter est pratique dans ton cas.

Code :

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

1
2
 
Sheets("refok").Range("D6:D1100").Autofilter 1, "M"

pour ne pas continuer le reste du code, il te faut t'assurer que le filtre a obtenu des résultats, détermine si derLig est hors limite en l'affectant ainsi:

Code :

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

1
2
3
4
 
DerLigne = Range("d6").End(xlDown).Row
If DerLigne > 1100 Then 'aucun résultat de filtre
....

à toi de jouer pour les combinaisons.

[clorion91]

Bonsoir NVCfrm,

Je viens de lire ta réponse et je l'ai mise en place sur mon tableau.

Cela fonctionne à merveille! J'ai apporté quelques modifications mais sinon c'est parfait.

Je te remercie pour ton aide.

Bonne soirée et bon weekend!