ré-initialiser plusieurs combobox à l'aide d'un bouton

[SuperBZH]

Bonjour,
je suis nouveau sur ce forum. Dans l'optique de développer un fichier de comptage des points au poker chinois je me trouve devant une "petite" difficulté.
A la fin, d'une main, je voudrais ré-initialiser l'ensemble des combobox de la page à leurs valeurs par défaut ("0" ou "Main"), le tout en cliquant sur un seul bouton de contrôle (voir fichier image joint).
Voici ce que j'ai pondu comme macro associée au bouton "raz" (qui ne fonctionne pas...) :

Sub raz()
J1J2H.Text = 0 ' 1ère syntaxe essayée
Set J1J2M.ListIndex = 2 ' 2ème syntaxe essayée
Set J1J2B.ListIndex = 2
Set J1J3H.ListIndex = 2
Set J1J3M.ListIndex = 2
Set J1J3B.ListIndex = 2
Set J1J4H.ListIndex = 2
Set J1J4M.ListIndex = 2
Set J1J4B.ListIndex = 2
Set J2J3H.ListIndex = 2
Set J2J3M.ListIndex = 2
Set J2J3B.ListIndex = 2
Set J2J4H.ListIndex = 2
Set J2J4M.ListIndex = 2
Set J2J4B.ListIndex = 2
Set J3J4H.ListIndex = 2
Set J3J4M.ListIndex = 2
Set J3J4B.ListIndex = 2
Set HJ1.Value = "Main" ' 3ème syntaxe essayée
Set MJ1.Value = "Main"
Set BJ1.Value = "Main"
HJ2.Value = "Main" ' 4ème syntaxe essayée
MJ2.Value = "Main"
BJ2.Value = "Main"
HJ3.Value = "Main"
MJ3.Value = "Main"
BJ3.Value = "Main"
HJ4.Value = "Main"
MJ4.Value = "Main"
BJ4.Value = "Main"
End Sub

Merci d'avance pour votre aide

 

[gilbert_RGI]

Re : ré-initialiser plusieurs combobox à l'aide d'un bouton

Bonjour

s'il s'agit de combo de feuille vous pouvez essayer ceci

Sub init()
Dim F5 As Worksheet
Set F5 = Worksheets(Feuil1.Name)
For i = 1 To F5.OLEObjects.Count
On Error Resume Next

With F5
.OLEObjects("combobox" & i).Object.Value = "0"
End With
Next
End Sub

 

[SuperBZH]

Re : ré-initialiser plusieurs combobox à l'aide d'un bouton

Merci. Je vais essayer d'adapter votre solution à mes notations.