VBA - Sélectionner Feuille et Masquer Ligne

Re-Bonjour le Forum,

Voilà mon code:

Private Sub CommandButton1_Click()
'FILTRE

'Intervention
Sheets(Feuil15.Name).Range("E4") = TextBox1.Value
Sheets(Feuil15.Name).Range("G4") = TextBox2.Value

'Choix de feuille suivant combobox
If ComboBox1.Value = Sheets(Feuil15.Name).Range("C2") Then
Sheets(Feuil15.Name).Activate
End If
If ComboBox1.Value = Sheets(Feuil16.Name).Range("C2") Then
Sheets(Feuil16.Name).Activate
End If
If ComboBox1.Value = Sheets(Feuil17.Name).Range("C2") Then
Sheets(Feuil17.Name).Activate
End If

'Masquer les lignes de la feuille sélectionné si
If ComboBox5.Value = Range("A44") Then
Cells(45, i).Hidden = False
Cells(46, i).Hidden = False
Cells(47, i).Hidden = False
Cells(48, i).Hidden = False
Cells(49, i).Hidden = False
Cells(50, i).Hidden = False
Cells(51, i).Hidden = False
End If

Unload Me
End Sub

Mais ceci ne fonctionne pas une idée ?

Bonjour,

c'est toujours délicat (pour ne pas dire pénible) d'avoir un code et le commentaire : ça ne fonctionne pas !

Ca ne fonctionne pas :

parce que le résultat n'est pas celui attendu ? ( mais on ne le connait pas)

parce qu'il y a une erreur ? quel N° , quel message, sur quelle ligne ?

Bonjour,

Il est vrai que je n'ai pas donné d'ou venait le soucis..

Private Sub CommandButton1_Click()
'FILTRE

'Choix de feuille suivant l'exploitation
If ComboBox1.Value = Sheets(Feuil15.Name).Range("C2") Then
Sheets(Feuil15.Name).Activate
End If
If ComboBox1.Value = Sheets(Feuil16.Name).Range("C2") Then
Sheets(Feuil16.Name).Activate
End If
If ComboBox1.Value = Sheets(Feuil17.Name).Range("C2") Then
Sheets(Feuil17.Name).Activate
End If

'Intervention
Range("E4") = TextBox1.Value
Range("G4") = TextBox2.Value

'Masquer les lignes si
If ComboBox5.Value = Range("A44") Then
Rows(45).Hidden = False
Rows(46).Hidden = False
Rows(47).Hidden = False
Rows(48).Hidden = False
Rows(49).Hidden = False
Rows(50).Hidden = False
Rows(51).Hidden = False
End If

Unload Me
End Sub

Dans mon code la partie INTERVENTION fonctionne tout comme la partie CHOIX DE FEUILLE.

La partie qui me met en surligné jaune direct c'est MASQUER LES LIGNES

Dans mon idée mon code c'est:

• Suivant mon ComboBox1 je me retrouve sur l'une des trois Feuilles
• Là j'écris dans E4 et G4
• Partie qui ne fonctionne pas // Si mon ComboBox5=A44 alors je masque mes lignes 45/46/47/48/49/50/51

La partie qui me met en surligné jaune direct c'est MASQUER LES LIGNES

Cette ligne est une ligne de commentaire, il y a peu de chance que ce soit cette ligne qui présente une erreur !

Hidden signifie "caché ou masqué"

Hidden = False va faire quoi ?

Hidden = False pour moi signifie qu'il doit cacher les lignes.

Mais du coup c'était Hidden = True ...

Merci..