Discussion :

[Lexot2]

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 :

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

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

[AlainTech]

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 :

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

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

[Lexot2]

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 :

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
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.

[AlainTech]

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.

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.

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.

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.

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.

[Lexot2]

Bonjour

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

Code :

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

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

[AlainTech]

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 :

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

Columns(1))