[Résolu] ComboBox et boucle

Version imprimable

Bonsoir à tous,

étant totalement néophyte en VBA, je viens à vous pour demander de l'aide.

Je m'explique, je souhaite faire un petit userform avec un combobox de ce type :
Code:

1 2 3 4 5 6 7 8 9 Private Sub ComboBox1_Change() If ComboBox1.Value = 25 Then Worksheets("Distribution").Range("D12").Value = Worksheets("A").Range("J6").Value Worksheets("Distribution").Range("D13").Value = Worksheets("A").Range("J37").Value Worksheets("Distribution").Range("D14").Value = Worksheets("A").Range("J68").Value Worksheets("Distribution").Range("D15").Value = Worksheets("A").Range("J99").Value Worksheets("Distribution").Range("D16").Value = Worksheets("A").Range("J130").Value End If
En gros je voudrais lorsque je choisis dans ma liste par exemple la valeur 26 (au lieu de 25 comme ici) que les ranges se transforment en J7, J38, J69, J100, J131 et ça, de manière automatique, parce que j'ai beaucoup de données à traiter..etc pour 27, 28, 29 qui décalerait les lignes en +1 à chaque fois.

Je sais pas si j'ai été très clair, je suis sur que pour des habitués ce genre de truc doit être tout bête à réaliser mais perso, n'y connaissant rien, je me casse la tête dessus.

Merci par avance si vous pouvez m'aider, j'en serai très reconnaissant.

Cordialement,
Nix Hex

Bonjour,

si j'ai compris, d'après l'exemple, une proposition à adapter :

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox1_Change()
Dim x As Integer
With Worksheets("Distribution")
  x = ComboBox1.Value - 25 'si 25 est le minimum dans la liste du Combo
  .Range("D12").Value = Worksheets("A").Range("J" & 6 + x).Value
  .Range("D13").Value = Worksheets("A").Range("J" & 37 + x).Value
  .Range("D14").Value = Worksheets("A").Range("J" & 68 + x).Value
  .Range("D15").Value = Worksheets("A").Range("J" & 99 + x).Value
  .Range("D16").Value = Worksheets("A").Range("J" & 130 + x).Value
End With
End Sub

Code:

1
2
3
4
5
6
7
8
9
Dim x As Integer
With Worksheets("Distribution")
  x = ComboBox1.Value - 25 'si 25 est le minimum dans la liste du Combo
  .Range("D12").Value = Worksheets("A").Cells(6 + x, 10).Value
  .Range("D13").Value = Worksheets("A").Cells(37 + x, 10).Value
  .Range("D14").Value = Worksheets("A").Cells(68 + x, 10).Value
  .Range("D15").Value = Worksheets("A").Cells(99 + x, 10).Value
  .Range("D16").Value = Worksheets("A").Cells(130 + x, 10).Value
End With

29/10/2013, 07h44
Nix Hex

C'est exactement ça, merci infiniment !!