1 pièce(s) jointe(s)
EXCEL 365 VBA Erreur de compilation
Bonjour,
J'ai un fichier Excel avec du code qui fonctionnait très bien jusqu'en juillet 2020.
Depuis, j'dès que j'essaye de l'utiliser j'ai un message d'erreur "Erreur de compilations : Membre de méthode ou de donnés introuvable.
et ce sur le code suivant :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([Ecobus[ecole]], Target) Is Nothing And Target.Count = 1 Then
'Sheets("Ecole").Range("AA1") = ComboBox1.Value
choix1 = Application.Transpose(Sheets("ecole").Range("recherche").Value)
Me.ComboBox1.List = choix1
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
Me.ComboBox1.DropDown
Else
Me.ComboBox1.Visible = False
End If
'----
End Sub |
Pièce jointe 581600
Est-ce que quelqu'un a une idée ?
En vous remerciant d'avance