Copier/coller VBA range à la place ligne

Bougla972

XLDnaute Occasionnel

• 3 Mai 2017

• #2

Bonjour Sabrhm,

Remplace la ligne :

VB:

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

par :

VB:

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

 

Vote positif 0 Vote négatif

S

Sabrhm

XLDnaute Junior

• 3 Mai 2017

• #3

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.

 

Vote positif 0 Vote négatif

Bougla972

XLDnaute Occasionnel

• 3 Mai 2017

• #4

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

VB:

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)

 

Vote positif 0 Vote négatif

S

Sabrhm

XLDnaute Junior

• 3 Mai 2017

• #5

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

 

Vote positif 0 Vote négatif

S

Sabrhm

XLDnaute Junior

• 3 Mai 2017

• #6

Bougla972 à dit:

Bonjour Sabrhm,

Remplace la ligne :

VB:

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

par :

VB:

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

Cliquez pour agrandir...

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"

 

Vote positif 0 Vote négatif

Bougla972

XLDnaute Occasionnel

• 3 Mai 2017

• #7

VB:

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

Pour la cellule A1 par exemple

 

Vote positif 0 Vote négatif