Calcul si valeur se termine par 5

W

Windfly

Guest

• 22 Octobre 2010

• #2

Re : Calcul si valeur se termine par 5

Personne ne peut m'aider svp?

Windfly

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Octobre 2010

• #3

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
@+

 

Vote positif 0 Vote négatif

W

Windfly

Guest

• 22 Octobre 2010

• #4

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

 

Pièces jointes

• Classeur1.xls

  27.5 KB · Affichages: 94
• Classeur1.xls

  27.5 KB · Affichages: 92
• Classeur1.xls

  27.5 KB · Affichages: 95

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Octobre 2010

• #5

Re : Calcul si valeur se termine par 5

Re,

pour tester si la cellule active se termine par 5 :

Code:

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

@+

 

Vote positif 0 Vote négatif

W

Windfly

Guest

• 22 Octobre 2010

• #6

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

 

Pièces jointes

• test.zip

  24.5 KB · Affichages: 49
• test.zip

  24.5 KB · Affichages: 52
• test.zip

  24.5 KB · Affichages: 53

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Octobre 2010

• #7

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 :

Code:

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

 

Vote positif 0 Vote négatif

W

Windfly

Guest

• 22 Octobre 2010

• #8

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Octobre 2010

• #9

Re : Calcul si valeur se termine par 5

Re,

essaye ainsi, toujour pour la cellule A1, à adapter

Code:

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

 

Vote positif 0 Vote négatif