Discussion :

[Miraie]

Bonjour,

Voici mon problème, dans mes feuilles de calcul, j'ai des macros qui s'actionnent lorsqu'il il a un texte précis dans une cellule. Ces textes sont des noms de personne, prénom et nom de famille. J'aimerais que si j'écris "An", Excel complète la cellule en inscrivant Andrée-Anne Lajoie. J'ai essayé de faire des listes déroulantes, mais ces dernières ne semblent pas prendre la saisie en compte. Auriez-vous une solution?

Merci pour votre aide.

[Guy7700]

Bonjour,

Regarde ici : https://www.developpez.net/forums/d1...google-search/

Bàt,

[Miraie]

Merci Guy7700,

Par contre j'ai beau essayer, quand j'essaie de convertir le script à mon document, je reçois toujours une erreur de compilation: Type défini par l'utilisateur non défini. Pourtant, quand j'essaie le fichier de boisgontierjacques je n'ai pas le message d'erreur. Les seul modification que j’ai apporté est la plage A2:A16 pour C4:H46 et la sheets et le range de la liste source. Sauriez-vous pourquoi je reçois ce message d’erreur?

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
Dim a()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect([C4:H46], Target) Is Nothing And Target.Count = 1 Then
    a = Sheets("Chauffeurs").Range("chauffeurs").Value
    Me.ComboBox1.List = a
    Me.ComboBox1.Height = Target.Height + 3
    Me.ComboBox1.Width = Target.Width
    Me.ComboBox1.Top = Target.Top
    Me.ComboBox1.Left = Target.Left
    Me.ComboBox1 = Target
    Me.ComboBox1.Visible = True
    Me.ComboBox1.Activate
    If Target <> "" And Val(Application.Version) > 10 Then SendKeys "{esc}"
    'Me.ComboBox1.DropDown    ' ouverture automatique au clic dans la cellule (optionel)
  Else
    Me.ComboBox1.Visible = False
  End If
End Sub
Private Sub ComboBox1_Change()
 If Me.ComboBox1 <> "" Then
   Set d1 = CreateObject("Scripting.Dictionary")
   tmp = UCase(Me.ComboBox1) & "*"
   For Each c In a
     If UCase(c) Like tmp Then d1(c) = ""
   Next c
   Me.ComboBox1.List = d1.keys
   Me.ComboBox1.DropDown
 End If
   ActiveCell.Value = Me.ComboBox1
End Sub
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Me.ComboBox1.List = a
  Me.ComboBox1.Activate
  Me.ComboBox1.DropDown
End Sub
 
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then ActiveCell.Offset(1).Select
End Sub

[Pierre Fauconnier]

Salut.

Il te manque la référence Microsoft Forms 2.0 Object Library. Pour l'activer, tu peux

• soit, dans le VBE, aller dans Outils/Références, puis la cocher;
• soit ajouter un userform à ton classeur (puis éventuellement le supprimer), cela activera cette référence.

Tu peux aussi utiliser simplement un Boolean.

[Miraie]

Merci M.Fauconnier,
Par contre je ne suis pas capable de rajouter cette référence. Elle n'est pas listée.

Il y a t'il un moyen de le rajouté?

[Miraie]

J'ai trouvé le .dll manquant sous C:\Windows\System32. Le dll se nomme FM20.dll. Par contre une nouvelle erreur survient. Erreur de compilation: Membre de méthode ou de données introuvable

Qu'est-ce qui ne vas pas?

[Pierre Fauconnier]

Etonnant...

Je suppose que tes listes déroulantes sont sur une feuille Excel. Essaie d'ajouter un userform à ton classeur. Si tu ajoutes un usf, la référence devrait apparaître cochée dans la liste.