Combobox et variable

  • Initiateur de la discussion Initiateur de la discussion ChuBaKa
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

C

ChuBaKa

Guest
Bonjour au forum,

Une question des plus rapides :
dans la simple ligne suivante
Combobox1
Quelqu’un connaît-il la syntaxe pour remplacer le 1 par une variable 'a' déclarée comme un integer ?
Objectif : pouvoir incrémenter cette variable pour faire une même opération sur plusieurs combobox d'un même Userform.

J'espère que la question est claire.

Par avance, merci.

PS : Encore bravo à tous ceux qui animent ce site précieux et à ses administrateurs.
 
Merci pour ce code Bebere.
Je ne connaissais pas la fonction controls.
Je vais l'éssayer dans mon programme. Mes combobox se trouvent dans un Userfom1. Je vais tenter un truc du genre Userform1.controls('Combobox' & a).additem val val étant une variable de type string. En tous les cas merci à toi.
 
bonjour Chubaka
de maître Thierry et pour ta doc en voilà un autre

Private Sub Leon() 'Le Nettoyeur ;-)
Dim CTRL As Control

For Each CTRL In Me.Controls
If TypeOf CTRL Is MSForms.TextBox Then
CTRL = ''
ElseIf TypeOf CTRL Is MSForms.ListBox Or TypeOf CTRL Is MSForms.ComboBox Then
CTRL.Clear
End If
Next

End Sub

à bientôt
 
Bonjour Bebere,

La première syntaxe que tu m'as indiquée à parfaitement fonctionner.

Je vais regarder avec attention le second code de 'Maître Thierry'. Il pourrait simplifier le code que j'ai crée et rendre mon programme un peu plus rapide.

Encore merci à toi, à Thierry et à tous ceux qui animent ce forum et nous permettent chaque jour d'apprendre de nouveaux codes.

A bientôt.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
1
Affichages
219
Retour