Discussion :

[chrnoe]

Bonjour à tous,

Je voudrais savoir si il est possible avec un bouton, de copier un ensemble de cellules sur la dernière ligne occupé (en sautant une ligne entre deux?

Je m'explique,

Je voudrais (avec un bouton) selectionner l'ensemble des cellules A1 à B2 les copier et les coller en dessous en sautant une ligne (la ligne C), ensuite je voudrais copier encore les cellules A1 à B2 (qui sont les cellules de référence) et les copier en dessous des dernières cellules utilisées toujours en sautant une ligne.

Merci d'avance

[rvtoulon]

Bjr,
sur l'événement click d'un bouton sur la feuille (bouton de commande activeX) mettre ceci

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
i = Range("A65000").End(xlUp).Row + 2
Range("A1:B2").Copy Range("A" & i)
End Sub

ou dans un module mettre ceci

Code :

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

1
2
3
4
Sub Copiercoller ()
i = Range("A65000").End(xlUp).Row + 2
Range("A1:B2").Copy Range("A" & i)
End Sub

et affecter cette macro à un bouton de commande (bouton de commande formulaire) sur ta feuille.
A+
EDIT: Ces boutons se trouvent dans la barre d'outils formulaire( il me semble, car j'ai excel 2007)