Renvoie données listbox sur tableau Excel

Bonjour les maîtres VBA

svp je souhaite la suite du code du bouton10 du userform5 qui me permettra de renvoyer les champs "DATE OPERATION" et "MONTANT T.T.C" de la listbox2 sur le tableau de la feuille 4 avec la somme des MONTANT T.T.C en dernière ligne

ci-joint mon fichier

merci d'avance

11vba2-2.xlsm (110.69 Ko)

Salut,

J'ai ajouté le bout de code ci-dessous dans ton fichier et ça devrait répondre à ta demande.

Comme tu n'as que 3 lignes disponibles (lignes 32 à 34 de la Feuil4), ça crée des problèmes lorsque tu as plus de 3 opérations pour le même client. 36 possibilités existent afin de corriger ton fichier pour ce problème.

        ' Rajout d'Youille
        ' Traitement de la ListBox 2
        .Range("B32:C34").ClearContents
        For m = 0 To ListBox2.ListCount - 3
            .Range("B" & m + 32) = ListBox2.List(m + 1, 4)
            .Range("C" & m + 32) = ListBox2.List(m + 1, 3) * 1
        Next m
        .Range("C35") = Application.WorksheetFunction.Sum(.Range("C32:C34"))
        ' Fin du rajout d'Youille

Cordialement.

13vba2-v1.xlsm (120.92 Ko)

Bonjour à tous,

Selon les dates de la "Feuil3", colonne P, il faudrait modifier le code pour ...

     For m = 0 To ListBox2.ListCount - 3
         .Range("B" & m + 32) = CDate(ListBox2.List(m + 1, 4)) ' << Modif
         .Range("C" & m + 32) = ListBox2.List(m + 1, 3) * 1
     Next m

Exemple : "HASSANI FADWA!" aux lignes 18, 19 et 20 de la "Feuil3".

ric

Rechercher des sujets similaires à "renvoie donnees listbox tableau"