Discussion :

[dreloman]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[helios77]

Avant de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ComboBox1.Enabled = False

Rajoute ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

ComboBox1.Enabled = True

[dreloman]

Il me fais toujour la meme erreur debug sur combobox.activate

[helios77]

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

[dreloman]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 jamais