Discussion :

[vincent59139]

Bonjour tout le monde,

debutant en vba,

j'ai un petit probleme.

voila, je voudrait copier plusieurs cellulles d'une feuille1 vers une autre feuille2.

Jusque la, tout va bien. mais sur la feuille 2, je souhaiterais que les cellules se rajoute au dessous au fur et à mesure que j'utilise le bouton copier

voila mes lignes de code :

Sub enregistrer_click()

ligne = (Feuil1.Range("C7:J28").End(xlDown).Row) + 1
Feuil1.Range("C7:j28").Value = Sheet1.Range("C7:J28").Value

End Sub


pour le moment, cela copie bien toutes les données mais des que je veux rajouter des nouvelles données cela les effacent et se mettent par dessus.

merci de votre aide.

Vincent

[Daniel.C]

Bonjour,

Si tu ne copies pas toujours la même plage, tu dois modifier le code.

Code :

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

1
2
3
4
5
6
7
Sub enregistrer_click()
Dim Ligne As Long
With Feuil1
    Ligne = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
    .Cells(Ligne, 3).Resize(22, 8).Value = Sheet1.Range("C7:J28").Value
End With
End Sub

[Marc-L]

Bonjour,

voici comment connaitre le numéro de la dernière ligne utilisée d'une feuille :

Feuil1.UsedRange.Rows(Feuil1.UsedRange.Rows.Count).Row …

Evidemment ne pas confondre la feuille source avec celle de destination …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[vincent59139]

c'est parfait, merci beaucoup vraiment