Discussion :

[WAXPX001]

Bonjour à tous,

Suite à des recherches j'ai pu trouver et adapter à ma situation le code vba suivant. Son but est d'afficher une suggestion de noms de produits lors de l'écriture dans une cellulle de la colonne B. La liste de produits est enregistré dans la feuille BD.

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect([B4:B20], Target) Is Nothing And Target.Count = 1 Then
    Set f = Sheets("BD")
    a = Application.Transpose(f.Range("A3:A" & f.[A65000].End(xlUp).Row))
    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
  Else
    Me.ComboBox1.Visible = False
  End If
End Sub
 
Private Sub ComboBox1_Change()
 If Me.ComboBox1 <> "" And IsError(Application.Match(Me.ComboBox1, a, 0)) Then
   Me.ComboBox1.List = Filter(a, Me.ComboBox1.Text, True, vbTextCompare)
   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

Ce vba fonctionne parfaitement sur Windows. Toutefois, il est impossible de le faire fonctionner sur Mac. Le message d'erreur affiché à l'ouverture est "méthode ou membre de données introuvable". Aucun réglage particulier n'a été effectué sur le Mac. Lors de la mise en route sur Excel Mac, seule la première ligne est surlignée en jaune.

Il s'agit de la première fois que j'utilise VBA donc n'hésitez pas à poser des questions qui peuvent vous sembler "idiote/simple". Toute aide / tip pour procéder à la modification de ce script pour qu'il fonctionne sur les deux OS serait super gentil.

Merci d'avance pour votre aide et belle journée à tous,

Pierre-Antoine

[Philippe Tulliez]

Bonjour,
Les contrôles ActiveX ne fonctionnent pas sur MAC