Appliquer une formule se trouvant dans une autre cellule

Bonsoir,

Je rencontre une difficulté sous EXCEL.

Pour tenter de faire simple, j'applique un recherchev qui va rechercher une "formule" dans un autre tableau.

Ce que je voudrait c'est que la formule recherchée soit ensuite appliquée automatiquement.

Vous trouverez mon fichier en exemple.

Je me torture l'esprit depuis un bon moment maintenant.

Par avance, je vous remercie de votre aide.

Bonsoir,

Pour faire simple, car on devine le 60, le 90JFM....

Une fonction personnalisée VBA à adapter avec l'aide de 'Select Case'.

* pas de garde-fous dans cet exemple.

Cdlt.

Option Explicit
Public Function DELAI(D As Date, Paiement As String) As Date
Select Case Paiement
    Case "45JFM"
        DELAI = Application.EoMonth(D, 1) + 15
    Case Else
        '
    End Select
End Function

Bonjour,

Merci de votre retour !

Je vais appliquer ce code de suite.

Je vous ferais un retour en cas de problème.

Heureusement qu'il y a des gens comme vous !

Merci pour tout.

Etienne

Bonjour,

Merci à toi pour retour.

A bientôt sur le forum.

Bonjour,

Je me permet de revenir sur le sujet détaillé ci-dessus mais en intégrant une liste plus élargie.

Je ne vais y aller par 4 chemins, mais je ne sais pas faire de macro... (du moins pas encore)

j'aurais besoin de votre aide pour avoir le code exacte approprié à la liste ce trouvant dans ma PJ.

Par avance je vous remercie de votre aide.

Pour rappel, mon souhait étant que dans une cellule soit appliquée une formule selon la condition de Paiement et la date de livraison de la ligne.

oups... la PJ !

Bonjour,

J'ai commencé à répondre, et tu dois poursuivre.

Cdlt.

Option Explicit

'45J FDM    FIN.MOIS(D_Liv.+45;0)
'45J        Net D_Liv.+45
'CDE        +D_Liv.
'FDM        +FIN.MOIS(D_Liv.;0)
'FM30       FIN.MOIS(D_Liv.+30;0)
'FM30L10    FIN.MOIS(D_Liv.+30;0)+10
'FM30L15    FIN.MOIS(D_Liv.+30;0)+15
'FM45       FIN.MOIS(D_Liv.;0)+45
'FM60       FIN.MOIS(D_Liv.+60;0)
'FM60L10    FIN.MOIS(D_Liv.+60;0)+10
'MAD        +D_Liv.
'N15        D_Liv.+15
'N30        D_Liv.+30
'N60        D_Liv.+60
'NET        +D_Liv.

Public Function DELAI(D As Date, Paiement As String) As Date

    Select Case Paiement
        Case "45J FDM"
            DELAI = Application.EoMonth(D, 1 + 45, 0)
        Case "45J"
            DELAI = D + 45
        Case "CDE", "MAD", "NET"
            DELAI = D
        Case "FDM"
            DELAI = Application.EoMonth(D, 0)
    End Select

End Function

Merci pour ta réactivté ! Je vais regarder ça de prêt...

Merci à toi Jean-Eric ! J'ai réussi à compléter les manquants !

Il faut dire que tu avait fait le plus dur...

Simplement, les formules de FIN.MOIS ne marchais pas bien.

J'ai du remplacer

Case "45J FDM"

DELAI = Application.EoMonth(D, 1 + 45, 0)

Part

Case "45J FDM"

DELAI = Application.EoMonth(D + 45, 0)

Merci encore pour ton aide