Erreur 13

Résolu
drumer57 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai un soucis dans mon programme,
ca fais un moment que j'ai un problème sur mon programme.
Quand je clique sur mon bouton, j'ai l'erreur 13 qui s'affiche :
"Incomptabilité de type", alors que ca me l'a jamais produit. Je ne sais pas ce que j'ai pu faire.

23 réponses

  • 1
  • 2
Résumé de la discussion

Le problème décrit est une erreur d'incompatibilité de type lors du clic sur un bouton, liée à la suppression de la colonne « machine » et à son effet sur le gestionnaire de noms. La majeure partie des échanges pointe vers la rupture des références après cette suppression, ce qui peut freiner l'insertion dans la ListBox et le traitement des dates des réparations. Des échanges évoquent messages conditionnels via msgBox selon les dates de réparation ou de retour et la mise en place d’un système d’alerte, ainsi que des difficultés à supprimer des lignes. En cas de persistance, il est utile de restaurer la colonne supprimée et d’ajuster les noms du gestionnaire, ou d’envisager une synchronisation entre ListBox et données.

Généré automatiquement par IA
sur la base des meilleures réponses
  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    sans le code, voir le fichier, pas facile de vous repondre
    0
  3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,

    il y a un probleme #ref! dans toutes les formules voir gestionnaire de noms
    0
  4. drumer57 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   1
     
    Comment ca se fais que ca s'est mis en #ref! ?
    et quand je me met sur la page "rep" il se remet en #ref!
    0

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

    Posez votre question
  6. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,

    Ma faute, j'avais fait une copie de liste outil, et j'ai fait un copier/coller de lignes de liste outil(2) dans liste outil, ce qui a modifie la formule reference (cellule de depart). Vous avez supprime liste outil(2) donc la reference cellule de la formule Reference.

    Remettre C7 a la place de #REF

    Desole
    0
  7. drumer57 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   1
     
    En fait c'est juste que j'ai supprimé la colonne "machine" et comme il etait dans le gestionnaire de nom je pense que c'est ca qui m'a causé le bug

    Dernière petite question, dans "rep", comment je peux inserer dans les lignes le contenu de la ListBox car pour le moment il veut pas me l'introduire.
    0
  8. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,

    Je regarde la chose

    A+
    0
  9. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,

    code bouton cree a integrer: bien penser au clic sur une ligne de la listbox avant de creer, sinon erreur et peut-etre gerer l'erreur 

        With Worksheets("Rep")
            L = .Range("c65536").End(xlUp).Row + 1
            .Range("C" & L).Value = ComboBox1
            .Range("D" & L).Value = ListBox1.List(ListBox1.ListIndex, 0)
            .Range("E" & L).Value = TextBox2
            .Range("F" & L).Value = TextBox4
            .Range("G" & L).Value = TextBox5
            .Range("H" & L).Value = TextBox3
        End With
    0
  10. drumer57 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   1
     
    Merci Beaucoup !!
    une petite chose après j'ai fini : comment créér une alerte à la page de bienvenue quand la date de retour et le meme jour de l'ouverture du fichier ou supérieur?
    0
    1. drumer57 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   1
       
      la date de retour est*
      0
    2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Bonjour,

      z'etes sur: meme jour et superieurs ????
      0
    3. drumer57 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   1
       
      pardon?
      0
    4. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Re,

      Ai pas bien compris l'histoire des dates retour et ouverture fichier
      0
    5. drumer57 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   1
       
      J'aimerais créer un système d'alerte par msgBox par rapport à la date de réparation situé dans la page bienvenue. En meme temps j'arrvie pas surpprimer la ligne de réparation dans bienvenue par rapport au bouton supprimer réparation en page Rep.
      0
  11. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,

    l'infos unique pour les reparations est le numero de devis,ajoutez le dans la listbox designation et prenez le en critere pour supprimer le retour reparation
    0
  13. drumer57 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   1
     
    Il y a un petit bug dans le programme ...
    0
  14. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,

    lequel ????? ligne de programme etc ......
    0
  15. drumer57 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   1
     
    Erreur 91 : "Variable objet ou variable de bloc With non définie" 



    Private Sub CommandButton1_Click()
        Dim lig As Integer, sup As Integer
        
        lig = ListBox1.List(ListBox1.ListIndex, 3)
        Worksheets("Rep").Rows(lig).Delete
        
        sup = 0
        sup = Sheets("Bienvenue").Cells.Find(ListBox1.List(ListBox1.ListIndex, 4), LookAt:=xlWhole).Row    
    If sup <> 0 Then
            Sheets("Bienvenue").Rows(sup).Delete
        End If
     
        With Worksheets("Histo_Mouv")
            L = .Range("C65536").End(xlUp).Row + 1
            .Range("C" & L).Value = ComboBox1
            .Range("D" & L).Value = ListBox1.List(ListBox1.ListIndex, 1)
            .Range("E" & L).Value = "Retour de Rép"
            .Range("I" & L).Value = TextBox1
            .Range("K" & L).Value = TextBox2
            .Range("L" & L).Value = CSng(TextBox3)
            .Range("F" & L).Value = Format(Date, "dd/mm/yyyy")
            .Range("H" & L).Value = " " 'date d'envois
            .Range("J" & L).Value = " " 'Prix
        End With
    0
  16. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,

    soit vous n'avez pas cliquer sur une ligne de la listbox ou pas de numero de devis
    0
  17. drumer57 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   1
     
    J'ai fais les deux et c'est toujours la memem chose
    0
  18. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,

    mettez votre fichier a dispo sans modifier quoique ce soit
    0
  19. drumer57 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   1
     
    C'est exactement le meme que tu m'as envoyé
    0
  20. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,

    Pas de numero de devis, c'est valable aussi pour l'onglet bienvenue

    Faut-il que je modifie le code pour signaler qu'il n'y a pas le numero de devis sur l'onglet bienvenue et eviter les erreurs programme ????????
    0
  21. drumer57 Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   1
     
    Je ne sais pas comment faire ca serais sympa
    0
  • 1
  • 2

Discussions similaires

Erreur 3005 sur France TV
Cambodgil -
JeanPierre -

6 réponses
Problème streaming France 2
95 indomptable -
robmat2005 -

1 réponse
Erreur code 4001
contrariness -
CCMBot -

1 réponse
Erreur 0x80070570 sur clé USB
Carmen31 -
Philou76 -

11 réponses
Erreur s3 bbox wifi 7 bouygues
Fido62 -
Gwensam -

14 réponses