25 COmboBox avec le même choix de variable

[bloomby]

Bonjour à tous,

J'ai 25 ComboBox dans mon userForm
les 25 sont relié aux même variable C'est-à-dire on peu choisir

A,B,C,D,E,F,G

Est-ce qu'il y aurait une facon d'obtimiser le code ou je dois définir chaque combobox avec (aray ...)

Merci

 

[bqtr]

Re : 25 COmboBox avec le même choix de variable

Bonsoir,

As tu essayé de faire une boucle sur les combo et de mettre ton tableau de valeur comme liste ?

A+

Edit : comme ceci dans la procédure d'initialisation du USF:

'.../...
Dim k As Byte
For k = 1 To 25
  Controls("Combobox" & k).List = Array("A", "B", "C", "D", "E", "F", "G")
Next
'.../...

 

[bloomby]

Re : 25 COmboBox avec le même choix de variable

Salut Pierre-Oliver,

Je n'est pas encore eu le temps d'essayer, mais je vais tester ton code
dès demain

merci de ton aide

 

[bloomby]

Re : 25 COmboBox avec le même choix de variable

Salut Pierre-Olivier,

Je viens d'essayer ton code et cela fonctionne à merveille
merci beaucoup
je gagne beaucoup de temps et d'espace avec cette boucle
c'est Génial 😀

Je me permettrais même de te demander si tu aurais une solution pour les textbox
j'en est plusieurs la seule chose qui change c'est que textBox +1 = +1 colonne

pour bien me faire comprendre voici un exemple:

Range("C" & Ligne) = TextBox2 ' #dossier
Range("D" & Ligne) = TextBox3 ' Nom
Range("E" & Ligne) = TextBox4 ' Prenom
Range("F" & Ligne) = TextBox5 ' Email
Range("G" & Ligne) = TextBox6 ' Tel
Range("H" & Ligne) = TextBox7 ' Notes
...
est-ce que cela serais possible d'optimiser ce code avec une boucle ?
demême que le suivant

TextBox30 = Sheets("Sheet1").Range("AA3").Value
TextBox31 = Sheets("Sheet1").Range("AB3").Value
TextBox32 = Sheets("Sheet1").Range("AC3").Value
...

Merci de ton aide 🙂

 

[bqtr]

Re : 25 COmboBox avec le même choix de variable

Bonsoir bloomby,

Pour le 1 cas :

Dim k As Byte, Col As Byte, ligne As Byte
Col = 3
With Sheets("Feuil2")
  For k = 2 To 7
    .Cells(ligne, Col) = Controls("TextBox" & k)
    Col = Col + 1
  Next
End With

Col = 3, on commence à la 3èmè colonne, colonne C
ligne correspond à ta variable ligne 😀

Pour le 2ème cas :

Private Sub UserForm_Initialize()
Dim k As Integer, Col As Byte
Col = 27
For k = 30 To 32
  Controls("TextBox" & k) = Sheets("Feuil2").Cells(3, Col)
  Col = Col + 1
Next
End Sub

Col = 27, 27 est le n° de la colonne AA

A+

 

[bloomby]

Re : 25 COmboBox avec le même choix de variable

Bonjour Pierre Olivier,

Incoyable, écoute tu viens de changer ma vie 😀
c'est fou le temps que je gagner !!!!!!!!
mon code va être optimal et plus facile à suivre

je me demande déjà quesque je vais faire de mes temps libre 🙂

Franchement un gros merci !