VBA select case no result

Bonjour,

j'ai un select case testant plusieurs possibilités qui fonctionne correctement et me cache des champs si aucune valeurs retournés

toutefois j'ai un soucis dans le cas ou il n'y pas de résultat

en effet dans mon cas j'ai ici select case 1 jusqu'a 18 de cette forme

si aucun résultat je souhaiterais que toutes mes input soit non visible

hors voila si aucune résultat ça m'affiche au moins une ligne de champ vide..

   Select Case i

        Case 1
            WP1 = WP_nb
            WP1_Title = WP_Title
            WP1_PM = WP_PM
            WP1_Month_Start = WP_Month_Start
            WP1_Start = WP_Start_Date
            WP1_Month_End = WP_Month_End
            WP1_End = WP_End_Date
            WP1_Status = WP_Status

    If WP1 = "" Then

    WP1.Visible = False
    WP1_Title.Visible = False
    WP1_PM.Visible = False
    WP1_Month_Start.Visible = False
    WP1_Start.Visible = False
    WP1_Month_End.Visible = False
    WP1_End.Visible = False
    WP1_Status.Visible = False
    WP1_Start_Label.Visible = False
    WP1_Month_Start_Label.Visible = False
    WP1_End_Label.Visible = False
    WP1_Month_End_Label.Visible = False
    WP1_PM_Label.Visible = False
    WP1_Status_Label.Visible = False

    End If

voila enfin avec le début du code:

For i = 1 To 18
    With Sheets("WP")
        ok = False
        Set ici = .Range("C:C").Find(Acronym, LookIn:=xlValues)
        If Not ici Is Nothing Then
            prem = ici.Address

            Do
                If ici.Offset(0, -2) = (ProjectId & "_" & i) Then ok = True
                If Not ok Then Set ici = .Range("C:C").FindNext(ici)
            Loop While Not ici Is Nothing And ici.Address <> prem And Not ok
        End If
        If ok Then
            WP_nb = "WP " & ici.Offset(0, 1)
            WP_Title = ici.Offset(0, 2)
            WP_PM = ici.Offset(0, 3)
            WP_Month_Start = ici.Offset(0, 4)
            WP_Start_Date = ici.Offset(0, 5)
            WP_Month_End = ici.Offset(0, 6)
            WP_End_Date = ici.Offset(0, 7)
            WP_Status = ici.Offset(0, 8)
        Else
            WP_nb = ""
            WP_Title = ""
            WP_PM = ""
            WP_Month_Start = ""
            WP_Start_Date = ""
            WP_Month_End = ""
            WP_End_Date = ""
            WP_Status = ""

        End If
    End With

    Select Case i

        Case 1
            WP1 = WP_nb
            WP1_Title = WP_Title
            WP1_PM = WP_PM
            WP1_Month_Start = WP_Month_Start
            WP1_Start = WP_Start_Date
            WP1_Month_End = WP_Month_End
            WP1_End = WP_End_Date
            WP1_Status = WP_Status

    If WP1 = "" Then

    WP1.Visible = False
    WP1_Title.Visible = False
    WP1_PM.Visible = False
    WP1_Month_Start.Visible = False
    WP1_Start.Visible = False
    WP1_Month_End.Visible = False
    WP1_End.Visible = False
    WP1_Status.Visible = False
    WP1_Start_Label.Visible = False
    WP1_Month_Start_Label.Visible = False
    WP1_End_Label.Visible = False
    WP1_Month_End_Label.Visible = False
    WP1_PM_Label.Visible = False
    WP1_Status_Label.Visible = False

    End If

une idée svp?

merci par avance,

Bonsoir,

le code VBA c'est bien !

le code VBA avec les balises de code VBA c'est très bien !

Par contre le code VBA sans le fichier...

@ bientôt

LouReeD

Sinon le Select Case contient un "Else" pour ce qui n'entre pas dans les critères...

ou un truc comme ça...

@ bientôt

LouReeD

merci mais justement c'est bien le soucis

en fait quand je test else ca ne fait rien

Case Else

MsgBox ("erreur")

ca n'est même pas rencontré..

et ce n'est pas un soucis dans le code a priori mais dans ma formulation.

le cas n'est même pas 0 car testé mais nul ou vide..