Macro mal écrite

[Fabien]

Bonjour

Je tente décrire une macro qui affiche ou masque des lignes en fonction de la valeur d'une cellule, sur une feuille pas sur un bouton

Private Sub Affichage_Zone_Utile()

If Range("E4").Value = "A COMPLETER ABSOLUMENT" Then
Rows("5:65536").Hidden = True
If Range("E4").Value = "DEPARTEMENTALE 2,DEPARTEMENTALE 1,NATIONALE 3,NATIONALE 2" Then
Rows("5:63").Hidden = False
Rows("64:65536").Hidden = True
If Range("E4").Value = "NATIONALE 1" Then
Rows("5:63,205:65536").Hidden = True
Rows("64:204").Hidden = False

End Sub

Quelqu'un voit il les erreurs

Merci

 

[Eric C]

Bonsoir le forum
Bonsoir Fabien

A première vue, il faut compléter tes test par :
ElseIf Range et non If
Puis mettre End If avant la fin de ta maco End Sub

@ + Eric C

 

[Fabien]

J'ai apporté les corrections mais ne fonctionne tjs pas

Private Sub Affichage_Zone_Utile()

ElseIf Range("E4").Value = "A COMPLETER ABSOLUMENT" Then
Rows("5:65536").Hidden = True
ElseIf Range("E4").Value = "DEPARTEMENTALE 2,DEPARTEMENTALE 1,NATIONALE 3,NATIONALE 2" Then
Rows("5:63").Hidden = False
Rows("64:65536").Hidden = True
ElseIf Range("E4").Value = "NATIONALE 1" Then
Rows("5:63,205:65536").Hidden = True
Rows("64:204").Hidden = False
End If
End Sub

Merci

 

[CBernardT]

Bonsoir Fabien et Eric

Comme un petit schéma vaut mieux qu'un long discours, le fichier joint répond, je pense à ta question.

J'ai mis en "E4" une liste de validation pour tester les différentes possibilités. Pour l'enlever faire effacer tout.

Cordialement

CBernardT

 

[Raja]

Salut,
Je suis un nouveau pour ce forum. Essaies le code suivant :

Private Sub Affichage_Zone_Utile()
Rows.Hidden = False
Select Case Range("E4").Value
Case "A COMPLETER ABSOLUMENT"
Case "DEPARTEMENTALE 1", "DEPARTEMENTALE 2", "NATIONALE 2", "NATIONALE 3"
Rows("64:65536").Hidden = True
Case "NATIONALE 1"
Rows("5:63").Hidden = True
Rows("205:65536").Hidden = True
End Select
End Sub

Ce n'est peut être pas le meilleur. Mais ça marche.
a+

 

[Raja]

Excuse moi j'ai oublié une ligne.

Private Sub Affichage_Zone_Utile()
Rows.Hidden = False
Select Case Range("E4").Value
Case "A COMPLETER ABSOLUMENT"
Rows("5:65536").Hidden = True
Case "DEPARTEMENTALE 1", "DEPARTEMENTALE 2", "NATIONALE 2", "NATIONALE 3"
Rows("64:65536").Hidden = True
Case "NATIONALE 1"
Rows("5:63").Hidden = True
Rows("205:65536").Hidden = True
End Select
End Sub

 

[Fabien]

Bonjour et BONNE ANNEE

Merci Raja et CBernardT

C'est génial, j'ai prix les macros de CBernardT car l'exemple me satisfait completement

Merci BEAUCOUP.