Taille des shape par rapport à columswidth

bonjour, je ne comprend pas pourquoi mes cercles se déplacent et se déforment quand je change la largeur des colonnes... (mes cercles deviennent ovales dans un sens ou l'autre si je modifie la largeur de colonne quel est le rapport ?
merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub UserForm_Click() Sheets("Feuil1").Activate Cells.ColumnWidth = 5 ' quand j'augmente ou diminue, j'ai mes cercles qui s'ovalisent   Cercle End Sub     Sub Cercle() Dim shp As Shape Dim Xo As Integer, Yo As Integer, R As Integer   Xo = 100: Yo = 100: R = 40 Set shp = ActiveSheet.Shapes.AddShape(9, Xo, Yo, R, R) ' c'est là ou je ne comprend pas ! End Sub

---

merci beaucoup pour votre aide

Bonjour,
Ce problème vient de la propriété que tu donnes à l'objet Shape.
Si tu dessines manuellement une forme sur une feuille ou si tu augmentes la largeur d'une colonne où se trouve une forme, tu auras le même phénomène.
Fais un clic droit sur la forme et clique sur Propriété. Tu constateras que tu as trois options.

1. Déplacer et dimensionner avec les cellules (C'est l'option par défaut, celle qui provoque la modification de la propriété largeur de la forme)
2. Déplacer sans dimensionner avec les cellules
3. Ne pas déplacer ni dimensionner avec les cellules

Suivant ce qui te convient, tu choisiras la deuxième ou troisième option.

merci Philippe,
oui tu as raison, c'est bien cela, mais comment le résoudre directement dans les paramètres de Shape dans le code VBA ? intervenir sur le dessin après coup c'est trop tard pour moi !
merci encore

Bonjour,

Citation:

---

oui tu as raison, c'est bien cela, mais comment le résoudre directement dans les paramètres de Shape dans le code VBA ? intervenir sur le dessin après coup c'est trop tard pour moi !

---

Et bien très sincèrement, jusqu'au moment d'utiliser l'enregistreur de macros, je n'en savais rien non plus.
J'ai enclenché l'enregistreur de macros, j'ai inséré comme dessin une ellipse et comme propriété, j'ai sélectionné la troisième option Ne pas déplacer ni dimensionner avec les cellules et voilà le code que j'ai obtenu.

Code:

---

1 2	ActiveSheet.Shapes.AddShape(msoShapeOval, 383.25, 73.5, 56.25, 43.5).Select Selection.Placement = xlFreeFloating

---

J'en déduis que la propriété qui gère les trois options que j'ai évoqué c'est Placement et la valeur à lui passer pour la troisième option est la constante xlFreeFloating

Le meilleur amis du programmeur de VBA, c'est l'enregistreur de macros

merci encore Philippe,
encore une fois tu as raison !
je ne suis pas habitué à la prog en vba et je n'ai pas encore l'automatisme du test en éditeur de macro, je vais faire comme ça dorénavant avant de demander.
ça marche impeccable maintenant
merci
je marque "résolu" et je vote sur tes post

Bonjour,
Merci pour ton retour et pour le vote. Cela fait toujours plaisir.
L'avantage de l'enregistreur de macros même si l'on maîtrise le VBA, c'est de nous rappeler la méthode d'un objet et la propriété à employer.