Mise en position de boutons

[G'Claire]

Bonjour le forum,

Voila j'utilise ce code pour positionner des boutons :

With CommandButtonAnnuler
.Left = 6
.Top = 84
End With


Comme j'ai plusieurs boutons qui se placent au même endroit et au même moment es-t-il possible d'utiliser un code qui ferait la même chose mais pour tous les boutons sans pour autant multiplier le code .

Merci, G'Claire

 

[@+Thierry]

Bonjour G'Claire, le Forum

Humm, encore une demande qui m'échappe, tu veux vraiment que tous tes boutons ce trouvent les uns sur les autres au même endroit et au même moment ? Cà me parait être encore un coup bizarre ce truc.

Enfin, pour faire une boucle sur une type de Controls ActiveX dans un UserForm, on doit faire une boucle de ce genre :

Private Sub LeBoutonQuiDoitPasBouger_Click()
Dim CTRL As Control

For Each CTRL In Controls
If TypeOf CTRL Is MSFORMS.CommandButton Then
If CTRL.Name <> "LeBoutonQuiDoitPasBouger" Then
With CTRL
.Left = 6
.Top = 84
End With
End If
End If
Next CTRL
End Sub


Cette procédure placera tous les CommandButtons du UserForm à l'exception de celui nommé "LeBoutonQuiDoitPasBouger" [au même emplacement les uns sur les autres !!![/b]. (Le control ayant l'index le plus élevè étant placé au dessus des autres)

Mais je me demande vraiment si j'ai bien compris ce que tu cherches à faire..

Bon Aprèm
@+Thierry

 

[G'Claire]

@Thierry et le forum,

@Thierry, merci pour ta réponse.

C'est vrai que cela parrait bizard, mais je joue sur l'affichage ou non de certain de ces boutons suivant la commande effectué avant et j'ai un peu de mal avec l'histoir des caption et du picture.

Merci, G'Claire