Bonjour à tous
J'ai besoin de votre aide. J'essaye de mettre au point un code qui me permette de faire un calcul suivant "quelques" conditions de la forme :
If a = b Then
V =...
P' = V x ...
ElseIf a = c Then
V = ...
P" = V x ...
Else
V=...
P" = V x ...
if V > 0
P"' = V x ...
Else
P"' = 0
End If
End If
P = P' + P" + P"'
La partie en rouge n'est pas acceptée par VBA et j'ignore la raison ... même si je la remplace par une des premières conditions (qui fonctionnent, le texte reste écrit en rouge...
Je n'ai pas réussi à extraire la partie de mon code qui me pose problème sans faire échouer mes run. Alors je vous propose 2 classeurs pour vous illustrer mon problème :
- La parite du code qui décrit les fonctions If avec en rouge celle qui ne marche pas :
- Dans le classeur avec le code entier. La partie qui pose problème est clairment identifiée dans le module ExempleIf, PARTIE 3, disponible sur ce lien : [lien]
il y a 2 modules:
- ExempleIf: découpé en 3 partie clairement distinguée. C'est dans la PARTIE 3 qu'un fonction If ne "fonctionne" pas.
- Annexe : ces dans ce module que je lis les tableaux excel dont j'ai besoin.
Je précise qu'en dehors de la phrase en rouge, tout le reste fonctionne.
Tout idée est la bienvenue.
Merci d'avance por votre aide!