Bonjour à tous,
Connaissances en VisualBasil nulles et ayant parcouru le forum sans succès, je sollicite votre aide.
J’ai besoin de 2 macros pour masquer et afficher des lignes dans une feuille Excel que j’affecte à un bouton.
Première macro :
En cliquant sur le bouton
=> Masque les lignes 37 à 42 et 49 à 54
=> Affiche les lignes 43 à 48
Et puis en recliquant sur le bouton , on fait le contraire
=> Affiche 37 à 42 et 49 à 54
=> Masque les lignes 43 à 48
Deuxième macro
En cliquant sur le bouton
=> Masque les lignes 37 à 42 et 43 à 48
=> Affiche les lignes 49 à 54
Et puis en recliquant sur le bouton , on fait le contraire
=> Affiche 37 à 42 et 49 à 54
=> Masque les lignes 43 à 48
Voici ce que j’ai fait pour la première :
Sub grouper_cap_25()
With Rows("43:48")
If Not .Hidden Then .Hidden = True Else .Hidden = False
End With
With Rows("37:42")
If .Hidden Then .Hidden = False Else .Hidden = True
End With
With Rows("49:54")
If .Hidden Then .Hidden = False Else .Hidden = True
End With
End Sub
Merci d’avance pour votre aide.
Bonne journée,
Franck
Connaissances en VisualBasil nulles et ayant parcouru le forum sans succès, je sollicite votre aide.
J’ai besoin de 2 macros pour masquer et afficher des lignes dans une feuille Excel que j’affecte à un bouton.
Première macro :
En cliquant sur le bouton
=> Masque les lignes 37 à 42 et 49 à 54
=> Affiche les lignes 43 à 48
Et puis en recliquant sur le bouton , on fait le contraire
=> Affiche 37 à 42 et 49 à 54
=> Masque les lignes 43 à 48
Deuxième macro
En cliquant sur le bouton
=> Masque les lignes 37 à 42 et 43 à 48
=> Affiche les lignes 49 à 54
Et puis en recliquant sur le bouton , on fait le contraire
=> Affiche 37 à 42 et 49 à 54
=> Masque les lignes 43 à 48
Voici ce que j’ai fait pour la première :
Sub grouper_cap_25()
With Rows("43:48")
If Not .Hidden Then .Hidden = True Else .Hidden = False
End With
With Rows("37:42")
If .Hidden Then .Hidden = False Else .Hidden = True
End With
With Rows("49:54")
If .Hidden Then .Hidden = False Else .Hidden = True
End With
End Sub
Merci d’avance pour votre aide.
Bonne journée,
Franck