Bonjour à tous,
Etant novice en VBA, je sollicite votre aide.
Mon cas est le suivant :
Un classeur Excel ayant plusieurs onglet.
J'ai un code dans ma feuille 1 qui permet de cacher plusieurs lignes dans ma feuille 2 si la valeur de la cellule B29 est positive ou nulle.
A ce dernier, je voudrais ajouter un code qui dit que si, toujours en feuille 1 la B36 = OUI alors je veux voir la feuille 3, si = NON alors la feuille 3 doit être cachée.
Je n'arrive pas à trouver de formule qui fonctionne pour cacher ma feuille, et de plus, je n'arrive pas à cumuler les codes.
Pas très douée...
Et, dans mon premier code, j'aimerai pouvoir cacher plusieurs lignes qui ne se suivent pas, mais à moins de faire plusieurs lignes de code, ça ne marchait pas (avec virgule, point virgule ou autre).
Voici mon code (la deuxième partie ne fonctionne pas).
Private Sub worksheet_change(ByVal Target As Range)
If Not Intersect(Target, Range("B29")) Is Nothing Then
With Sheets("feuil2")
If Target = 0 Then .Rows("7:9").Hidden = True
If Target = 0 Then .Rows("14").Hidden = True
If Target = 0 Then .Rows("12").Hidden = True
If Target = 0 Then .Rows("19:20").Hidden = True
If Target > 0 Then .Rows("7:9").Hidden = False
If Target > 0 Then .Rows("14").Hidden = False
If Target > 0 Then .Rows("12").Hidden = False
If Target > 0 Then .Rows("19:20").Hidden = False
End With
End If
If Not Intersect(Target, Range("B36")) Is Nothing Then
With Sheets("Feuil3")
If Target = NON Then .Worksheets("feuil3").Visible = True
If Target = OUI Then .Worksheets("feuil3").Visible = False
End With
End If
End sub
Si quelqu'un peut m'aider...
Merci d'avance !