XL 2013 pb avec mon code

[mat.cas]

bonjour
j'ai un problème avec mon code en PJ : erreur d'exécution '-2147024809 (80070057) object spécifié introuvabe
et voici mon code.

Option Explicit
Dim Ws As Worksheet

'Pour le formulaire
Private Sub UserForm_Initialize()
Dim J As Long
Dim I As Integer
ComboBox2.ColumnCount = 1 'Pour la liste statut
ComboBox2.List() = Array("", "Prospect", "Client", "Pas_intéressé", "En_cours")
Set Ws = Sheets("Clients") 'Correspond au nom de votre onglet dans le fichier Excel
With Me.ComboBox1
For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
.AddItem Ws.Range("A" & J)
Next J
End With
For I = 1 To 11
Me.Controls("TextBox" & I).Visible = True
Next I
End Sub

'Pour la liste déroulante Code client
Private Sub ComboBox1_Change()
Dim Ligne As Long
Dim I As Integer
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox1.ListIndex + 2
ComboBox2 = Ws.Cells(Ligne, "B")
For I = 1 To 11
Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 2)
Next I
End Sub

'Pour le bouton Nouveau contact
Private Sub CommandButton1_Click()
Dim L As Integer
If MsgBox("Confirmez-vous l’insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then
L = Sheets("Clients").Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
Range("A" & L).Value = ComboBox1
Range("B" & L).Value = ComboBox2
Range("C" & L).Value = TextBox1
Range("D" & L).Value = TextBox2
Range("E" & L).Value = TextBox3
Range("F" & L).Value = TextBox4
Range("G" & L).Value = TextBox5
Range("H" & L).Value = TextBox6
Range("I" & L).Value = TextBox7
Range("J" & L).Value = TextBox8
Range("K" & L).Value = TextBox9
Range("L" & L).Value = TextBox10
Range("M" & L).Value = TextBox11
End If
End Sub

'Pour le bouton Modifier
Private Sub CommandButton2_Click()
Dim Ligne As Long
Dim I As Integer
If MsgBox("Confirmez-vous la modification de ce contact ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox1.ListIndex + 2
Ws.Cells(Ligne, "B") = ComboBox2
For I = 1 To 11
If Me.Controls("TextBox" & I).Visible = True Then
Ws.Cells(Ligne, I + 2) = Me.Controls("TextBox" & I)
End If
Next I
End If
End Sub

'Pour le bouton Quitter
Private Sub CommandButton3_Click()
Unload Me
End Sub
[/COLOR]





pouvez vous m'aider?

Merci

 

[Modeste geedee]

Re : pb avec mon code

Bonsour®
quel objet ???
quelle procédure ???
quelle ligne de code ???

Myroska êtes-vous là ???

 

[mat.cas]

Re : pb avec mon code

Bonjour,
Pour l'objet je ne sais pas.
je ne suis pas un expert et j'ai suivi un tutoriel sur internet pour faire un formulaire pour remplir une base de donnée de client potentiel.
j'espère avoir été assez claire.
quand j'ai voulu tester le formulaire j'ai appuyé sur F5 et j'ai eu le message d'erreur que j'ai écris dans le message précédent.
Matcas

 

[Modeste geedee]

Re : pb avec mon code

Bonsour®
je ne suis pas Myroska !!!
alors un autre tutoriel :
https://fr.wikiversity.org/wiki/Macros-commandes_VBA/Débogage

 

[Dranreb]

Re : pb avec mon code

Bonsoir.
Je soupçonne un Me.Controls("TextBox" & I) qui n'existerait pas.
Je soupçonne aussi que vous n'avez pas d'arrêt dans le module de l'UserForm vous permettant de repérer facilement l'instruction en cause. Pour remédier à cela, menu Outils, Options…, onglet Général, rubrique Récupération d'erreurs, cochez Arrêt dans le module de classe.

 

[Modeste geedee]

Re : pb avec mon code

Bonsour®

Pour remédier à cela, menu Outils, Options…, onglet Général, rubrique Récupération d'erreurs, cochez Arrêt dans le module de classe.

en débogage didactique , je préconiserai même :
Arrêt sur toutes les erreurs