Erreur d'exécution '424' Objet requis

Version imprimable

15/09/2019, 09h18
bpaquis

1 pièce(s) jointe(s)

Erreur d'exécution '424' Objet requis

Bonjour,

J'ai créé un formulaire de saisie sous Excel 2019. Le formulaire créé permet d'ajouter une nouvelle personne : cela fonctionne ; de quitter le formulaire : cela fonctionne.
De modifier un contact : cela ne fonctionne pas. Lorsque je sélectionne une personne par son code client, il apparaît à l'écran, je modifie par exemple le prénom, mais quand je valide la modification avec le bouton modifier contact, ce message apparaît :

Citation:

Erreur d'exécution '424' objet requis

Le code s'arrête sur Ws.Cells(Ligne, "B") = ComboBox2.
Auriez-vous une idée ? Voici le fichier :

Pièce jointe 503087

Merci pour votre aide.

Bruno
15/09/2019, 09h49
Theze
Bonjour,

C'est normal, tu utilises une variable objet non initialisée !
Code:

1 2 Ws.Cells(Ligne, "B") = ComboBox2
Le compilateur ne connait pas "Ws" !
C'est souvent ce qui arrive quand on ne demande pas la déclaration explicite des variables donc je te conseille de cocher la case "Déclaration des variables obligatoire" dans "Outils" --> "Options..." --> Onglet "Editeur", à la prochaine ouverture d'Excel, tu auras "Option Explicit" inscrit en tête de tous les modules dans les nouveaux classeurs. Pour celui en cours, tu peux l'inscrire manuellement !
Déclares ta variable en tête de module, elle est initialisée dans la procédure événementielle "Initialize" du formulaire
15/09/2019, 09h54
bpaquis

Bonjour These, peux-tu me dire comment déclarer ma variable en tête de module pour qu'elle soit initialisée dans la procédure événementielle "Initialize" du formulaire ?
Merci,

Cordialement,

Bruno

Puisque la première procédure du module est "Initialize", tu déclare juste au dessus :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
Dim Ws As Worksheet '<--- déclaration en tête de module
 
'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("Monsieur", "Madame")
 
    Set Ws = Sheets("Contacts") 'Correspond au nom de votre onglet dans le fichier Excel <--- initialisée ici pour la durée de vie du formulaire !
 
    For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
        ComboBox1.AddItem Ws.Range("A" & J)
    Next J
 
    For I = 1 To 7
        Me.Controls("TextBox" & I).Visible = True
    Next I
 
End Sub

15/09/2019, 10h15
bpaquis

UN GRAND MERCI MONSIEUR Theze c'est résolu...
15/09/2019, 10h26
Theze

Content de t'avoir aidé ;)