[VBA-E]Déclenchement combobox sur la frappe des caractères

8-) Bonjour

Merci Michel et AlainTech pour votre aide précieuse sur la combobox. Je sais déclencher la combobox sur "Worksheet_change", mais comment faire pour la déclencher avec la frappe des premiers caractères?

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_Change(ByVal Target As Range) Dim co1 As Integer, li1 As Integer Application.EnableEvents = False co1 = ActiveCell.Column: li1 = ActiveCell.Row If co1 = 1 Then   UserForm1.Show   End If Application.EnableEvents = True End Sub

---

:koi:

Citation:

---

Envoyé par Lexot2

Je sais déclencher la combobox sur "Worksheet_change"

---

Ce qui veut dire???
Qu'appelles-tu "déclencher"?

D'après ton code, tu ouvres un UserForm sur un événement de ta feuille Excel.
Je n'y vois aucune référence à une ComboBox.
Je devine qu'elle doit être présente sur UserForm1 mais...
As-tu fait un UserForm avec juste une Combo dessus???

Petit commentaire qui n'a rien à voir:
Dans l'événement Change de ta feuille, Target est la cellule qui a déclenché l'événement. Tu peux donc simplifier ton code comme ceci:

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns(1)) Is Nothing Then UserForm1.Show End If End Sub

---

8-) Bonjour

j'ai un bon de commande pour des composants électroniques avec les colonnes suivantes :
Fournisseur Désignation Réf PU etc...

Je voudrais insérer le fournisseur par une macro excel de manière automatique. Il faudrait choisir un fournisseur parmi une dizaine environ. La possibilité d'ajouter ou retirer des fournisseurs de la liste serait aussi interessante.

C'est fait. J'ai réalisé un userform avec seulement une combobox (bien deviné!). Je déclenche l'userform avec "selection_change", ce qui me permet d'entrer dans la combobox.(ce n'est pas "Worksheet_change"!)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

Public li1 As Integer, co1 As Integer   Private Sub Worksheet_SelectionChange(ByVal Target As Range) co1 = ActiveCell.Column: li1 = ActiveCell.Row If co1 = 1 Then UserForm1.Show End If End Sub   Public co1 As Integer, li1 As Integer Dim fourn As String   Private Sub CommandButton1_Click() ' Bouton Valider choix   UserForm1.Hide Application.ScreenUpdating = False ' fourn = ComboBox1.Value ' Stockage du choix effectué dans la liste déroulante en D2 Cells(li1, 1).Value = fourn Cells(li1 + 1, 1).Activate End Sub   Private Sub CommandButton2_Click() ' Bouton Annuler UserForm1.Hide End Sub   Private Sub CommandButton3_Click() ' Bouton Modifier End Sub   Private Sub UserForm_Activate() co1 = ActiveCell.Column: li1 = ActiveCell.Row If co1 = 1 Then Range("M1") = li1 Me.ComboBox1.ListIndex = -1 ComboBox1.SetFocus End If End Sub     Private Sub UserForm_Initialize() Me.ComboBox1.RowSource = "Feuil1!A101:A" & Sheets("Feuil1").Cells(101, 1).End(xlDown).Row End Sub

---

1.Peut-on ouvrir l'userform avec un autre évènement tels que l'entrée des premiers caractères de la combo?
2.Comment cacher l'userform avec la touche "Esc"? J'ai essayé "Onkey"!!!
3.Comment bloquer l'exécution d'une ou des macros par un code? (ex : bouton à bascule un clic=bloque un 2ème=débloque)

J'ai déjà fait un gros travail seul. Je ne refuserai donc pas un coup de pouce!
Encore un grand merci.

Citation:

---

Envoyé par Lexot2

j'ai un bon de commande pour des composants électroniques avec les colonnes suivantes :
Fournisseur Désignation Réf PU etc...

---

D'après ce que j'en comprends, ton formulaire de saisie du bon de commande est la feuille Excel elle-même.

Vu le peu de souplesse de ce système, je ne travaille que rarement de cette manière.

Je préfère, de loin, créer un (ou des) UserForm adapté(s) à la partie de saisie concernée.

Citation:

---

Envoyé par Lexot2

Je déclenche l'userform avec "selection_change"

---

SelectionChange est piégeux pour l'utilisateur.
Si, par hasard, la sélection est déjà sur la cellule que l'utilisateur veut modifier, il ne saura pas quoi faire.

SelectionChange a le même paramètre Target que Change.
Le code donné plus haut reste d'application.

Citation:

---

Envoyé par Lexot2

1.Peut-on ouvrir l'userform avec un autre évènement tels que l'entrée des premiers caractères de la combo?

---

??? Caractères tapés dans la Combo alors qu'elle n'est pas encore affichée???
Faudrait mieux expliquer le résultat que tu attends.

Citation:

---

Envoyé par Lexot2

2.Comment cacher l'userform avec la touche "Esc"? J'ai essayé "Onkey"!!!

---

Place un bouton avec la propriété Cancel à True sur le UserForm.

Citation:

---

Envoyé par Lexot2

3.Comment bloquer l'exécution d'une ou des macros par un code? (ex : bouton à bascule un clic=bloque un 2ème=débloque)

---

Case à cocher?
Ou alors, un bouton dont tu changes le Caption à chaque clic.
Il te suffit de relire le Caption pour connaître l'état du bouton.

8-) Bonjour

Je n'arrive pas à ouvrir l'userform, de manière automatique, par la frappe des caractères avec ce code :

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns(1)) Is Nothing Then UserForm1.Show End If End Sub

---

Merci pour toute l'aide que je reçois

Tu as bien mis le code dans la Feuille où tu tapes?

Tu tapes bien quelque chose dans la colonne 1?
Si tu veux une autre colonne, il faut modifier cette partie-là:

Code:

---

Columns(1))

---

8-) Bonjour

Un évènement workseet_change exige un changement de valeur dans la cellule suivi d'une validation par "Enter". Cette solutlon ne peut convenir, car l'évènement est déclenché sans validation. Merci de t'interesser à mon problème.