Erreur 13

Bonjour,

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

https://www.cjoint.com/?DJBp1vzGPR8

Voilà c'est toujours les memes codes

Re,

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

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!

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

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.

Re,

Je regarde la chose

A+

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

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?

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

Bonjour,

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

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

Re,

lequel ????? ligne de programme etc ......

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

Re,

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

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

Re,

mettez votre fichier a dispo sans modifier quoique ce soit

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

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

Je ne sais pas comment faire ca serais sympa