Calcul si valeur se termine par 5

[Windfly]

Bonjoru le forum,

Dans le fichier joint, je dois passer des valeurs d'un mode "tableau" (type tdc) vers un mode "liste".
Jusque là pas (ou disons "plus" grace à vous) de problème dans le code VBA.

Par contre, au moment prendre la date située en entete de colonne pour la mettre en mode liste, je dois ajouter 15 jours à cette date si le leadtime se termine par 5.

Je seche un peu sur le code VBA que je dois inclure pour faire cette condition. Pouvez vous m'aider?

Merci d'avance pour votre aide

Cordialement

Windfly

 

[Windfly]

Re : Calcul si valeur se termine par 5

Personne ne peut m'aider svp?

Windfly

 

[Pierrot93]

Re : Calcul si valeur se termine par 5

Bonjour,

perso pas 2007, je ne peux donc pas ouvrir ton fichier, enregistre le peut être en .xls, tu pourras ainsi toucher plus de monde...

bonne journée
@+

 

[Windfly]

Re : Calcul si valeur se termine par 5

Bonjour Pierrot,

Effectivement, je n'ai pas fait attention à l'extension du fichier.
Maintenant tu devrais pouvoir l'ouvrir.

Merci

 

[Pierrot93]

Re : Calcul si valeur se termine par 5

Re,

pour tester si la cellule active se termine par 5 :

If Not IsEmpty(ActiveCell) Then If Mid(ActiveCell, Len(ActiveCell)) = 5 Then _
        MsgBox "Se termine par 5   "

@+

 

[Windfly]

Re : Calcul si valeur se termine par 5

Re Pierrot,

Merci mais je ne comprends pas comment l'inclure dans mon code.
J'ai mis en PJ le fichier réel ou je dois inclure ce calcul.

Merci pour votre aide

Windfly

 

[Pierrot93]

Re : Calcul si valeur se termine par 5

Re,

vois pas dans ton fichier où tu veux effectuer le test... mais de toute évidence il faut remplacer la "msgbox" par la volorisation d'une cellule :

If Not IsEmpty(ActiveCell) Then If Mid(ActiveCell, Len(ActiveCell)) = 5 Then _
        Range("A1").Value = "xxx"

 

[Windfly]

Re : Calcul si valeur se termine par 5

OK merci Pierrot,

Mais comment je peux ajouter la fonction "sinon"?

Car je veux faire cette formule :

SI la valeur de la cellule se termine par 5, ALORS je prends la date indiquée + 15 jours, SINON juste la date indiquée.

Merci encore

 

[Pierrot93]

Re : Calcul si valeur se termine par 5

Re,

essaye ainsi, toujour pour la cellule A1, à adapter

If Not IsEmpty(ActiveCell) Then If Mid(ActiveCell, Len(ActiveCell)) = 5 Then _
        Range("A1").Value = Range("A1").Value +15