zone à droite

[eastwick]

Bonjour à toutes et tous,

J'aimerais que l'ensemble composée de 6 zones de texte se positionne à droite de la cellule active et non plus en dessous. Je ne parviens pas à modifier le code.

Merci !

 

[A4L9]

Re : zone à droite

Bonjour eastwick,

ci-joint le code modifié, j'espère que cela vous convient

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet.Shapes("Groupe 6"): .Top = Selection.Offset(-4, 0).Top: .Left = Selection.Offset(0, 1.5).Left: End With
End Sub

Cordialement,

 

[Modeste geedee]

Re : zone à droite

Bonsour®

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet.Shapes("Groupe 6"): .Top = Selection.Top: .Left = Selection.Left + 1.5 * Selection.Width: End With
End Sub

attention ne pas sélectionner la colonne extrême droite

 

[eastwick]

Re : zone à droite

merci à vous...