Discussion :

[tibogaet]

Bonjour à tous

Ma question va vous paraitre peut toute simple mais pas pour moi. J'ai essayé de trouver dans le forum et dans la Faq une possible réponse à mes question.
Pour faire simple, j'ai un formulaire qui s'appelle FORMSAV et différente cellule:
- REFAGENT (texte)
- DATEMAG (Date/heure)
- DATEDX (DATE/Heure)
- DIFFRETOUR (Numérique)
- AVOIR
- VALEURAVOIR

Après mise à jour de ma cellule DATEDX j'inscris le code suivant pour calculer la valeur de la cellule DIFFRETOUR (qui le difference entre la date de retour Magasin (DATEMAG date auto) et la date de la commande (inscrite en manuel):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub DATEDX_AfterUpdate()
Me.DIFFRETOUR = DateDiff("w", DATEDX, DATEMAG, DATEDX)
End Sub

Dans ma cellule DIFFRETOUR j'ai donc une valeur en semaine de mon retour de pièce.
Je voudrais ensuite inscrire quelque chose comme ça dans un premier tant :
Si REFAGENT n'est pas vide et si DIFFRETOUR < 8
Alors Me.AVOIR = "Oui" et Me.VALEURAVOIR = "100%"

Mais je n'y arrive pas. Je sais que je n'en suis pas si loin, alors si quelqu'un peut me donner un petit de main. Merci.

[zibi7]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If isnull(REFAGENT)=False and diffretour.value <8 then 
   forms("FORMSAV).controls("AVOIR").value="oui"
   forms("FORMSAV).controls("VALEURAVOIR").value="100%"
end if

c'est ça que tu voulais?

@+

[tibogaet]

Salut

Je te remercie c'est exactement ce que je voulais, merci beaucoup. Ca c'était un condition réduite au plus simple.
Si j'ai plusieurs conditions (5 ou 6) pour afficher une valeur dans mes deux cellules, est-ce que je dois continuer à écrire sur la première ligne mes differentes conditions en séparant par And chaque condition.
Merci

[zibi7]

avec plaisir, sinon je sais qu'en php il y a une limitation au nombre de condition (dans les if) mais en vba je ne trouve rien sur le net, a priori ça devrait aller.

Bonne continuation
@+

[tibogaet]

Autre petite question sur le même projet, comment dois ecrire les signe supérieur et inférieur si je veux que ma Valeur "VALEURAVOIR" soit comprise entre 8 et 12.
Merci du renseignement.

[tibogaet]

Excuse moi j'ai fais une erreur c'est la valeur de DIFFRETOUR qui dois etre compris entre 8 et 12 et égal à 12.
Merci beaucoup pour ton aide précieuse.

[zibi7]

la syntaxe en vb c'est
if valeur<X and valeur >Y
la condition renvoi vrai si elle est remplie.

@+

[tibogaet]

Merci zibi7

Je n'y avais pas pensé.
Merci beaucoup pour ton aide

A bientot peut etre sur le forum.

[zibi7]

re,

de rien, à bientôt ! et si ton problème est résolu, pense à le mettre!

@+

[LE VIEUX]

bonjour,
pour éviter la multiplication des if end if
voir fonction Select Case.

[zibi7]

Bonjour,

si les conditions sont sur des champs différents, c'est possible?

@+

[LE VIEUX]

Bonjour,
Si a chaque fois il y a différents champs, ce n’est effectivement pas la peine.
Sans plus de détail sur les autres conditions et en se référent au premier post il semble qu’il y a une premiere condition simple : REFAGENT isnull donc vrai ou faux :
On peut donc commencer par If then else pour celui-la et enchainer s’il y a plusieurs possibilités à l’intérieur pour DIFFRETOUR numérique ont peut utiliser un SELECT CASE, je pense et si j’ai bien compris le problème.

[tibogaet]

Merci pour vos conseils.