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