Deux IF dans une macro

Bonjour à tous,

Je voudrai mettre en place deux IF dans une macro mais j'arrive pas a avoir le résultat souhaité.

Pour shématiser, disons que la formule souhaitée devra éxécuter le suivant: A=B, mais si B = "" alors A = C mais si C ="" alors A = D
J'ai essayé de mettre en place un AND ou OR mais ca me donne pas le résultat que je veux.

Le but est de remplir des cellules à partir d'autres cellules qui parfois sont vides. Du coup la donnée souhaitée est juste au-dessus de celles qui est vide, mais si celle-ci est également vide alors il faut prendre celle qui se trouve encore au-dessus... C'est tout con mais j'y arrive pas!

Merci d'avance pour vos réponses.

CDT

Il y a sans doute plus simple mais voici une solution qui fonctionne :

Code:

---

1 2 3 4 5 6 7 8

If B = "" Then If C = "" Then A = D Else A = C Else A = B End If

---

Mais pour ton cas particulier, mieux vaut utiliser la fonction IIf()

Code:

---

A = IIf(B = "", IIf(C = "", D, C), B)

---

Un conseil : quand tu fais des structures imbriquées comme ça, pense bien à structurer ton code avec des itérations (décalages) pour t'y retrouver. Sinon, tu vas rapidement te mélanger les pinceaux.

Ca marche! MerciMerciMerciMerciMenhir!

Citation:

---

Envoyé par Menhir

Il y a sans doute plus simple

---

Effectivement, en y réfléchissant un brin :

Code:

---

1 2 3

A = B If A = "" Then A = C If A = "" Then A = D

---

Bonjour à tous
(vent + pluie = pêche fichue) -->> de retour -->>
Juste pour rigoler (et on va en profiter pour travailler sur un nombre encore plus grand (on peut en rajouter au besoin) de variables (et prévoir si aucune remplie) --->>

Code:

---

1 2 3 4 5 6 7 8

a = "" b = "" c = "cccccc" d = "dddddd" e = "eeeeeee" quoi = a & " " & b & " " & c & d & " " & e & " makache-walou-->nada-de-nada " quoi = Left(LTrim(quoi), InStr(LTrim(quoi), " ") - 1) MsgBox quoi

---