Discussion :

[IHO17]

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

[Menhir]

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

Code :

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

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 :

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

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.

[IHO17]

Ca marche! MerciMerciMerciMerciMenhir!

[Menhir]

Il y a sans doute plus simple

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

Code :

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

1
2
3
A = B
If A = "" Then A = C
If A = "" Then A = D

[unparia]

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 :

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

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