Bonjour,

Voilà je suis un peu perdu. Chaque fois que je vois un programme (de vos solutions) qui devrait me convenir ou presque (adaptation nécessaire), j'ouvre une feuille Excel (MSO 365), j'essaie et cela ne fonctionne jamais. Pourquoi ?

Par exemple, code mis derrière une feuille Excel :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub ComboBox1_GotFocus()
  ... code
End Sub
____________________________________________________

J'ai réalisé un projet qui fonctionne très bien dont voici le code qui se trouve derrière une feuille Excel :

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
Dim b()
_____________________________________________________________
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If Not Intersect([J4:j152], Target) Is Nothing And Target.Count = 1 Then
         b = Sheets(F_Jou).Range("Joueurs").Value
         Me.ComboBox2.List = b
         Me.ComboBox2.Height = Target.Height + 3
         Me.ComboBox2.Width = Target.Width + 17
         Me.ComboBox2.Top = Target.Top
         Me.ComboBox2.Left = Target.Left
         Me.ComboBox2 = Target
         Me.ComboBox2.Visible = True
         Me.ComboBox2.Activate
         'If Val(Application.Version) > 10 Then SendKeys "{esc}"
         Me.ComboBox2.DropDown
      Else
         Me.ComboBox2.Visible = False
      End If
End Sub
________________________________________________________________
Private Sub ComboBox2_Change()
 ActiveCell.Value = Me.ComboBox2
End Sub
________________________________________________________________
Private Sub ComboBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Me.ComboBox2.List = b
  Me.ComboBox2.Activate
  Me.ComboBox2.DropDown
End Sub
________________________________________________________________
Private Sub ComboBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then ActiveCell.Offset(1).Select
End Sub

Ce que je ne comprends pas c'est que cela fonctionne dans mon premier projet, cela sans avoir défini de combobox, mais si j'essaie de reprendre ce code dans un autre projet avec les mêmes critères, nom des feuilles et liste identiques, cela ne fonctionne pas !
Pourriez-vous m'expliquer cela ?

Merci pour votre collaboration.