macro et activesheet.shapes

[Goose]

Bonjour à tous,
ci-joint mon problème de macro !!
merci pour votre aide
@+

 

[Lone-wolf]

Bonjour Goose

Un Essai.

Sub Selection5()
Dim R As Object

Set R = ActiveSheet.Shapes(Application.Caller).TopLeftCell
' en ligne :
Range(R.Offset(0, 2).Address, R.Offset(0, 10).Address).Copy ActiveCell

If ActiveCell.Offset(0, 6) <> "" Then _
Range(R.Offset(0, 2).Address, R.Offset(0, 10).Address).ClearContents
End Sub

Pour ce: sélectionne une cellulle en c5:c10 puis clique sur le bouton gauche de la ligne. Les boutons à droite tu peux les enlever.

 

[Staple1600]

Bonsoir le fil, le forum, Lone-Wolf

Une variante de syntaxe (en mettant le code directement dans la feuille et pas dans un module)

Sub Selection5()
Dim L&
L = Me.Shapes(Application.Caller).TopLeftCell.Row: Cells(L, 3).Resize(, 5).Copy
End Sub

NB: Il faut donc refaire Format de contrôle->Affecter une macro

 

[Lone-wolf]

Bonsoir Jean Marie

 

[Goose]

Magnifique merci a vous deux !!