COMBOBOX ET USERFORM

[GHISLAIN]

Bonjour a tous

voila je souhaite quand je clique sur mon combobox et selectionne une valeur que ça m'ouvre un userform correspondant a m'a selection quand je click sur le bouton enregistrer

merci a toute les solutions proposées


amicalement

GHISLAIN



[file name=Classeur1_20060404141748.zip size=10459]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060404141748.zip[/file]

 

[ninou58]

Bonjour,
si j'ai bien compris

Private Sub CommandButton1_Click()

If ComboBox1.Text = 'bleu' Then
BLEU.Show
End If

If ComboBox1.Text = 'rouge' Then
ROUGE.Show
End If
If ComboBox1.Text = 'blanc' Then
BLANC.Show
End If

End Sub

 

[Hervé]

Bonjour ghislain, ninou.

une autre syntaxe possible :

Private Sub CommandButton1_Click()
Select Case ComboBox1.ListIndex
        Case -1: Exit Sub
        Case 0: BLEU.Show
        Case 1: BLANC.Show
        Case 2: ROUGE.Show
End Select
End Sub

salut

 

[Blunet]

Private Sub CommandButton1_Click()
Dim Choix
Choix = UserForm1.ComboBox1.Value
Select Case Choix
Case 'blanc'
UserForm1.Hide: BLANC.Show
Case 'bleu'
UserForm1.Hide: BLEU.Show
Case 'rouge'
UserForm1.Hide: ROUGE.Show
End Select
End Sub

 

[MichelXld]

bonsoir à tous

une autre possibilité

Private Sub CommandButton1_Click()
If Not ComboBox1.ListIndex = -1 Then VBA.UserForms.Add(ComboBox1.Value).Show
End Sub


bonne soirée
MichelXld

 

[Hervé]

re tout le monde, cher michel

ben voilà, j'ai cherché cette p.....n de syntaxe toute l'apres midi (j'abuse un peu là).

j'etais sur que c'etait possible

merci michel

salut

 

[GHISLAIN]

bonjour a tous

désolé de n'avoir pu passer avant , je tien a vous remercier tous du temps passé sur mon fil
je vais mettre tous ça en application sur mon projet

je vous souhaite une bonne journee et merci encore

amicalement

GHISLAIN

 

[GHISLAIN]

re a tous

j'ai mis en oeuvre vos solutions elles fontionnent merci encore

j'aurai par contre un peu dans le meme style une autre demande
sur l'autre je demander que l'userform s'ouvre par rapport a la selection effectuée dans la combobox
dans ce nouveau probleme , je souhaiterai que l'ouverture de l'userform s'effectue par rapport a la selection d'une des trois combobox sans tenir compte de la selection effectuée dans l'un des combobox
je souhaiterai que si je selectionne une valeur sur la combobox rouge ça m'ouvre l'userform appelé rouge sans ouvrir les autres

que si que si je selectionne une valeur sur la combobox bleu ça m'ouvre l'userform appelé bleusans ouvrir les autres

que si que si je selectionne une valeur sur la combobox blanc ça m'ouvre l'userform appelé blanc sans ouvrir les autres

la formule sera placée sur le bouton enregistrer

ci joint un fichier de ce que je souhaite faire

merci a tous de votre aide

Amicalement

GHISLAIN [file name=Classeur1_20060405091708.zip size=13979]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060405091708.zip[/file]

 

[Hervé]

Bonjour tout le monde

en pièce jointe, ton fichier modifé.

je suis passé par les tag dex controles.

salut [file name=Classeur1_20060405110810.zip size=15340]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060405110810.zip[/file]

 

[GHISLAIN]

Bonjour Hervé

je venais de mettre un nouveau fil pensant que c'etait un probleme different et je m'attendais pas a recevoir une reponse aussi rapide de ta part

je tiens toute fois a te remercier mille fois de ton aide

AMICALMENT

GHISLAIN

 

[GHISLAIN]

re re

désolé de te solliciter encore une fois

sur la solution que tu m'a proposé l'ouverture s'effectue si la valeur de la textbox a le meme nom que l'userform

si l'userform comporte un nom different par rapport a la textbox comment lui demander d ouvrir le bon userform

j'ai modifier le modele sur le fichier joint

merci encore

GHISLAIN [file name=Classeur1_20060405113024.zip size=14335]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060405113024.zip[/file]

 

[Hervé]

re tout le monde

A un moment, ghislain, il va te falloir mettre en liaison les combobox et les userforms, c'est à dire faire comprendre au code que telle combo correspond à telle usf.

plusieurs méthodes pour ceci, en voici deux :

soit directement dans le code, comme ceci :

Private Sub CommandButton1_Click()
Dim i As Byte

For i = 2 To 4
        If Not Controls('Combobox' & i).ListIndex = -1 Then
                Select Case i
                        Case 2: BLEU2.Show
                        Case 3: BLANC1.Show
                        Case 4: ROUGE3.Show
                End Select
        End If
Next i

End Sub

et si tu modifies les noms de tes userforms, tu viendra modifier ton code en conséquence.

soit, tu stocks, dans le tag de chaque combobox, le nom de l'userform correspondant.

le tag se trouve dans les propriétés des combobox, c'est une zone de stockage qui permet de garder un renseignement concernant le ctrl.

si tu changes le nom de tes usf, tu dois modifier les tag des controles.

et dans ce cas, tu peux utiliser la macro que je t'ai donnée.

Private Sub CommandButton1_Click()
Dim ctrl As Control

For Each ctrl In Me.Controls
        If Not ctrl.Tag = '' Then
                If Not ctrl.ListIndex = -1 Then
                        VBA.UserForms.Add(ctrl.Tag).Show
                End If
        End If
Next ctrl

End Sub

en pièce jointe ton fichier modifier avec la méthode des tags.

voilà

salut [file name=Classeur1_20060405115440.zip size=14007]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060405115440.zip[/file]

 

[GHISLAIN]

re Hervé ,
bien je te remercie de toute tes explications techniques et je vais fortement me pencher dessus pour en saisir toutes les astuces .

je tien a te remercier encore de ton aide et du temps passé sur mon fil

en te souhaitant une bonne fin semaine .

AMICALEMENT

GHISLAIN