XL 2010 CommandButton par défaut

[kadelmalin]

bonjour le forum,
je voudrai bien solliciter votre assistance pour régler un petit problème dans le classeur ci-joint . Merci beaucoup.

 

[Eric C]

Bonjour le forum
Bonjour kadelmalin

A tester

 

[mapomme]

Bonjour le forum, @kadelmalin , @Eric C

Ce code devrait le faire. A mettre dans le module du Userform:

Private Sub UserForm_Activate()
   CommandButton1.Visible = [B3] = 1
   CommandButton2.Visible = [B3] = 2
End Sub

 

[Eric C]

Re le fil,
Bonjour mapomme : Pourquoi faut il toujours que j'en fasse de trop (ma devise : pourquoi faire simple quand on peut faire compliqué - Ah oui, je dois faire partie du clan de notre ami Lionel (Usine à Gaz que je salue) -
Bonne après-midi à toutes & à tous
@+ Eric c

 

[mapomme]

Bonjour @Eric C

Ah oui, je dois faire partie du clan de notre ami Lionel (Usine à Gaz que je salue

Tu as encore de la marge (j'en ai fait des pires dans le genre pourquoi faire simple...)

Un grand bonjour à @Usine à gaz

 

[kadelmalin]

Merci beaucoup à vous deux.

 

[kadelmalin]

Au fait ce n'est pas l'option 'visible' que je voulais mais l'option 'default' c'est à dire que le bouton sera sélectionné à l'ouverture de l'userform.

 

[mapomme]

Au fait ce n'est pas l'option 'visible' que je voulais mais l'option 'default' c'est à dire que le bouton sera sélectionné à l'ouverture de l'userform.

Dans ce cas, essayez ce code :

Private Sub UserForm_Initialize()
   Controls("Commandbutton" & [B3]).SetFocus
End Sub

 

[kadelmalin]

Bjr mapomme, je vous remercie beaucoup.