Discussion :

[Nix Hex]

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 :

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

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

[casefayere]

Bonjour,

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

Code :

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

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

ou

Code :

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

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

[Nix Hex]

C'est exactement ça, merci infiniment !!