Journal de ventes

Denis15 -  
Bonjour,

Voila mon soucis :

J'ai un fichier dans lequel j'ai plusieurs onglets correspondant à des factures...

Je voudrai faire un onglet "Journal" reprenant des éléments de chaque factures à savoir :

Date, nom du client, hors taxe, TVA et TTC...

Une ligne par facture, sachant que le nombre d'onglet peut évoluer selon les mois (j'ai un classeur par mois).

Certaines factures sont plus longues que d'autres ( le TTC est en F56 dans 90% des cas et en F110 dans les autres cas...

J'avais pensé donner un nom aux cellules mais je n'ai pu donner le même nom sur deux onglets différents...

Je ne vois que le VBA pour me sortir de là, mais je coïnce un peu, beaucoup.

Merci par avance de votre aide...

Denis

2 réponses

  1.  redaiwa
    Salam Denis15. :)

    Je pense que la fonction Find() fera l'affaire comme dans cet exemple :
    https://www.cjoint.com/?DKcl2yKYycz

    Voici le code utilisé dans l'exemple : 

    Private Sub BoutonJournal_Click()
    For f = 1 To Sheets.Count - 1
      Cells(f + 1, 1) = Sheets(f).Cells.Find("Facture n°").Offset(0, 1)
      Cells(f + 1, 2) = Sheets(f).Cells.Find("Date").Offset(0, 1)
      Cells(f + 1, 3) = Sheets(f).Cells.Find("Total TTC").Offset(0, 1)
    Next f
    End Sub

    J'ai supposé que la feuille "Journal" se trouve en dernier.

    C'est bien ça que tu voulais ?
    0