Erreur d'exécution 424 "Objet Requis"
Résolu/Fermé
cyrga11
Messages postés
48
Date d'inscription
mardi 18 mars 2014
Statut
Membre
Dernière intervention
28 novembre 2014
-
Modifié par jordane45 le 25/11/2014 à 11:40
cyrga11 Messages postés 48 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 28 novembre 2014 - 25 nov. 2014 à 14:14
cyrga11 Messages postés 48 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 28 novembre 2014 - 25 nov. 2014 à 14:14
A voir également:
- Erreur d'execution 424 objet requis userform
- Erreur 0x80070643 - Guide
- Vente objet occasion entre particulier - Guide
- Erreur d'execution 1004 ✓ - Forum Excel
- Erreur d'éxecution 1004 - Forum Programmation
- Iptv erreur de lecture - Forum TV & Vidéo
6 réponses
jordane45
Messages postés
38136
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
16 avril 2024
4 649
25 nov. 2014 à 11:42
25 nov. 2014 à 11:42
Bonjour,
Tu utilises Ws .. mais tu ne l'a pas initialisé dans ta SUB ... d'où l'erreur.
PS: Faire une boucle for i=1 to 1 ... n'a pas d'interet...
Autant mettre directement I=1
Tu utilises Ws .. mais tu ne l'a pas initialisé dans ta SUB ... d'où l'erreur.
PS: Faire une boucle for i=1 to 1 ... n'a pas d'interet...
Autant mettre directement I=1
cyrga11
Messages postés
48
Date d'inscription
mardi 18 mars 2014
Statut
Membre
Dernière intervention
28 novembre 2014
25 nov. 2014 à 11:49
25 nov. 2014 à 11:49
Bonjour, concernant : For I = 1 To 1
Si je met seulement : For I = 1
Il me dit : Erreur de compilation: Attendu : To
Concernant Ws, je n'ai pas saisi ce que tu veux dire ?
Si je met seulement : For I = 1
Il me dit : Erreur de compilation: Attendu : To
Concernant Ws, je n'ai pas saisi ce que tu veux dire ?
Bonjour
Modificatiob de la combobox Change
Private Sub ComboBox1_Change()
Dim Ligne As Long
Dim I As Integer
If ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = ComboBox1.ListIndex + 2
With Feuil3
.Unprotect "wsdeadx8"
TextBox1.Value = .Cells(Ligne, 2)
.Protect "wsdeadx8"
End With
End Sub
A+
Maurice
Modificatiob de la combobox Change
Private Sub ComboBox1_Change()
Dim Ligne As Long
Dim I As Integer
If ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = ComboBox1.ListIndex + 2
With Feuil3
.Unprotect "wsdeadx8"
TextBox1.Value = .Cells(Ligne, 2)
.Protect "wsdeadx8"
End With
End Sub
A+
Maurice
cyrga11
Messages postés
48
Date d'inscription
mardi 18 mars 2014
Statut
Membre
Dernière intervention
28 novembre 2014
25 nov. 2014 à 12:03
25 nov. 2014 à 12:03
Cela fonctionne parfaitement, merci Maurice et merci aussi Jordane45 pour votre aide.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Re
Voila la combobox
Private Sub UserForm_Initialize()
Dim J As Long
Dim I As Integer
With Feuil3 'Correspond au CodeName de votre onglet dans le fichier Excel
ComboBox1.Clear
For J = 2 To .Range("A" & Rows.Count).End(xlUp).Row
.AddItem .Range("A" & J).Value
Next J
End With
TextBox1.Visible = True
End Sub
A+
Maurice
Voila la combobox
Private Sub UserForm_Initialize()
Dim J As Long
Dim I As Integer
With Feuil3 'Correspond au CodeName de votre onglet dans le fichier Excel
ComboBox1.Clear
For J = 2 To .Range("A" & Rows.Count).End(xlUp).Row
.AddItem .Range("A" & J).Value
Next J
End With
TextBox1.Visible = True
End Sub
A+
Maurice
cyrga11
Messages postés
48
Date d'inscription
mardi 18 mars 2014
Statut
Membre
Dernière intervention
28 novembre 2014
25 nov. 2014 à 14:14
25 nov. 2014 à 14:14
Merci Maurice et Jordane45 j'ai trouvé pour ce que tu me disait concernant Ws. Merci encore à vous deux :)