ComboBox False ou True

Version imprimable

Bonjour a tous , voila mon petit souci pas grave mais utile ;) J'ai un comboBox je voudrais qu'il soit False puis True mais je n'arrive pas a mettre le code si quelqu'un serrais me donner la solution merci d'avance :king:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Nouvo_Client()
Dim Nom2 As String
    With Worksheets(1).Range("A55:A100")
        Set c = .Find(Nom, LookIn:=xlValues)
        If Not c Is Nothing Then
            Range(c.Address).Select
            Do While ActiveCell.Value <> ""
                ActiveCell.Next.Select
            Loop
            ComboBox1.Enabled = False
            Nom2 = InputBox("Entrée le Nom du nouveau Client", "NOUVEAUX CLIENTS")
            ActiveCell.Value = Nom2
            Range("A55:A100").Select
            Selection.Sort Key1:=Range("A55"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
            Range("A4").Select
            ComboBox1.Enabled = True
        End If
    End With
End Sub

11/07/2008, 10h58
helios77

Avant de faire

Code:

ComboBox1.Enabled = False

Rajoute ceci

Code:

ComboBox1.activate

Et là, ca passe ta combobox à l'état inactif avant de le remettre à l'état actif
Peut-tu devras aussi rajouter ce bout de code avant

Code:

ComboBox1.Enabled = True
11/07/2008, 11h09
dreloman

Il me fais toujour la meme erreur debug sur combobox.activate
:?
11/07/2008, 11h16
helios77

il te met quoi comme message ?
Tu as bien orthographié le nom de ta combobox ?

Merci helios77 de m'avoir mis sur la bonne direction ,j'ai trouver ou le mettre

en faite j'ai créer un bouton_click() puis mis la macro dedans et sa fonctionne :king::yaisse2:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton1_Click()
Dim Nom2 As String
    With Worksheets(1).Range("A55:A100")
        Set c = .Find(Nom, LookIn:=xlValues)
        If Not c Is Nothing Then
            Range(c.Address).Select
            Do While ActiveCell.Value <> ""
                ActiveCell.Next.Select
            Loop
            ComboBox1.Activate
            ComboBox1.Enabled = False
            Nom2 = InputBox("Entrée le Nom du nouveau Client", "NOUVEAUX CLIENTS")
            ActiveCell.Value = Nom2
            Range("A55:A100").Select
            Selection.Sort Key1:=Range("A55"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
            Range("A4").Select
            ComboBox1.Enabled = True
        End If
    End With
End Sub

Voila comme sa si sa peut aider quelqu'un d'autre on ne sais jamais8-)