Création automatique de nouvelles feuilles factures

Re : Création automatique de nouvelles feuilles factures

Salut JP et merci beaucoup d'avoir autant de patience avec moi

Hélas, J'ai encore un soucis 😛our reporter toutes mes indications présentes dans les factures vers le tableau récapitulatif (montant TVA, TTC, Quantité)
J'ai modifié ton code en ajoutant des lignes "if" :

If LCase(cellule.Value) = "montant TVA" Then
Sheets(nomfeuille1).Cells(i, 6) = .Range("j" & cellule.Row).Value

If LCase(cellule.Value) = "montant TTC" Then
Sheets(nomfeuille1).Cells(i, 7) = .Range("j" & cellule.Row).Value

....

mais ça ne fonctionne pas : que faire !!! Il doit manquait un petit truc.



Merci beaucoup pour tout ce foissement de matière grise

Bon week end

A + François

Re : Création automatique de nouvelles feuilles factures

Bonjour

Si on écrit
If LCase(cellule.Value) = "montant TVA" Then
il faut que TVA soit en minuscule sinon on n'aura jamais l'égalité.
Lcase permet de mettre un texte avec des caractères minuscules.

JP

Re : Création automatique de nouvelles feuilles factures

Bonjour , merci pour ta réponse JP .

Hélas, j'ai enlevé les majuscules : mais ça ne fonctionne pas.

François

Re : Création automatique de nouvelles feuilles factures

Bonjour
Ci joint le fichier modifié.
Pour les cellules qui ont une position fixe, il suffit de mettre les coordonnées de la cellule.

A tester

JP

Re : Création automatique de nouvelles feuilles factures

Merci pour tout JP, la création de facture et l'actualisation de la feuille récapitulative fonctionnent trés bien.

Bonne continuation.

A +

François