Macro formule conditionnelle

Anonyme

Bonjour Daniel,

J’ai une autre problématique. Je souhaite transférer des infos d’une feuille à une autre mais cette fois il faut passer je crois par des macros avec formule conditionnelles je crois.

Sur l’onglet « Facture » en cellule J67 je souhaiterai que dès que je choisi dans la liste déroulante de cette cellule le mot « Acompte » qu’en colonne I5 de l’onglet «Mai » apparaisse le mot « Commande » et **** que le montant situé dans la cellule **L67 de l'onglet " Facture"**soit transféré en colonne P5 de l’onglet « MAI » et ce pour chacun des mois de l’année.

Enfin, je souhaiterai que les infos de liste déroulantes de la colonne K67 et L67 soit dispatchées en fonction du titre de paiement choisi dans l’onglet « règlements Mai » en colonne H,I,J,K,L,M, N pour chacun des clients et pour chacune des onglets règlements ( règlements janvier, règlements février, etc……)

Voici le lien ci-dessous de mon fichier Excel.

https://1drv.ms/x/s!AjYqfnwTceBWxh9fGbIFHPeGPmK4

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires

17 réponses

Anonyme

2017-05-15T07:05:08+00:00

Bonjour Daniel,

Oups !!!!! Effectivement ça serait beaucoup mieux..... Concernant la colonne N de l'onglet "MAI" qui présente avec des messages d'erreur #N/A, j'ai supprimé la ligne Sh.Cells(Ligne,14)=.Cells(Ligne,8).Value( Voir ci-dessous) et les messages d'erreur ont disparu. Apparemment cela n'a pas eu d'incidence sur le fichier qui fonctionne. Je n'ai pas vraiment résolu le problème des remises non répertoriés qui parait plus complexe. Sur le fichier que tu auras, la modification n'apparait pas, mais tu peux faire le test....

https://1drv.ms/x/s!AjYqfnwTceBWxjWHb5GF\_dD5RFuf

For Each C In .Range("C14", .[C13].End(xlDown))

             Sh.Cells(Ligne, 6) = C.Value

             Sh.Cells(Ligne, 5) = C.Offset(, -1).Value

             Sh.Cells(Ligne, 14) = .Cells(Ligne, 8).Value

             Ligne = Ligne + 1

Bonne journée :)))
Cette réponse a-t-elle été utile ?

0 commentaires Aucun commentaire
DanielCo 107.1K Points de réputation

2017-05-15T07:59:59+00:00

Bonjour,

***Oups !!!!!***Effectivement ça serait beaucoup mieux....

Ca serait en core beaucoup mieux si tu l'avais fait.

Regarde le classeur modifié.
Cette réponse a-t-elle été utile ?

0 commentaires Aucun commentaire
Anonyme

2017-05-15T10:17:26+00:00

J'ai regardé le classeur et j'ai entré de nouvelles données. En colonne "N" de l'onglet "MAI", il y a encore des infos qui sont entrées par erreur.....

https://1drv.ms/x/s!AjYqfnwTceBWxj6-glQmYgR3x7Kg

For Each C In .Range("C14", .[C13].End(xlDown))

             Sh.Cells(Ligne, 6) = C.Value

             Sh.Cells(Ligne, 5) = C.Offset(, -1).Value

             If .Cells(Ligne, 10).Value <> "" Then Sh.Cells(Ligne, 14) = .Cells(Ligne, 10).Value

             Ligne = Ligne + 1

Avec le même classeur sans cette ligne. J'ai entré plusieurs factures et je n'ai pas eu ce même problème, sans la ligne en gras ci-dessus. A priori cela marche. Il me resterai plus que cette colonne remise "N" de l'onglet "MAI" ou la remise s'afficherait pour le 1er article et pas sur les suivants dans l'onglet MAI.

https://1drv.ms/x/s!AjYqfnwTceBWxkAZjWHKSE330AQQ

For Each C In .Range("C14", .[C13].End(xlDown))

             Sh.Cells(Ligne, 6) = C.Value

             Sh.Cells(Ligne, 5) = C.Offset(, -1).Value

            Ligne = Ligne + 1
Cette réponse a-t-elle été utile ?

0 commentaires Aucun commentaire
DanielCo 107.1K Points de réputation

2017-05-15T11:52:52+00:00

Je passe trop de temps sur ton projet. Fournis-moi un classeur avec une facture remplie.

Daniel
Cette réponse a-t-elle été utile ?

0 commentaires Aucun commentaire
Anonyme

2017-05-15T16:37:51+00:00

Je suis désolé pour le temps que tu passes sur mon projet.........Je ne me doutais pas ce que cela aurait été compliqué. Mea culpa....... Il n'y a pas d'urgence. Je t'adresse dans le lien ci-dessous. Le fichier avec une facture remplie.... Et encore un grand merci pour ce que tu fais......

https://1drv.ms/x/s!AjYqfnwTceBWxkAZjWHKSE330AQQ

Bonne soirée :)
Cette réponse a-t-elle été utile ?

0 commentaires Aucun commentaire