Erreur dans module

Bonjour à tous,

J'ai un module Trvx que je vous transmets complet.

Ce module essentiellement des travaux et facturation.

Il faut ouvrir un fichier excel vierge avec une feuille nommée "Données" et une autre "BaseFiche".

Je suis un peu dépassé par les événements je n'arrive pas à trouver mon erreur.

Quelqu'un pourrait-il m'aider à trouver la solution.

Je vous remercie d'avance

Amicalement

Noel

Bonjour

cfn3cfn a écrit :

je n'arrive pas à trouver mon erreur.

Quel est le bug ? Que veux-tu faire ?

Bye !

Bonjour GMB,

Merci de m'avoir répondu. J'avais perdu tout espoir.

Je suis actuellement entrain de travailler dessus. Je suis presque' arrivé .

C'est dans ce code que j'ai l'erreur

'Sheets("BaseFiche").Select

'Dim derln As Integer
'    derln = Range("E" & Rows.Count).End(xlUp).Row
'    With ListBox1
'        .Height = ((derln - 1) * 125 + 110) / 9
'       On Error Resume Next
'        .List = Range("E4:I" & derln).Value
'    End With
'    For J = 0 To Fact.ListBox1.ListCount - 1
'        For I = 1 To 7
'        On Error Resume Next
'            ListBox1.Column(I, J) = Format(ListBox1.Column(I, J), "0.00")
'        Next I
'    Next J

Je voudrai surtout avoir une ListBox "autosize ce code le permet

Ma combobox "CBBase me pose un souci pour retrouver dans ma "BaseFiche le N° de ma facture avec bien entendu ses lignes.

>En ce moment je suis là.

J'ai refait entièrement et ca commence à fonctionner.

@+

Merci

Amicalement

Noel

cfn3cfn a écrit :

J'ai refait entièrement et ca commence à fonctionner.

Alors, attendons !

Bye !

Re,

Si jamais tu trouves une autre solution pour ne pas une usine à gaz comme le mien se serait bien.

Le personne désire pouvoir voir ce qu'elle enregistre (les lignes) qui disparaissent à chaque saisie et qu'on retrouve quand on appel la procédure avec le combobox.

@+

Amicalement

Noel