mesquer et démasquer des lignes par macro

  • Initiateur de la discussion Initiateur de la discussion riegel
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

riegel

XLDnaute Nouveau
Bonsoir à tous,

J'utilise la macro ci-dessous qui me permet de démasquer des lignes si la case A41 est remplie :
...
If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
Var = (Target.Row / 41)
If Target.Row / 41 = Int(Target.Row / 41) Then
If Target.Value <> "" Then
Range("A" & Target.Row + 1 & ":A" & Target.Row + 47).EntireRow.Hidden = False
Else
Range("A" & Target.Row + 1 & ":A" & Target.Row + 47).EntireRow.Hidden = True
End If
End If
...
Je souhaiterais que ces mêmes lignes se démasquent uniquement dès que le mot "essai" est tapé dans la plage C1 à C41. Petite précision, mes cellules sont fusionnées C1 & C2, C3 & C4, ...

D'avance je vous remercie,

Bonne soirée à tous,

riegel.
 
Re : mesquer et démasquer des lignes par macro

Re,

Je te mets le code en entier...si j'ai bien compris
Code:
Private Sub worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("C1:C41")) Is Nothing And Target.Value = "essai" Then
    Range("A" & Target.Row + 1 & ":A" & Target.Row + 47).EntireRow.Hidden = False
Else
    Range("A" & Target.Row + 1 & ":A" & Target.Row + 47).EntireRow.Hidden = True
End If
End Sub
Cordialement
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
243
Réponses
1
Affichages
348
Réponses
6
Affichages
416
Réponses
3
Affichages
451
Retour