Copier/coller VBA range à la place ligne

[Sabrhm]

Bonjour à tous,

J'ai actuellement une macro que vous trouverez ci-dessous, je souhaiterais qu'à la place de copier/coller des lignes, ma macro copie/colle des les 9 premières colonnes de ma feuille ou de la plage A2:I200.

Merci d'avance pour votre aide.



Dim Lig&, DerL&

DerL = Worksheets("Historique_contrôle").Range("A" & Rows.Count).End(3).Row

For Lig = 2 To 100

If Worksheets("Article_controle").Cells(Lig, 3) = "OK" Then

Worksheets("Article_controle").Rows(Lig).Copy

Worksheets("Historique_contrôle").Range("A" & DerL + 1).PasteSpecial (xlPasteValues)

DerL = DerL + 1

End If

Next

 

[Bougla972]

Bonjour Sabrhm,

Remplace la ligne :

Worksheets("Article_controle").Rows(Lig).Copy

par :

Worksheets("Article_controle").Range("A2:I" & DerL).Copy

 

[Sabrhm]

Malheureusement, ça ne marche pas, au lieu de me copier/Coller toutes les lignes de A à I où j'ai OK, la macro me colle la plage "A2:I de la dernière ligne ou j'ai dans la cellule OK" et donc dans cette plage j'ai des lignes où je n'ai pas de OK.

 

[Bougla972]

Si j'ai bien compris, remplace ta macro par ceci:

Dim Lig&, DerL&

DerL = Worksheets("Historique_contrôle").Range("A" & Rows.Count).End(3).Row

Worksheets("Article_controle").Range("A2:I" & DerL).Copy

Worksheets("Historique_contrôle").Range("A" & DerL + 1).PasteSpecial (xlPasteValues)

 

[Sabrhm]

J'ai trouvé un autre moyen pour résoudre ce problème. Merci pour ton aide Bougla972.
Excellente journée

 

[Sabrhm]

Bonjour Sabrhm,

Remplace la ligne :

Worksheets("Article_controle").Rows(Lig).Copy

par :

Worksheets("Article_controle").Range("A2:I" & DerL).Copy

Est-il possible de changer la condition qui est égal "OK" à une cellule d'une feuille de mon fichier. Exemple "A1" de la feuille "Article_controle"

 

[Bougla972]

If Worksheets("Article_controle").Cells(1, 1) = "OK" Then

Pour la cellule A1 par exemple