Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Position d'un shape par VBA

Position d'un shape par VBA

2 réponses
Avatar
Didier NOVARIN
Bonsoir,
Je souhaite positionner exactement une zone de texte par VBA sur une
cellule,
par VBA, actuellement, j'obtiens ceci :

ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.IncrementLeft 146.25
Selection.ShapeRange.IncrementTop 118.5

Je souhaiterai pouvoir le positionner à l'intersection de la cellule D5 et
E5

Je vous remercie
Didier
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Posiionnement sur une cellule;:

ActiveSheet.Shapes(1).Top = [B10].Top
ActiveSheet.Shapes(1).Left = [B10].Left

JB

On 23 fév, 20:05, "Didier NOVARIN"
wrote:
Bonsoir,
Je souhaite positionner exactement une zone de texte par VBA sur une
cellule,
par VBA, actuellement, j'obtiens ceci :

ActiveSheet.Shapes("Picture 1").Select
    Selection.ShapeRange.IncrementLeft 146.25
    Selection.ShapeRange.IncrementTop 118.5

Je souhaiterai pouvoir le positionner à l'intersection de la cellule D5 et
E5

Je vous remercie
Didier


Avatar
Didier NOVARIN
Merci beaucoup JB !
C'est parfait
Très bonne soirée
Didier

"JB" a écrit dans le message de news:

Posiionnement sur une cellule;:

ActiveSheet.Shapes(1).Top = [B10].Top
ActiveSheet.Shapes(1).Left = [B10].Left

JB

On 23 fév, 20:05, "Didier NOVARIN"
wrote:
Bonsoir,
Je souhaite positionner exactement une zone de texte par VBA sur une
cellule,
par VBA, actuellement, j'obtiens ceci :

ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.IncrementLeft 146.25
Selection.ShapeRange.IncrementTop 118.5

Je souhaiterai pouvoir le positionner à l'intersection de la cellule D5 et
E5

Je vous remercie
Didier