VBA copier coller une cellule selectionnée juqu'à la dernière cel de la col de gauche

[jerem13]

Bonsoir a vous tous.

Je vous solicite une fois de plus pour un petit probleme.

Je souhaiterai pouvoir ecrire en vba l'action que l'on effectue pour coller une cellule selectionnée, en clair vous savez quand on double click en bas à droite d'une cellule pour la coller jusqu'à la dernière cellule pleine de la colonne située à gauche (symbole +).

Est il possible de faire de même en se basant sur la dernière cellule de la colonne de droite.

Je vous remercie d'avance

 

[Staple1600]

Re : VBA copier coller une cellule selectionnée juqu'à la dernière cel de la col de g

Bonsoir

Fais cette manip en utilisant l'enregisteur de macros
(Outils/Macros/Nouvelle macro)
Tu obtiendras un code VBA.

Exemple

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 23/10/2008
'
Selection.AutoFill Destination:=Range("B1:B11")
Range("B1:B11").Select
End Sub

Ensuite en modifiant le code obtenu

Sub Macro1bis()
'
' Macro1 Macro
' Macro enregistrée le 23/10/2008
Dim derlig As Long
derlig = Range("A65536").End(xlUp).Row
Range("B1").AutoFill Destination:=Range("B1:B" & derlig)
End Sub

 

[jerem13]

Re : VBA copier coller une cellule selectionnée juqu'à la dernière cel de la col de g

Un grand merci à toi, c nickel.
A bientôt.

 

[jerem13]

Re : VBA copier coller une cellule selectionnée juqu'à la dernière cel de la col de g

En fait j'ai un autre probleme.

Est il possible de remplacer B1 (dans l'exemple ci dessous) par "première cellule vide de la colonne"

"Range("B1").AutoFill Destination:=Range("B1:B" & derlig)"

Merci de votre aide