Procedure Completerfacture()

Déclarer fFacture en tant que chaîne de caractères
Déclarer soustotal en tant que Monétaire
Déclarer Erreur en tant que booléen

Fonction AjouterDescriptionObjet(noLg en tant que Entier, fFacture en tant que chaîne de caractères) en tant que booléen
'Le code ci-dessus rajoute la description de l'objet
  Déclarer fCourante en tant que chaîne de caractères

  Tant que (noLg <= 51) et (Worksheets(fFacture).Cellule(noLg, 3) <> "")
    fCourante = Worksheets(fFacture).Cellule(noLg, 3)
    Worksheets(fFacture).Cellule(noLg, 5) = Worksheets(fCourante).Cellule((Worksheets(fFacture).Cellule(noLg, 4) + 2), 2)
      Si Worksheets(fFacture).Cellule(noLg, 2) > Worksheets(fCourante).Cellule((Worksheets(fFacture).Cellule(noLg, 4) + 2), 4) Then
         AjouterDescripti
        Worksheets(fFacture).Cellule(noLg, 2) = Worksheets(fCourante).Cellule((Worksheets(fFacture).Cellule(noLg, 4) + 2), 4)
        Worksheets(fFacture).Cellule(noLg, 2).Font.Couleur = RGB(255, 0, 0)
        Worksheets(fFacture).Cellule(noLg, 2).Font.TintetShade = 0
        Worksheets(fFacture).Cellule(noLg, 2).Font.Gras = Vrai
      Fin Si
    noLg = noLg + 1
  Boucler
Fin Fonction