Copier en décaler vers une autre feuille en VBA

Staple1600

XLDnaute Barbatruc

• 15 Décembre 2012

• #2

Re : Copier en décaler vers une autre feuille en VBA

Bonsoir à tous

Natorp
Tu peux nous fournir un peu plus d'explications, stp.
Mais dans le fil de discussion, pas dans la pièce jointe.

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 15 Décembre 2012

• #3

Re : Copier en décaler vers une autre feuille en VBA

JM,

Désolé voilà qui est fait dans le message d'origine

Merci Gérard

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Décembre 2012

• #4

Re : Copier en décaler vers une autre feuille en VBA

Re

Se positionner sur la première cellule vide de la colonne B en partant du bas
se décaler de 1 à gauche

Cliquez pour agrandir...

Code:

Sub a()
Dim derlig&
derlig = Cells(Rows.Count, 2).End(xlUp)(2).Row
MsgBox Cells(derlig, 2).Address
Cells(derlig, 2).Offset(, 1).Select
End Sub

je te laisse adapter et continuer pour la suite

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 16 Décembre 2012

• #5

Re : Copier en décaler vers une autre feuille en VBA

Re, JM

Merci,

Se positionner sur la première cellule vide de la colonne B en partant du bas
se décaler de 1 à gauche

Code:

derlig = Cells(Rows.Count, 2).End(xlUp)(2).Row
Cells(derlig, 2).Offset(, -1).Select

Sélectionner et copier jusqu'à la dernière cellule remplie
"Comment faire ?"
coller sur la première cellule vide en partant du bas de la colonne B de la feuille 2
"Comment faire ?"

Merci de votre attention, cordialement
Gérard

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 16 Décembre 2012

• #6

Re : Copier en décaler vers une autre feuille en VBA

Bjr à toutes et tous

Pour se positionner sur la première cellule vide de la colonne B en partant du bas
se décaler de 1 à gauche
Sélectionner jusqu'à la dernière cellule remplie

J'ai essayé ça mais j'ai une erreur "la méthode 'Range' de l'objet '_Global' a échoué" sur la ligne 3 :

Code:

b = Range("b1000").End(xlUp).Offset(1, 0).Offset(0, -1).Select
lig_fin = Range("A1000").End(xlUp).Row
Range("A" & b & ":A" & lig_fin).Select

Merci de votre aide, cordialement, Gérard

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 16 Décembre 2012

• #7

Re : Copier en décaler vers une autre feuille en VBA

Oups, j'ai trouvé pour cette partie là :

Je me suis trompé dans la première ligne : elle ne doit pas finir par '.Select' mais '.Row'

Gérard

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Décembre 2012

• #8

Re : Copier en décaler vers une autre feuille en VBA

Bonjour à tous

natorp
Tu peux aussi faire comme cela

Code:

Sub b()
Dim adl&, bdl&
adl = Cells(Rows.Count, 1).End(xlUp).Row
bdl = Cells(Rows.Count, 2).End(xlUp)(2).Row
Range(Cells(bdl, 1), Cells(adl, 1)).Select
End Sub

Et pour copier sur la feuille 2

Code:

Sub c()
Dim adl&, bdl&
adl = Cells(Rows.Count, 1).End(xlUp).Row
bdl = Cells(Rows.Count, 2).End(xlUp)(2).Row
Range(Cells(bdl, 1), Cells(adl, 1)).Copy Sheets("Feuil2").Cells(Rows.Count, 2).End(xlUp)(2)
End Sub

 

Dernière édition: 16 Décembre 2012

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 16 Décembre 2012

• #9

Re : Copier en décaler vers une autre feuille en VBA

Merci JM, ça marche impecc'

Au plaisir, Gérard

 

Vote positif 0 Vote négatif