Fonction SI sous VBA

onjour à tous,

Bonjour le forum,

J'ai une question SVP, pour que je puisse mettre une fonction SI sous VBA pouvez vous m'orienter vers le bon chemin SVP
Car sous VBA il n'accepte pas les ;

Voici ma formule :

Code:

---

SI(G15=O14;O15;SI(G15=P14;P15;SI(G15="Non acquis";0;"")))

---

Sous VBA je mets ça :

Code:

---

IF(A15=B14;B15;IF(A15=C14;C15;IF(A15="Critère";0;" ")))

---

J'ai lu un article sur Internet qui dis que le virgule doit être remplacé par "Then" mais le problème je ne suis pas arrivé à le faire

Merci pour votre aide

En PJ un exemple pour voir clair

Bonsoir à tous
Bonsoir tdaoui

Sous VBA le SI s'écris comme cela :

Code:

---

1 2 3 4 5 6

If A15=B14 then B15 'la il faut une "égalité" cad "la cellule active=B15" else 'l'équivalent de "sinon" "la cellule active" = xxxxx ou on peut relancer un IF mais attention au cumul, on 'est vite perdu 'et on fini par end if

---

en clair

Code:

---

1 2 3 4 5

If A15=B14 then A17=B15 else A17=B18 end if

---

Eric

Bonsoir à toutes et à tous,

Code:

---

1 2	x = [If(G15=O14,O15,If(G15=P14,P15,If(G15="Nom acquis",0,"")))] MsgBox x

---

Cordialement Abed_H

Bonsoir,

L’équivalent de la fonction SI() des feuilles de calcul est IIf (2 "i" à la suite) :

Code:

---

Label4 = IIf(Range("B11") = Range("H1"), Range("H2"), IIf(Range("B11") = Range("I1"), Range("I2"), IIf(Range("B11") = "Non acquis", 0, " ")))

---

devrait correspondre à ton attente.

IIf est une fonction extrêmement pratique que beaucoup méconnaissent, sous prétexte qu’existe aussi If, qui a un rôle complètement différent : If est un élément qui permet de structurer un morceau de programme. En voici un exemple :

Code:

---

1 2 3

If Condition Then ' Ton traitement si la condition est remplie End If

---

avec des variantes :

Code:

---

1 2 3 4 5

If Condition Then ' Ton traitement si la condition est remplie Else ' Ton traitement si la condition n’est pas remplie End If

---

Voire :

Code:

---

1 2 3 4 5 6 7

If Condition Then ' Ton traitement si la condition est remplie ElseIf Condition2 Then ' Ton traitement si la condition n’est pas remplie, mais que la condition 1 l’est Else ' Ton traitement si aucune des 2 conditions n’est remplie End If

---

Lorsqu’il n’y a qu’une instruction à exécuter si la condition est remplie, on peut tout écrire sur une ligne, et dans ce cas, le End If ne s'emploie pas :

Code:

---

If Condition Then ' Une instruction unique

---

Quand, au contraire, le nombre d’options à prendre en compte est important, il vaut mieux utiliser la structure

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Select Case Range("B11") Case 1 ' Groupe d’instructions N° 1 Case 3 ' Groupe d’instructions N° 2 Case 8 ' Groupe d’instructions N° 3 '... Case Else ' Groupe d’instructions N° N End Select

---

Regarde l’aide pour plus d’info.

C’est par que If existe en tant qu’élément de structure dans de nombreux langages de programmation, qu’il a fallu imaginer cette orthographe particulière pour l’équivalent du SI() de la feuille de calcul.

Cordialement,

Bonsoir, et bienvenue ici 8-)

Dan ce cas précis cela marche, mais :

• Tu aurais pu lui préciser que les crochets sont un raccourci pour la fonction Evaluate.
• D’autre part, tu ne réponds pas sur un plan général à sa question : comment avoir en VBA l’équivalent du SI() de la feuille de calcul : s’il a besoin de faire références à des variables définies dans VBA, il ne pourra utiliser ni les crochets, ni Evaluate !

Cordialement,

Citation:

---

Envoyé par Abed_H

x = [If(G15=O14,O15,If(G15=P14,P15,If(G15="Nom acquis",0,"")))]

---

Merci Bigalo pour ces remarques. :D

De rien :)

Citation:

---

Envoyé par Abed_H

Merci Bigalo pour ces remarques. :D

---

Merci à vous tous :king:

Question bête : Comment afficher le résultat en %

PS : je ne veux pas faire ça :

Code:

---

Label4 = IIf(Range("B11") = Range("H1"), Range("H2"), IIf(Range("B11") = Range("I1"), Range("I2"), IIf(Range("B11") = "Non acquis", 0, " "))) * 100 & "%"

---

Merci d'avance

Bonsoir,

Désolé de répondre si tard, mais j’étais à l’extérieur !

Code:

---

Label4 = Format(IIf(Range("B11") = Range("H1"), Range("H2"), IIf(Range("B11") = Range("I1"), Range("I2"), IIf(Range("B11") = "Non acquis", 0, " "))), "0.00%")

---

Cordialement,

Merci à toi Bigalo :-D

Bon boulot !

De rien 8-)

Citation:

---

Envoyé par tdaoui

Merci à toi Bigalo :-D

Bon boulot !

---