zone à droite

eastwick · 22 Juillet 2014

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 · 22 Juillet 2014

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 · 22 Juillet 2014

Re : zone à droite

Bonsour®

VB:

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 · 22 Juillet 2014

Re : zone à droite

merci à vous...

zone à droite

eastwick

XLDnaute Accro

Pièces jointes

A4L9

XLDnaute Occasionnel

Modeste geedee

XLDnaute Barbatruc

Pièces jointes

eastwick

XLDnaute Accro

Discussions similaires

zone à droite

eastwick

XLDnaute Accro

Pièces jointes

A4L9

XLDnaute Occasionnel

Modeste geedee

XLDnaute Barbatruc

Pièces jointes

eastwick

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency