gusmp
-
5 mai 2014 à 13:41
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 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.