Discussion :

[phileasdav]

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

[patricktoulon]

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 :

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

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é

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

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

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

; c'est a dire?

merci
Phileas