Discussion :

[T_onio]

Bonjour à toutes et à tous,

J'ai un classeur Excel avec deux combobox contenues dans les cellules A1 et A2. Ces deux combobox ont pour source une plage commune de différentes valeurs (une centaine).
Je me sers de ces deux combobox pour comparer les différentes valeurs qu’elles peuvent prendre.
En gros je sélectionne une valeur en A1 et une valeur en A2 et j’obtiens une valeur en B1.
Je cherche à mettre en place un bout de code VBA pour me permettre d’exécuter une macro à chaque combinaison de ces deux combobox.
En vadrouillant sur internet je suis tombé sur ce bout de code qui permet donc pour toutes les valeurs en A1 d’exécuter « mamacro ». Cependant à ce stade je suis quand même obligé de sélectionner manuellement les différentes valeurs dans A2 à chaque fois en sachant que j’ai une centaine de valeurs différentes, et donc à peu près 4950 combinaisons possible.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub combi ()
    For Each cell In Range("Plage A1")
   Sheets("feuille1").Range("A1") = cell.Value
  Call mamacro
 Next cell
End Sub

J'espère avoir exposé mon problème de manière claire..

Si je peux bénéficier de l'éclairage de quelqu'un ça ne serait pas de refus

Merci d'avance pour votre aide!

[pijaku]

Bonjour,

De ce que je crois avoir compris, une double boucle (pas optimal comme principe) devrait te faire l'effet escompté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub combi ()
Dim R1 As Range, R2 As Range
For Each R1 In Range("Plage A1")
   Sheets("feuille1").Range("A1") = R1.Value
   For Each R2 In Range("Plage A2")
      Sheets("feuille1").Range("A2") = R2.Value
      Call mamacro
   Next R2
Next R1
End Sub

Mais je penses que tu aurais tout intérêt à passer par des variables tableaux et à paramétrer ta macro mamacro.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub combi ()
Dim TbA1, TbA2, i As Integer, j As Integer, resCalcul  'As ??? à typer en fonction du résultat attendu
 
TbA1 = Range("Plage A1").Value
TbA2 = Range("Plage A2").Value
For i = LBound(TbA1) To UBound(TbA1)
   For j = LBound(TbA2) To UBound(TbA2)
      resCalcul = CalculeB1(TbA1(i), TbA2(j))
      Call mamacro resCalcul
   Next j
Next i
End Sub
 
Private Function CalculeB1(ValA1, ValA2) 'As ??? fonction à typer en fonction du résultat attendu
'ici tu places le code équivalant à la formule calculée en B1
   'retour de la fonction :
   'CalculeB1 = 
End Function
 
Private Sub mamacro(result)
  'ici le code de ta macro avec result qui remplace la valeur de ta cellule B1
End Sub