Aide sur valeur combobox dans une boucle

[natorp]

Bjr à tous et à toutes

J'ai ce code et je ne sais comment ecrire ni où mettre
si Combobox1.value = "R" alors i = 41
si Combobox2.value = "R" alors j = 41

For i = 1 To 41
For j = 1 To 41
If ComboBox1.Value = i And ComboBox2.Value = j Then
Range("B" & 13 + (i * 36) - 36 & ":" & "K" & 31 + (i * 36) - 36).Select
Selection.Copy
Range("B" & 49 + (j * 36) - 72).Select
ActiveSheet.Paste
Range("A1").Select
ActiveWindow.ScrollRow = 5
End If
Next j
Next i

Peut-être m^me qu'il y a une meilleure façon d'écrire tout ça ....

Merci de votre attention, cordialement
Gérard

 

[skoobi]

Re : Aide sur valeur combobox dans une boucle

Bonjour,

il faudrait que tu nous expliques ce que tu veux faire ou ce que doit faire cette macro.