Fonctionnement Combobox en enregistrement de tâchesRésolu

Question

Bonjour! 

Je cherche à utiliser la fonction "combobox" dans les userforms à la fois en liste déroulante et également en écriture libre, jusque là tous va bien. Mais j'aimerais que lorsqu'une écriture libre est entrée dans la fonction  "combobox", elle s'incrémente dans la liste déjà existante de la fonction  "combobox". 

Quelqu'un connait-il la solution? 

Merci d'avance

demoiselle1263 · Accepted Answer

J'ai trouvé! Je passe pas par x mais par une autre variable lorsque les saisis sont différentes de la liste déjà existante: 

Private Sub CommandButton1_Click()

Dim x As Range
Dim valeur As String

counter = 1
i = 1
b = 0

Sheets("Database").Activate
Do
counter = counter + 1
Loop Until Cells(counter, 1) = ""
counter2 = counter - 1

Sheets("Feuil1").Activate
[a1] = ComboBox1.Value
valeur = [a1]

Sheets("Database").Activate
Set x = Sheets("Database").Range("A:A").Find(ComboBox1.Value, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then
'MsgBox "Code trouvé en " & x.Address
Else: b = 1
End If
If b = 1 Then
Do
i = i + 1
Loop Until Cells(i, 1) = ""
Cells(i, 1).Select
Cells(i, 1).Value = ComboBox1.Value
End If
UserForm1.Hide
End Sub

demoiselle1263 · Answer

Finalement j'ai réussit à écrire un bout de macro, mais il y a une erreur que je n'arrive pas à comprendre: 

Private Sub CommandButton1_Click()

Dim x As Range
Dim valeur As String

counter =  1
i = 1

Sheets("Database").Activate
Do
counter = counter + 1
Loop Until Cells(counter, 1) = ""
counter2 = counter - 1
'MsgBox counter2

Sheets("Feuil1").Activate
[a1] = ComboBox1.Value
valeur = [a1]

Sheets("Database").Activate

Set x = Sheets("Database").Range("A:A").Find(ComboBox1.Value, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then MsgBox "Code trouvé en " & x.Address
'MsgBox x

 If x <> ComboBox1  Then
Do
i  = i + 1
Loop Until Cells(i, 1) = ""
Cells(i, 1).Select
Cells(i, 1).Value = ComboBox1.Value
End If

UserForm1.Hide

End Sub

Le programme me marque: Erreur d'exécution 91 = variable objet ou variable de bloc with non définie

Quelqu'un a t-il la solution? 


Merci d'avance

cs_pacadebord · Answer

Bonjour,

Alors pour résumer, une feuille avec un bouton qui ouvre un userform ?
Mais où comptez vous mettre la combo ? Dans le userform, j'imagine.

Pac

cs_pacadebord · Answer

Demoiselle,

Vous devriez vous servir des évènements de la combobox prévus pour cela...

Pac

Fonctionnement Combobox en enregistrement de tâches

4 réponses

Votre réponse

Discussions similaires