Programmer deux combobox sur le même UserForm

Résolu/Fermé

galerienVBA Messages postés 3 Date d'inscription mercredi 18 juin 2014 Statut Membre Dernière intervention 18 juin 2014 - Modifié par pijaku le 18/06/2014 à 12:12
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 18 juin 2014 à 14:55

Bonjour à tous,

Je cherche à configurer deux combobox figurant sur le même UserForm. J'ai réussi à configurer la première combobox en recourant au code suivant :

Private Sub UserForm_Initialize()
Dim i As Long
With Sheets("Motifs")
  For i = 2 To 10
      MotifsInfo.AddItem .Cells(i, 1)
  Next i
End With

Je voulais utiliser la même structure en changeant la source ("Motifs"--> "Motifs2") mais ça ne donne rien :

Private Sub UserForm_Initialize()
Dim j As Long
With Sheets("Motifs2")
  For j = 2 To 11
      MotifsInfo.AddItem .Cells(j, 1)
  Next i
End With

N.B : la feuille ("Motifs2") est la source de ma deuxième combo box, Excel me dit que le nom Private Sub UserForm_Initialize() est ambigu.

Pouvez vous m'aider ?

Merci d'avance

Clovis

A voir également:

Programmer deux combobox sur le même UserForm
Deux comptes whatsapp - Guide
Deux ecran pc - Guide
Programmer un sms - Guide
Itinéraire google map entre deux adresses - Guide
Programmer un mail gmail - Guide

3 réponses

Réponse 1 / 3

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
Modifié par pijaku le 18/06/2014 à 12:15

Bonjour,

Tu essaies d'utiliser deux fois le même événement. CEla n'est pas possible.
Il te faut regrouper tes deux procédures dans le même

UserForm_Initialize

. Comme ceci :

Private Sub UserForm_Initialize()
Dim i As Long, j As Long
With Sheets("Motifs")
  For i = 2 To 10
      MotifsInfo.AddItem .Cells(i, 1)
  Next i
End With

With Sheets("Motifs2")
  For j = 2 To 11
      MotifsInfo.AddItem .Cells(j, 1)
  Next i
End With
End Sub

Cordialement,
Franck

Réponse 2 / 3

galerienVBA Messages postés 3 Date d'inscription mercredi 18 juin 2014 Statut Membre Dernière intervention 18 juin 2014
18 juin 2014 à 13:45

Fantastique ! Merci beaucoup Franck !!!

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
18 juin 2014 à 13:50

Mais de rien.
N'hésite pas.
A+

Réponse 3 / 3

galerienVBA Messages postés 3 Date d'inscription mercredi 18 juin 2014 Statut Membre Dernière intervention 18 juin 2014
18 juin 2014 à 14:51

j'ai une autre question,

je voudrais alimenter une feuille de calcul à partir de la saisie effectuée sur une text box.

En gros le collaborateur doit saisir un motif non défini dans les listes déroulantes, dans la zone de commentaires de l'USERFORM (sous forme de text box). Or je n'arrive pas à determiner un code adéquat.

Pouvez vous m'aider ?

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
18 juin 2014 à 14:55

je voudrais alimenter une feuille de calcul à partir de la saisie effectuée sur une text box.

Un commandButton "VALIDER" sur l'Userform, le code de ce bouton sera :

Private Sub CommandButton1_Click()
Sheets("Feuil2").Range("D76").Value = TextBox1.Value
End Sub

Discussions similaires

Un seul de mes écouteurs marche. Que faire ?

programme qui n'affiche pas le mot secret

2 comptes facebook avec même mail et même nom

Un seul de mes écouteurs iPhone fonctionne. Que faire ?

Une des deux oreillettes bluetooth ne marche pas

Discussions similaires

Newsletters