Discussion :

[toniodelavega]

Bonjour,

J'ai un truc très bête a faire mais ça ne marche pas

J'ai une cellule en L4 (appellée Debt1), je voudrais que lorsque j'écrit "oui", la ligne 45 soit visible et si L4= Non , la ligne 45 est masquée

le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_open()
 
Dim Debt1 As String
 
    If Debt1 = ("Oui") Then Rows("45:45").EntireRow.Hidden = True
    ElseIf Debt1 = ("Non") Then Rows("45:45").EntireRow.Hidden = False
 
Else: Exit Sub
 
End If
 
Application.ScreenUpdating = True
 
End Sub

mon message d'erreur : Erreur de compilation Else sans if

merci !

[babaothe]

salut

mauvaise compréhension de la syntaxe d'utilisation du If !
commence par lire ceci :
http://www.developpez.net/forums/d96...b-ne-marchent/
merci

[Chipss]

Code :

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

1
2
3
4
5
6
7
 
If Debt1 = ("Oui") Then 
       Rows("45:45").EntireRow.Hidden = True
ElseIf Debt1 = ("Non") Then 
       Rows("45:45").EntireRow.Hidden = False 
Else
       Exit Sub

[delphine35]

Code :

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

1
2
3
4
5
6
7
8
 
    If Debt1 = ("Oui") Then
            Rows("45:45").EntireRow.Hidden = True
    ElseIf Debt1 = ("Non") Then
            Rows("45:45").EntireRow.Hidden = False
    Else: Exit Sub
 
    End If

[toniodelavega]

super ! merci les gens