Erreur 424 sous Excel VBA
roudiroud
Messages postés
36
Statut
Membre
-
Maurice -
Maurice -
Bonjour,
J'ai une erreur dans le programme suivant que j'ai récupéré et adapter à ma sauce.
Mais quand j'exécute le programme ce bloque et me dit : "objet requis erreur 424" !!!
J'ai beau regardé et reregarder mais je trouve pas :(
code:
Private Sub NomBgDepot_Change()
Dim Ligne As Long
Dim I As Integer
If Me.NomBgDepot.ListIndex = -1 Then Exit Sub
With Ws
Ligne = Me.NomBgDepot.ListIndex + 2
TxtDateRamassage = .Cells(Ligne, "B") -----> erreur 424
TxtDateRecette = .Cells(Ligne, "C")
TxtMontantAnnonce = .Cells(Ligne, "D")
TxtMontantReconnu = .Cells(Ligne, "E")
TxtNumEnveloppe = .Cells(Ligne, "F")
TxtDifférence = .Cells(Ligne, "G")
TxtMontantPrésumeFaux = .Cells(Ligne, "H")
TxtNomClient = .Cells(Ligne, "I")
TxtAdresse = .Cells(Ligne, "J")
TxtDomicile = .Cells(Ligne, "K")
TxtPortable = .Cells(Ligne, "L")
TxtMail = .Cells(Ligne, "M")
End With
End Sub
Merci
J'ai une erreur dans le programme suivant que j'ai récupéré et adapter à ma sauce.
Mais quand j'exécute le programme ce bloque et me dit : "objet requis erreur 424" !!!
J'ai beau regardé et reregarder mais je trouve pas :(
code:
Private Sub NomBgDepot_Change()
Dim Ligne As Long
Dim I As Integer
If Me.NomBgDepot.ListIndex = -1 Then Exit Sub
With Ws
Ligne = Me.NomBgDepot.ListIndex + 2
TxtDateRamassage = .Cells(Ligne, "B") -----> erreur 424
TxtDateRecette = .Cells(Ligne, "C")
TxtMontantAnnonce = .Cells(Ligne, "D")
TxtMontantReconnu = .Cells(Ligne, "E")
TxtNumEnveloppe = .Cells(Ligne, "F")
TxtDifférence = .Cells(Ligne, "G")
TxtMontantPrésumeFaux = .Cells(Ligne, "H")
TxtNomClient = .Cells(Ligne, "I")
TxtAdresse = .Cells(Ligne, "J")
TxtDomicile = .Cells(Ligne, "K")
TxtPortable = .Cells(Ligne, "L")
TxtMail = .Cells(Ligne, "M")
End With
End Sub
Merci
A voir également:
- Erreur 424 sous Excel VBA
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
- Excel compter cellule couleur sans vba - Guide
8 réponses
Pour pouvoir utiliser une variable dans toutes les procédures d'un module, il faut la déclarer en début de module.
A+
Dim Ws As Worksheet
Private Sub UserForm_Initialize()
Set Ws = Sheets("Feuil1")
End Sub
Sub Private Sub NomBgDepot_Change()
' => Utilisation de Ws possible
End Sub
A+
Par contre j'ai toujours une erreur, de type " Erreur de compilation, variable non définie". pour TxtDateRecette.
TxtDateRecette corespond à un textbox qui dois afficher lecontenue d'une cellule.
Je sais pas si tu vois l'erreur ?
TxtDateRecette corespond à un textbox qui dois afficher lecontenue d'une cellule.
Je sais pas si tu vois l'erreur ?
Comme ça, non je ne vois rien !
Je verrai peut-être mieux si tu joints un fichier.
Tu peux utiliser https://www.cjoint.com/
A+
Je verrai peut-être mieux si tu joints un fichier.
Tu peux utiliser https://www.cjoint.com/
A+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour
tu a beaucoup de faute
voila de le début
A+
Maurice
tu a beaucoup de faute
voila de le début
Set Ws = Sheets(Feuil1.Name)
With Ws
Ligne = Me.NomBgDepot.ListIndex + 2
TextDateRamassage = .Cells(Ligne, "B")
A+
Maurice
Bonjour
voila plein de modifes a toi de voir ci ça te va
http://www.cjoint.com/c/FDwoGeCB7BP
A+
Maurice
voila plein de modifes a toi de voir ci ça te va
http://www.cjoint.com/c/FDwoGeCB7BP
A+
Maurice
Merci tu me sauve :)
+