XL 2021 erreur visual basic &H80004005 (-2147467259) non spécifié

[chris66000]

Bonjour
je suis entrain de construire un classeur avec macro, User Form ,Text box qui me rempli des ocs! tout fonctionnait bien et maintenant a l'ouverture comme a l'enregistrement j'ai ;

erreur visual basic &H80004005 (-2147467259) non spécifié​

j'ai essayer de démarrer Excel en mode sans echec cela fonctionne
quelqu'un peut il m'aider

merci d 'avance

 

[Nicolas JACQUIN]

Bonjour Simplement parce que ne pouvant plus enregistrer le classeur, je ne peux cacher les coordonnées des clients et de la société ! C'est juste une question de confidentialité por nos clients .

Je le transmets ....

Je pense que tu devrais recréer tout le fichier de zéro, à mon avis fichier corrompu, je dis bien à mon avis.
Et faire des test aléatoirement.

Nicolas

 

[nullosse]

Salut,
c'est ton formulaire clients qui est "vérolé" c'est lui qui déclenche des erreurs. Il faut que tu le supprimes de ton classeur. (ouvrir le classeur en mode macro désactivé (appuyer sur MAJ pendant le double clic du fichier). Supprimer le formulaire. En espérant que tu ais une version "non vérolée) de ton formulaire ailleurs. Il y a des données confidentielles dans ton classeur, je ne peux pas mettre la version sans clients en pièce jointe.
Nullosse.

 

[Valtrase]

Bonjour à tous,
Quand on dit qu'il faut toujours faire des sauvegarde avant de changer quoi que ce soit au niveau du code...
J'ai bien peur qu'il ne faille supprimer votre code. et le formulaire qui vous pose problème.
Voici une version corrigée avec un formulaire vièrge. A vous de recréer le code, on peut vous y aider si vous nous donner les informations utiles et nécessaires.

 

[chris66000]

Je pense que tu devrais recréer tout le fichier de zéro, à mon avis fichier corrompu, je dis bien à mon avis.
Et faire des test aléatoirement.

Nicolas

merci

 

[chris66000]

Salut,
c'est ton formulaire clients qui est "vérolé" c'est lui qui déclenche des erreurs. Il faut que tu le supprimes de ton classeur. (ouvrir le classeur en mode macro désactivé (appuyer sur MAJ pendant le double clic du fichier). Supprimer le formulaire. En espérant que tu ais une version "non vérolée) de ton formulaire ailleurs. Il y a des données confidentielles dans ton classeur, je ne peux pas mettre la version sans clients en pièce jointe.
Nullosse.

Merci je vais suivre ton conseil !

 

[chris66000]

Bonjour à tous,
Quand on dit qu'il faut toujours faire des sauvegarde avant de changer quoi que ce soit au niveau du code...
J'ai bien peur qu'il ne faille supprimer votre code. et le formulaire qui vous pose problème.
Voici une version corrigée avec un formulaire vièrge. A vous de recréer le code, on peut vous y aider si vous nous donner les informations utiles et nécessaires.

Merci....je vais le recreer et je reviens vers toi

 

[TooFatBoy]

Voici une version corrigée avec un formulaire vièrge. A vous de recréer le code, on peut vous y aider si vous nous donner les informations utiles et nécessaires.

Et voici le code VBA du UserForm originel :

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim j As Long
    Dim valeur_combobox1 As Integer
    Dim valeur_combobox2 As Integer
    Dim valeur_combobox3 As Integer
   
   
    Set ws = Sheets("REGLEMENT")
    With Me.ComboBox1
        .Clear ' Efface les anciens éléments, si nécessaire
        For j = 3 To ws.Range("I" & Rows.Count).End(xlUp).Row
            .AddItem ws.Range("I" & j).Value
        Next j
    End With
                  
           With Me.ComboBox2
        .Clear ' Efface les anciens éléments, si nécessaire
        For j = 3 To ws.Range("I" & Rows.Count).End(xlUp).Row
            .AddItem ws.Range("I" & j).Value
        Next j
    End With
                  With Me.ComboBox3
                .Clear ' Efface les anciens éléments, si nécessaire
                 For j = 3 To ws.Range("I" & Rows.Count).End(xlUp).Row
                .AddItem ws.Range("I" & j).Value
                 Next j
                 End With
   
   
End Sub


Private Sub CommandButton1_Click()
'remets a blanc le formulaire
NomSyndic.Text = ""
Adressesyndic.Text = ""
 Adressesyndic2.Text = ""
 Cpsyndic.Text = ""
Villesyndic.Text = ""
 Nomresidence.Text = ""
 Adresse1res.Text = ""
 Adresse2res.Text = ""
 Cpres.Text = ""
 Villeres.Text = ""



End Sub




Private Sub CommandButton3_Click()
Sheets("propo contrat").Select
Cells(10, 3) = NomSyndic.Text
Cells(10, 5) = Adressesyndic.Text
Cells(10, 6) = Adressesyndic2.Text
Cells(10, 8) = Cpsyndic.Text
Cells(10, 9) = Villesyndic.Text
Cells(12, 2) = Nomresidence.Text
Cells(12, 4) = Adresse1res.Text
Cells(12, 5) = Adresse2res.Text
Cells(12, 8) = Cpres.Text
Cells(12, 9) = Villeres.Text
Cells(14, 3) = Nbre_portail.Text
Cells(14, 4) = ComboBox1.Value
Cells(14, 5) = ComboBox2.Value
Cells(14, 6) = ComboBox3.Value







  

End Sub

Y a pu qu'à r'mettre les objets dans l'formulaire.

 

[chris66000]

Et voici le code VBA du UserForm originel :

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim j As Long
    Dim valeur_combobox1 As Integer
    Dim valeur_combobox2 As Integer
    Dim valeur_combobox3 As Integer
   
   
    Set ws = Sheets("REGLEMENT")
    With Me.ComboBox1
        .Clear ' Efface les anciens éléments, si nécessaire
        For j = 3 To ws.Range("I" & Rows.Count).End(xlUp).Row
            .AddItem ws.Range("I" & j).Value
        Next j
    End With
                  
           With Me.ComboBox2
        .Clear ' Efface les anciens éléments, si nécessaire
        For j = 3 To ws.Range("I" & Rows.Count).End(xlUp).Row
            .AddItem ws.Range("I" & j).Value
        Next j
    End With
                  With Me.ComboBox3
                .Clear ' Efface les anciens éléments, si nécessaire
                 For j = 3 To ws.Range("I" & Rows.Count).End(xlUp).Row
                .AddItem ws.Range("I" & j).Value
                 Next j
                 End With
   
   
End Sub


Private Sub CommandButton1_Click()
'remets a blanc le formulaire
NomSyndic.Text = ""
Adressesyndic.Text = ""
 Adressesyndic2.Text = ""
 Cpsyndic.Text = ""
Villesyndic.Text = ""
 Nomresidence.Text = ""
 Adresse1res.Text = ""
 Adresse2res.Text = ""
 Cpres.Text = ""
 Villeres.Text = ""



End Sub




Private Sub CommandButton3_Click()
Sheets("propo contrat").Select
Cells(10, 3) = NomSyndic.Text
Cells(10, 5) = Adressesyndic.Text
Cells(10, 6) = Adressesyndic2.Text
Cells(10, 8) = Cpsyndic.Text
Cells(10, 9) = Villesyndic.Text
Cells(12, 2) = Nomresidence.Text
Cells(12, 4) = Adresse1res.Text
Cells(12, 5) = Adresse2res.Text
Cells(12, 8) = Cpres.Text
Cells(12, 9) = Villeres.Text
Cells(14, 3) = Nbre_portail.Text
Cells(14, 4) = ComboBox1.Value
Cells(14, 5) = ComboBox2.Value
Cells(14, 6) = ComboBox3.Value







  

End Sub

Merci ..cela va me faire gagner un temps fou ! j'essaye cela en fin d'apres midi et reviens vers vous
merci

 

[Valtrase]

Re,
Voici un petit essais,
Quelques retours sur code :

• Évitez de gérer les cellules des feuille depuis le formulaire. Ce n'est pas son rôle (Utiliser un propriété ou autre voir le code)
• Au lieux de gérer moult champs nommés pour les adresses faite plutôt une concaténation (voir le code dans le module Current)
• Créez des constantes cela vous évitera les erreurs de saisies (Voir le module Factory)
• Utilisez les dictionnaires ce sont vos amis (Le code en est plus clair)

J'ai refais une partie du formulaire. Pour le lancer : il faut impérativement :

• Soit cliquer sur le bouton de la feuille Propo contrat
• Soit lancer la procédure RunClientsForm dans le module Current

Je n'ai que survoler le code des autres modules. Il y a des changements à effectuer...

 

[chris66000]

Re,
Voici un petit essais,
Quelques retours sur code :

• Évitez de gérer les cellules des feuille depuis le formulaire. Ce n'est pas son rôle (Utiliser un propriété ou autre voir le code)
• Au lieux de gérer moult champs nommés pour les adresses faite plutôt une concaténation (voir le code dans le module Current)
• Créez des constantes cela vous évitera les erreurs de saisies (Voir le module Factory)
• Utilisez les dictionnaires ce sont vos amis (Le code en est plus clair)

J'ai refais une partie du formulaire. Pour le lancer : il faut impérativement :

• Soit cliquer sur le bouton de la feuille Propo contrat
• Soit lancer la procédure RunClientsForm dans le module Current

Je n'ai que survoler le code des autres modules. Il y a des changements à effectuer...

Re,
Voici un petit essais,
Quelques retours sur code :

• Évitez de gérer les cellules des feuille depuis le formulaire. Ce n'est pas son rôle (Utiliser un propriété ou autre voir le code)
• Au lieux de gérer moult champs nommés pour les adresses faite plutôt une concaténation (voir le code dans le module Current)
• Créez des constantes cela vous évitera les erreurs de saisies (Voir le module Factory)
• Utilisez les dictionnaires ce sont vos amis (Le code en est plus clair)

J'ai refais une partie du formulaire. Pour le lancer : il faut impérativement :

• Soit cliquer sur le bouton de la feuille Propo contrat
• Soit lancer la procédure RunClientsForm dans le module Current

Je n'ai que survoler le code des autres modules. Il y a des changements à effectuer...

Bonsoir,
Je decouvre ton travail ......parfait! je ne sais comment te remercier.
je vais maintenant essayer de travailler dessus et te tiens au courant

merci
christian

 

[chris66000]

Bonsoir,
Je decouvre ton travail ......parfait! je ne sais comment te remercier.
je vais maintenant essayer de travailler dessus et te tiens au courant

merci
christian

Bonjour,
j'ai pris en compte ton fichier, mais j'ai un petit probleme ..désolé
quand je change dans le formulaire le type de contrat (t1,T2,T3 ) a l'enregistrement cela ne modifie pas la valeur dans la feuille "propo contrat " D35
et je n'arrive pas à trouver pourquoi ?
merci de ton aide
christian

 

[Valtrase]

Bonjour à tous,
Au début je voulais œuvrer en ce sens, ensuite j'ai vu que c'était une proposition de contrat j'ai donc remis le bas du contrat comme il était car c'est au client de choisir le type de contrat non ?

 

[chris66000]

Bonjour à tous,
Au début je voulais œuvrer en ce sens, ensuite j'ai vu que c'était une proposition de contrat j'ai donc remis le bas du contrat comme il était car c'est au client de choisir le type de contrat non ?
Regarde la pièce jointe 1222892

Merci de ta réponse .....j'ai trouver une solution de mon cote (ci joint le fichier )
j'aurais besoin de changer le tableau "Contratstypes"afin de rajouter une ligne a blanc pour crer une propo sans prix et la modifier une fois le choix du client valider ...dans l'idéal ,(mais la je demande beaucoup sans avoir encore chercher a le faire ) ce serait que la propo soit enrefistrer dansla feuille " recap contrat " et qu'une fois le choix du client valider (cela peut etre des semaines et ou mois apres je puisse la rappeller pour valider le type de contrat choisi et la date ...
je travaille de mon cote pour essayer d'avancer
merci de ton aide
Christian

 

[chris66000]

ci joint le dossier

 

[Valtrase]

Re,

j'aurais besoin de changer le tableau "Contratstypes"afin de rajouter une ligne a blanc pour crer une propo sans prix et la modifier une fois le choix du client valider

Je ne suit pas trop votre raisonnement là. La proposition de contrat est faite avec le modèle (feuille propo contrat) non ? Si vous voulez ajouter une proposition vide, ajouter une ligne vide au tableau (sans formule) et une ligne sous Contrat T3 c'est tout .
Vous ne devez pas vous emmêler les pédales entre une proposition de contrat et le contrat en lui-même. La proposition de contrat est envoyée au client, il choisi une formule, après cela vous pouvez éditer le contrat qui sera enregistré dans un tableau si vous le souhaitait.
De plus vous devriez avoir :

• Une feuille modèle pour les propositions de contrat ici Feuille 'propo contrat'
• Une feuille modèle pour chaque type de contrat avec tarif nom syndic etc.
  • Pour ces feuilles privilégier les zones de textes elles sont plus faciles à mettre en forme
• Une feuille avec le tableaux des contrats.
  • Ce tableau contiens des colonnes qui sont en lien avec d'autres tableaux.
    • ID Syndic, l'identificateur du syndic (Dans le tableau Syndics).
    • ID Résidence, l'identificateur de la résidence (Tableau résidence) notez une résidence peut changer de syndic.
    • ID Type, le type de contrat.
    • ID Technicien, si un technicien est affecté à ce contrat.
    • Notes, tous commentaires utiles
    • Date, date du contrat peut servir pour relancer un contrat.

Votre feuille récap contrat n'est pas adaptée a ce que l'on recherche.