Discussion :

[rodrigue62]

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.

[Invité]

Bonjour

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

Code :

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

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

[Plateforme3]

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

Code :

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

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

[zazaraignée]

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

Code :

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

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