Sujet Précédent Sujet Suivant

Erreur 424 sous Excel VBA

Fermé
roudiroud Messages postés 31 Date d'inscription mercredi 20 avril 2016 Statut Membre Dernière intervention 7 juin 2016 - 22 avril 2016 à 10:18
 Maurice - 26 avril 2016 à 10:32
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
A voir également:

8 réponses

Réponse 1 / 8
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
22 avril 2016 à 11:24
Pour pouvoir utiliser une variable dans toutes les procédures d'un module, il faut la déclarer en début de module. 
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+
1
roudiroud Messages postés 31 Date d'inscription mercredi 20 avril 2016 Statut Membre Dernière intervention 7 juin 2016
22 avril 2016 à 11:33
Merci, j'avais oublié que avec VBA il faut à chaque fois déclarer ces variriable ou le declarer au debut du module.

Merci tu me sauve :)

+
0
Réponse 2 / 8
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
22 avril 2016 à 10:29
Bonjour,

On ne voit pas comment est définie Ws.

A+
0
roudiroud Messages postés 31 Date d'inscription mercredi 20 avril 2016 Statut Membre Dernière intervention 7 juin 2016
22 avril 2016 à 10:51
Ws est définie comme ma feuil1 dans mon classeur excel
0
roudiroud Messages postés 31 Date d'inscription mercredi 20 avril 2016 Statut Membre Dernière intervention 7 juin 2016
22 avril 2016 à 11:17
Private Sub UserForm_Initialize()
Dim J As Long

Set Ws = Sheets("Feuil1")
With Me.NomBgDepot
For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
.AddItem Ws.Range("A" & J)
Next J
End With



End Sub
0
Réponse 3 / 8
roudiroud Messages postés 31 Date d'inscription mercredi 20 avril 2016 Statut Membre Dernière intervention 7 juin 2016
22 avril 2016 à 12:18
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 ?
0
Réponse 4 / 8
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
22 avril 2016 à 13:12
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+
0
roudiroud Messages postés 31 Date d'inscription mercredi 20 avril 2016 Statut Membre Dernière intervention 7 juin 2016
Modifié par roudiroud le 22/04/2016 à 14:19
http://www.cjoint.com/c/FDwmk4wFpJH

voici-ci le lien

Le problème c'est que toutes les données ne s'affichent pas dans les textbox
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 8
Maurice
22 avril 2016 à 15:26
Bonjour
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
0
roudiroud Messages postés 31 Date d'inscription mercredi 20 avril 2016 Statut Membre Dernière intervention 7 juin 2016
22 avril 2016 à 15:30
Oups je suis désolé, je ne suis pas très doué en Vba. Je travaille pas souvent sous l'univers Vb mais plutôt en SQL.

Merci d'avoir pris du temps pour regarder :)
0
roudiroud Messages postés 31 Date d'inscription mercredi 20 avril 2016 Statut Membre Dernière intervention 7 juin 2016
22 avril 2016 à 16:24
je vois pas la différence de mon code par rapport au tiens, tu ma reécris la même chose ?
0
Réponse 6 / 8
Maurice
22 avril 2016 à 16:34
Bonjour
voila plein de modifes a toi de voir ci ça te va

http://www.cjoint.com/c/FDwoGeCB7BP

A+
Maurice
0
roudiroud Messages postés 31 Date d'inscription mercredi 20 avril 2016 Statut Membre Dernière intervention 7 juin 2016
22 avril 2016 à 16:43
Merci beaucoup pour les modifes;

A+
0
Réponse 7 / 8
Maurice
23 avril 2016 à 17:39
Bonjour
j'ais un peux jouer avec ton Userforme
http://www.cjoint.com/c/FDxpMynW2PV

A+
Maurice
0
roudiroud Messages postés 31 Date d'inscription mercredi 20 avril 2016 Statut Membre Dernière intervention 7 juin 2016
25 avril 2016 à 16:20
Merci beaucoup pour ces modifs ;)

elles sont plutôt cool ^^

A+
0
roudiroud Messages postés 31 Date d'inscription mercredi 20 avril 2016 Statut Membre Dernière intervention 7 juin 2016
26 avril 2016 à 09:27
Salut Maurice

je voudrais rajouter la supression de la ligne qui à été validé, j'ai cherché un peu mais je n'arrive pas à la supprimer ? aurais - tu une petit idée

Merci encore :)
0
Réponse 8 / 8
Maurice
26 avril 2016 à 10:32
Bonjour
il faut chercher un peux

http://www.cjoint.com/c/FDAiE6m1Xvz

A+
Maurice
0

Discussions similaires

Instagram "Désolé, une erreur s'est produite"
bananamilk -
cedric.masdeb -

60 réponses
Erreur de lecture sur iptv smarters
Bogs -
bazfile -

1 réponse