Erreur automation excel 2010 et combobox

gusmp - 5 mai 2014 à 13:41
cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 - 5 mai 2014 à 15:17
Bonjour à tous.

Voila j'ai un soucis qui est apparue lors de mon passage de excel 2003 à excel 2010.

J'explique:
dans un userform il y a une textbox1 (dans laquelle je rentre le nom de la personne) et a côté une combobox dans laquelle apparaitra le prenom de la personne en fonction du nom inscrit dans la textbox 1.

les noms et prénom sont contenue dans une feuille "liste personnel".

Avant avec 2003 aucun soucis.

Depuis le passage à 2010 assez aléatoirement mais trés souvent lorsque je met le nom de la personne et que je clique dans la combobox excel plante ou de temps en temps affiche erreur automation (le mode debogage est alors dispo mais si je clique dessus ca plante).

Après plusieurs recherche il apparait que l'erreur se situe dan sle code suivant:


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim DerLig As Long, Compt As Integer
With Worksheets("Liste personnel")
DerLig = .Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To DerLig
If UCase(.Cells(i, 1)) = UCase(TextBox1) Then
ComboBox1.AddItem .Cells(i, 2)
ComboBox1.List(ComboBox1.ListCount - 1, 1) = i
Compt = Compt + 1
End If
Next
If Compt = 0 Then MsgBox "Pas de correspondance "
End With
End Sub

Je ne trouve pas l'erreur sachant que sur 2003 sa fonctionnait.

Quelqu'un aurais une idée?

En vous remerciant d'avance

1 réponse

cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 23
5 mai 2014 à 15:17
Est-ce que ça pourrait être relié à une référence dans ton classeur ?

Y a-t-il des références particulières de cochées ?
0
Rejoignez-nous