Erreur 13 Résolu

Question

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.

f894009 · Answer

Bonjour,

sans le code, voir le fichier, pas facile de vous repondre

drumer57 · Answer

https://www.cjoint.com/?DJBp1vzGPR8

Voilà c'est toujours les memes codes

f894009 · Answer

Re,

il y a un probleme #ref! dans toutes les  formules voir gestionnaire de noms

drumer57 · Answer

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!

f894009 · Answer

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

drumer57 · Answer

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.

f894009 · Answer

Re,

Je regarde la chose

A+

f894009 · Answer

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

drumer57 · Answer

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?

f894009 · Answer

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

f894009 · Answer

Bonjour,

modifie avec Numero de devis en critere pour bienvenue: 
https://www.cjoint.com/c/DJEh6Go2W8p

drumer57 · Answer

Il y a un petit bug dans le programme ...

f894009 · Answer

Re,

lequel ????? ligne de  programme etc ......

drumer57 · Answer

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

f894009 · Answer

Re,

soit vous n'avez pas cliquer sur une ligne de la listbox ou pas de numero de devis

drumer57 · Answer

J'ai fais les deux et c'est toujours la memem chose

f894009 · Answer

Re,

mettez votre fichier a dispo sans modifier quoique ce soit

drumer57 · Answer

C'est exactement le meme que tu m'as envoyé

f894009 · Answer

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 ????????

drumer57 · Answer

Je ne sais pas comment faire ca serais sympa

f894009 · Answer

Bonjour,

Ok, je regarde la chose.

A+

drumer57 · Answer

merci

f894009 · Answer

Bonjour,

fichier modifie avec tests divers sur suppression, ajoute un seul test (devis) sur creation, mais normalement il en faudrait plus : https://www.cjoint.com/?DJFlIWvpOv8

Erreur 13 - Page 2

Discussions similaires

Newsletters