[VBA-E]Structure conditionnelle sur plusieurs variables

Bonjour,

existe-t-il une sorte de select case Dans lequel on peut tester diferrentes expression, comme c'est possible dans certains langages?
je m'explique un peu mieux, j'aimerais tester si une cellule est renseignée, si ce n'est pas le cas j'en test une autre, si elle n'est toujours pas renseignée je test une troisieme, et si aucune n'est renseignée j'affiche un message. Si la premiere cellule testé est rensignée je ne veux pas tester les autres et ainsi de suite. Existe t'il une structure pouvant faire ca ou dois je me contenter de IF imbriqués?
Merci d'avance.

Bonjour

Je ne pense pas, mais tu pourrais faire une boucle avec For, dans ce style

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public Sub Test() Dim wks As Worksheet Dim i As Integer Set wks = Application.ThisWorkbook.Worksheets("Feuil1") For i = 1 To 10 ' par exemple pour 10 cellules If wks.Cells(1, i) = "" Then Else Exit For End If Next i   End Sub

---

Je viens de le taper, je n'ai pas testé, le principe serait de tester les cellules de la ligne 1, jusqu'à la colonne 10, s'il n'y a rien tu continus, s'il y'a quelque chose tu sors de la boucle, et le i te donnera le numéro de la colonne de la cellule de la première ligne.

Comme je l'ai dit je n'ai pas testé, mais c'est une piste.

Starec

Bonjour
La "méthode Starec" est bonne et concise, sinon tu peux aussi faire:

Code:

---

1 2 3 4 5 6 7

If cells(1,1)="truc" then Elseif cells(1,2)="truc" then Elseif cells(1,3)="truc" then '...etc   Endif

---

VB teste dans l'ordre et sort du test If dès qu'il trouve une condition valide
Slts

Si tu veux trouver ou débute le tableau...

Code:

---

1 2 3 4 5 6 7 8 9

Dim cellule As Range Set cellule = Range("A1") If cellule.Value = "" then Set cellule = Range("A1").End(xlDown) If cellule.Address = "$A$65536" then MsgBox "Pas de tableau!" else MsgBox "Le tableau commence à la cellule " & cellule.Address End If Set cellule = Nothing

---