Copier en décaler vers une autre feuille en VBA

[natorp]

Bjr à toutes et tous

Merci de regarder mon fichier joint, je cherche à mettre au point une gestion d'inscription à un concours

Mon besoin en VBA :
Se positionner sur la première cellule vide de la colonne B en partant du bas
se décaler de 1 à gauche
copier jusqu'à la dernière cellule remplie
coller sur la première cellule vide en partant du bas de la colonne B de la feuille 2


Cordialement, Gérard

 

[Staple1600]

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.

 

[natorp]

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

 

[Staple1600]

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

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

 

[natorp]

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

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

 

[natorp]

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 :

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

 

[natorp]

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

 

[Staple1600]

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

Bonjour à tous

natorp
Tu peux aussi faire comme cela

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

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

 

[natorp]

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

Merci JM, ça marche impecc'

Au plaisir, Gérard