changer la valeur de plusieurs combobox

Pierrot93

XLDnaute Barbatruc

• 4 Novembre 2011

• #2

Re : changer la valeur de plusieurs combobox

Bonjour,

essaye peut être avec ceci, à placer dans le module de la feuille ou dans celui de l'usf, "me" faisant référence à ces objets :

Code:

Dim i As Byte
For i = 24 To 31
    Me.Controls("ComboBox" & i).Value = ComboBox23.Value
Next i

bonne journée
@+

 

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 4 Novembre 2011

• #3

Re : changer la valeur de plusieurs combobox

Merci pour ta réponse rapide mais cela ne fonctionne pas chez moi, j'ai du mal mettre ton code en pratique.
En fait seul le combobox 24 change.


Private Sub ComboBox23_Change()
Dim i As Byte

If MsgBox("Appliquer à tous ?", vbYesNo) = vbYes Then
For i = 24 To 31
Me.Controls("ComboBox" & i).Value = ComboBox23.Value
Next i

End If
End Sub

 

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 4 Novembre 2011

• #4

Re : changer la valeur de plusieurs combobox

le code change les combobox l'un après l'autre mais pas en même temps.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Novembre 2011

• #5

Re : changer la valeur de plusieurs combobox

Re,

essaye en mettant le code dans l'événement "Click" du combo plutôt que l'événement "Change"...

 

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 4 Novembre 2011

• #6

Re : changer la valeur de plusieurs combobox

toujours pas!
même en passant par un bouton comme ci dessous

Private Sub CommandButton16_Click()
Dim i As Byte
For i = 24 To 31
Me.Controls("ComboBox" & i).Value = ComboBox23.Value
Next i

End Sub

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Novembre 2011

• #7

Re : changer la valeur de plusieurs combobox

Re,

tes combo sont placées où ? feuille de calcul ou usf ? un tout petit fichier représentant uniquement le problème posé nous aiderait à t'aider...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Novembre 2011

• #8

Re : changer la valeur de plusieurs combobox

A noter également, le fait de changer la valeur de ces combo va déclencher l'événement "change" de ceux-ci... ceci explique peut être cela...

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 4 Novembre 2011

• #9

Re : changer la valeur de plusieurs combobox

Bonjour le fil,
Salut Pierrot 😉

Peut-être comme ceci

Code:

Private Sub ComboBox1_AfterUpdate()
  Dim i As Byte
  If MsgBox("Appliquer à tous ?", vbYesNo) = vbYes Then
    For i = 24 To 31
      Me.Controls("ComboBox" & i).Value = ComboBox1.Value
    Next i
  End If
End Sub

Ou alors comme ça à chaque modification dans le Combobox

Code:

Dim FlgExit As Boolean
Private Sub ComboBox1_Change()
  Dim i As Byte
  ' Sort de la procédure si on est dans la boucle
  If FlgExit = True Then Exit Sub
  '
  If MsgBox("Appliquer à tous ?", vbYesNo) = vbYes Then
    FlgExit = True
    For i = 24 To 31
      Me.Controls("ComboBox" & i).Value = ComboBox1.Value
    Next i
    FlgExit = False
  End If
End Sub

A+

 

Dernière modification par un modérateur: 4 Novembre 2011

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 4 Novembre 2011

• #10

Re : changer la valeur de plusieurs combobox

Merci Bruno de te joindre à Pierrot93 pour me venir en aide, je vais essayer ta proposition et en attendant j'ai essayé la solution de Pierrot93 sur un petit classer elle fonctionne, mais quand je copie mon userform d'origine sur un autre classeur cela ne fonctionne pas comme vous pourrez le constater sur le fichier joint.

 

Pièces jointes

• Classeur2.xls

  37 KB · Affichages: 44
• Classeur2.xls

  37 KB · Affichages: 42
• Classeur2.xls

  37 KB · Affichages: 36

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 4 Novembre 2011

• #11

Re : changer la valeur de plusieurs combobox

J'ai essayé tes deux solutions qui ne fonctionnent pas chez moi, je vais tester sur le classeur 2...

 

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 4 Novembre 2011

• #12

Re : changer la valeur de plusieurs combobox

J'ai trouvé un début de piste qui m'enfonce un peu plus dans le mystère!!!
Quand j'ouvre seul le fichier Classeur2 contenant le code de Pierrot93, ça marche...
si j'ouvre aussi mon fichier original, ça marche plus ??????
défaillance d'Excel ou de mon PC ???
Avez vous une solution ?

 

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 4 Novembre 2011

• #13

Re : changer la valeur de plusieurs combobox

j'ai supprimé les propriétés controlsource des combobox et ça marche:
Je vais fouiller de ce coté là.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Novembre 2011

• #14

Re : changer la valeur de plusieurs combobox

RE, bonjour Bruno🙂

oui, générateur de problème l'utilisation de "rowsource"... préférer l'alimentation par "list" ou "additem".

As tu testé, comme le péconise Bruno avec l'événement "AfterUpdate", et ce en remplacant TOUS les événements "change" des combo concernés par leur événement "AfterUpdate" respectif.

 

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 4 Novembre 2011

• #15

Re : changer la valeur de plusieurs combobox

Oui j'ai essayé sans succès l'événement "AfterUpdate" du combobox 23 à partir duquel les valeurs des autres combobox doivent changer mais à part le 23, aucun changement dans les autres combobox ne doit déclencher une procédure donc leur événement "AfterUpdate" n'est pas utilisé.
Comment remplacer l'utilisation de "rowsource" par "list" ou "additem" ??

 

Vote positif 0 Vote négatif