XL 2013 pb avec mon code

  • Initiateur de la discussion Initiateur de la discussion mat.cas
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mat.cas

XLDnaute Nouveau
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
 

Pièces jointes

  • Capture1.JPG
    Capture1.JPG
    36 KB · Affichages: 42
  • Capture1.JPG
    Capture1.JPG
    36 KB · Affichages: 38
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
 
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.
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
281
Réponses
8
Affichages
233
Réponses
5
Affichages
232
Réponses
4
Affichages
177
Réponses
3
Affichages
194
Réponses
5
Affichages
182
Réponses
2
Affichages
202
Réponses
9
Affichages
201
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Retour