Figer la position d'un shape

Bonsoir,

J'essaye de faire sur un onglet de jouer avec les affichage des colonne via deux macro, ca fonctionne nickel mais j'ai sur cette onglet deux shapes dont la taille se redimensionnent tout seul et impossible de fixer sa taille. j'ai l'impression qu'il se redimensionne en fonction de la taille de la colonne....

Si vous avez des idées pour le Shapes garde au moins sa taille de départ

Ci joint le fichier avec les 2 shapes ok niveau affichage,

et les deux macros qui permettent de modifier les colonnes affichées.

Bonjour,

c'est quand tu masques tes colonnes qu'il les modifie.

Pour chaque objet enregistre .top .left, .height, .width qu'ils doivent avoir et tu les rétablis à la fin.

eric

ok d'accord je veux bien mais comment je trouves les dimensions et la position de mes shapes. impossible d'avoir les propriétés via le menu dev ni par dans l'éditeur vba...??

alors j'ai essayer en recopiant les valeurs d'un bouton classique, voilà à quoi ressemble mon meilleur essaie :

Sub shapes1()
 With WsPrm.shapes("ZoneTexte 2").Visible = msoTrue
    .widh = 140.25
    .Top = 0
    .Left = 569.25
    .hignt = 32.25
 End With
'WsPrm.shapes("ZoneTexte 1").Visible = msoTrue
'    widh = 94.5
'    Top = 0
'    Left = 0
'    hignt = 32.25
End Sub

Si vous avez des idées je suis preneur là je navigue dans le flou total

With WsPrm.shapes("ZoneTexte 2")
    .Visible = msoTrue
    .widh = 140.25
    .Top = 0
    .Left = 569.25
    .hignt = 32.25
 End With

PS : .widh et .hignt n'existent pas, un minimum de rigueur et d'attention sont nécessaires en programmation

Ok merci ,

j'étais pas loin zut...

Voir le PS...

Dernière question, lorsque je changes plusieurs fois la vue le texte de la Shape disparaît , y a t-il également moyen de fixer le texte?

Bonjour,

étonnant que le texte disparaisse.

Met-toi en enregistrement de macro et tu auras tous les éléments.

eric

Merci Eriic,

C'est parfait, encore merci, Je valide