Discussion :

[oktopuces]

J'utilise une macro pour generer des zones de texte avec des dimensions bien defini (correspondant a une duree)
L'utilisateur deplace ensuite les zones de texte, pour visualiser une sorte de planning.
J'aimerais dans VBA pouvoir verouiller la taille de la zone de texte, pour que l'utilisateur ne les modifies pas en les deplacant.

Avez vous une idee pour faire cela ?

[ouskel'n'or]

Pas trouvé de solution avec une zone de texte.
Par contre, avec une textbox de la barre d'outils "Commandes", tu as un événement "AfterUpdate" qui permettrait de redimensionner le textbox après modif du contenu (pas après modif du déplacement ni après un simple redimensionnement)
Clic droit sur le TextBox -> Propriétés -> Dans Recherche -> TextBox (Contrôle) -> Evénements
Tu dis
A+

Edit
Tu pourrais aussi effectuer ce redimensionnement chaque fois qu'un utilisateur sélectionne une cellule. Si le textbox n'a pas à être redimensionner, rien ne changera. Tu peux également effectuer une vérif et si les dimensions ont été modifiées, les mettre au pli

[oktopuces]

Je vais essaye le coup de verifier toutes les dimensions et de redimensionner au besoin.
pour scruter tout les objets de type zone de texte de la sheet1. je pense utilisez le code suivant.

Code :

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

1
2
3
4
5
6
     Dim Sh As Shape
    For Each Sh In Sheet2.Shapes
        If Sh.Type = 17 Then 
              ' check dimension + redimensionne
        end if
    Next

des que j'ai implemente je vous tiens au courant.

[conconbrr]

Sinon tu peux protéger tes objets...

Dans ton code pour pouvoir les modifier sans erreur, il te suffit de désactiver la feuille au début de la procédure et de la reprotéger à la fin.

Euh je suis clair où tu veux un exemple ?

[ouskel'n'or]

Oui, oktopuces, et pour cela tu pourrais utiliser l'événement selectionChange de la feuille de calculs.

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
   'Ton code
    ActiveSheet.Shapes("Text Box 2").Width = 100
    ActiveSheet.Shapes("Text Box 2").Height = 40
 
End Sub

Les Shapes seraient redimensionnées chaque fois que l'utilisateur les quitterait pour sélectionner une cellule.
Juste une idée (!?!)