Bonjour;
Je me remet depuis peu sur excel VBA
Je cherche a créer une boucle d'un userform sur une feuille excel afin de copier plusieurs lignes à la suite suivant les combobox renseignés
ça fonctionne avec le code ci dessous mais je pense qu'il y a plus simple avec une boucle d'autant que j'ai une centaine de combobox a renseigner, si quelqu’un peut m'aider ?
Merci d'avance
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
23
24
25 With Sheets("Data") .Range("a" & i + 1).Value = .Range("a" & i).Value + 1 .Range("b" & i + 1).Value = ComboBox1.Value .Range("c" & i + 1).Value = ComboBox101.Value .Range("d" & i + 1).Value = ComboBox121.Value .Range("e" & i + 1).Value = ComboBox141.Value .Range("f" & i + 1).Value = ComboBox161.Value .Range("a" & i + 2).Value = .Range("a" & i).Value + 2 .Range("b" & i + 2).Value = ComboBox2.Value .Range("c" & i + 2).Value = ComboBox102.Value .Range("d" & i + 2).Value = ComboBox122.Value .Range("e" & i + 2).Value = ComboBox142.Value .Range("f" & i + 2).Value = ComboBox162.Value .Range("a" & i + 3).Value = .Range("a" & i).Value + 3 .Range("b" & i + 3).Value = ComboBox3.Value .Range("c" & i + 3).Value = ComboBox103.Value .Range("d" & i + 3).Value = ComboBox123.Value .Range("e" & i + 3).Value = ComboBox143.Value .Range("f" & i + 3).Value = ComboBox163.Value etc. End With
A vous lire
Phileas
Partager