Discussion :

[luckyalan]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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.

[luckyalan]

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

[Philippe Tulliez]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[luckyalan]

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

[Philippe Tulliez]

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.