Erreur d'execution '-2147024809 (80070057)
Bonsoir!
J'ai un soucis qui me tracasse depuis le début de l'après midi j'ai regarder plusieurs pages sur internet afin de trouver ma solution mais rien ne fonctionne...
J'ai réalisé un formulaire VBA aujourd'hui et je n'arrive pas a m'en servir après avoir rentrer les codes, le message " erreur d'exécution '-2147024809 (80070057)". J'ai fouiller dans mon code, virgules, espaces parenthèses.... mais rien ne fonctionne, si quelqu'un pourrait me venir en aide j'en serais très reconnaissante! Merci beaucoup
Bonne soirée à tous
voici mon code entré:
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 déroulante Civilité
ComboBox2.List() = Array("", "M.", "Mme", "Mlle")
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 7
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 7
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
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
End If
End Sub
'Pour le bouton Modifier
Private Sub CommandButton2_Click()
Dim Ligne As Long
Dim I As Integer
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox1.ListIndex + 2
Ws.Cells(Ligne, "B") = ComboBox2
For I = 1 To 7
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
Bonjour et bienvenu(e)
2 erreurs que j'ai vues
Dans les procédures Private Sub CommandButton1_Click() et Private Sub CommandButton2_Click()
tu as un End If en trop (avant le End Sub)
Sinon il est impératif de joindre ton fichier, en indiquant les opérations à faire pour arriver au défaut
Bonsoir!
Merci pour votre réponse! J'ai corrigé mes erreurs, merci de votre aide! Un nouveau message s'affiche "les macros de ce projet sont désactivés. Référez vous à l'aide en ligne...."
J'ai ajouté mon fichier mais je ne crois pas que cela fonctionne
Bonne soirée à vous
Bonjour
Un peu de lecture
girardl a écrit :J'ai ajouté mon fichier mais je ne crois pas que cela fonctionne
Je confirme ce n'est pas passé
A voirhttps://forum.excel-pratique.com/annonces/explications-et-regles-a-respecter-t13.html#p113415