IF IMBRIQUES EN VBA (cases)

[Ilino]

Bonjour forum
ci dessous le code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n
      
   If Not Intersect(Rows(Target.Row), [G17]) Is Nothing Then
      Application.ScreenUpdating = False
      n = CInt([G17])
      Rows("19:32").Hidden = False
      Select Case n
         Case 0 '
            Rows("19:32").Hidden = True
         Case 1 '
             Rows("19:32").Hidden = False
         Case 2 'Aérien
            Rows("19:24").Hidden = True
         Case 3 '
            Rows("19:32").Hidden = False
      End Select
   End If
     
End Sub

je souhaiterai ajouter d'autre condition dans les cases ( ci joint l’example case 1 )
GRAZIE

 

[Ilino]

Re : IF IMBRIQUES EN VBA (cases)

Bonjour forum
est ce que mon souci est claire?
grazie

 

[Paf]

Re : IF IMBRIQUES EN VBA (cases)

bonjour,

en principe (non testé) :

Case 2 'Aérien
If [C21] <> "oui" Then
    'code
Else
    'code
     if [C27]= "oui" then
         'code
     End If
End If

bonne suite

 

[Ilino]

Re : IF IMBRIQUES EN VBA (cases)

Bonsoir PAF
GRAZIE POUR LA REPONSE
ça fonctionnée
A+