Discussion :

[bpaquis]

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 :

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 :

Activité 18.xlsm

Merci pour votre aide.

Bruno

[Theze]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[Theze]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bpaquis]

UN GRAND MERCI MONSIEUR Theze c'est résolu...

[Theze]

Content de t'avoir aidé