Optimisation code avec boucle

Version imprimable

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:calim2:

Code:

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

bonjour
optimiser quoi?
l'ecriture du code ou la vitesse
en terme de vitesse tu gagnera rien en bouclant

en terme d'ecriture de code il y a diverses manieres de faire

mais je vois un "etc.." en fin de code :peu etre que si tu veux que l'on aide il faudrait donner le code en entier, tout du moins pour ce qui est du tranfert de données

;)
en l'etat sans connaitre le reste du code pour eclairsir le code boucle
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim e With Sheets("Data") For e = 0 To 2 .Range("a" & i + 1 + e).Value = .Range("a" & i).Value + 1+e .Range("b" & i + 1 + e).Value = Me.Controls("ComboBox" & (1 + e)).Value .Range("c" & i + 1 + e).Value = Me.Controls("ComboBox" & (101 + e)).Value .Range("d" & i + 1 + e).Value = Me.Controls("ComboBox" & (121 + e)).Value .Range("e" & i + 1 + e).Value = Me.Controls("ComboBox" & (141 + e)).Value .Range("f" & i + 1 + e).Value = Me.Controls("ComboBox" & (161 + e)).Value Next 'etc... End With
peu etre devrait tu t'intérésser au events calculate et autre joyeuseté

27/09/2018, 08h43
phileasdav

Bonjour et merci Patrick de ta réponse

pour la question sur l'optimisation , c'est le code que je souhaite optimiser et non la vitesse,
PS:le "ect." était pour exprimer la suite des combobox a renseigner !!

pour être plus clair et plus précis dans ma demande:
J'ai un usf qui comporte 200 combobox à remplir
10 colonnes (colonne 1 -->combobox de 101 a 120 , colonne 2 -->121 à 140 , colonne 3 de 141 à 160, etc.)sur 20 lignes , je souhaites que chaque ligne soient enregistrer en un en une seule fois dans une feuille excel (pour générer une table)

Code:

peu être devrait tu t'intérésser au events calculate et autre joyeuseté

; c'est a dire?:roll:

merci
Phileas