Macro, masquer les lignes contenant des valeurs définies
Fermé
Warp
-
10 déc. 2012 à 16:22
Morgothal Messages postés 1236 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 - 18 déc. 2012 à 09:11
Morgothal Messages postés 1236 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 - 18 déc. 2012 à 09:11
A voir également:
- Macro, masquer les lignes contenant des valeurs définies
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Comment masquer les amis sur facebook - Guide
- Excel trier par ordre alphabétique en gardant les lignes - Guide
- Masquer conversation whatsapp - Guide
5 réponses
Morgothal
Messages postés
1236
Date d'inscription
jeudi 22 avril 2010
Statut
Membre
Dernière intervention
19 mai 2015
183
10 déc. 2012 à 16:49
10 déc. 2012 à 16:49
Bonjour,
Voici une macro qui masque les lignes où en colonne C il y a "LIGNE A MASQUER" :
Voici une macro qui masque les lignes où en colonne C il y a "LIGNE A MASQUER" :
Sub cacher_lignes() Dim ligne, ligne_max As Long ligne_max = Range("C65536").End(xlUp).Row For ligne = 1 To ligne_max If Cells(ligne, 3) = "LIGNE A MASQUER" Then Rows(ligne & ":" & ligne).Select Selection.EntireRow.Hidden = True End If Next End SubC'est une solution, il y en a sûrement d'autres ;-)
une fois que j'essai d'activer la macro il me mentionne "erreur de compilation" avec ce code
Sub Zonecombinée23_QuandChangement()
15 cm
End Sub
????
Sub Zonecombinée23_QuandChangement()
15 cm
End Sub
????
Morgothal
Messages postés
1236
Date d'inscription
jeudi 22 avril 2010
Statut
Membre
Dernière intervention
19 mai 2015
183
10 déc. 2012 à 17:01
10 déc. 2012 à 17:01
Ce doit être du code déjà présent dans ton classeur, essaye de le mettre en commentaires si tu ne sais pas à quoi il sert (en mettant des ' devant les lignes)
Morgothal
Messages postés
1236
Date d'inscription
jeudi 22 avril 2010
Statut
Membre
Dernière intervention
19 mai 2015
183
Modifié par Morgothal le 11/12/2012 à 09:46
Modifié par Morgothal le 11/12/2012 à 09:46
Bonjour,
Comme ceci :
-------------------
Cordialement,
Clément
Comme ceci :
Sub cacher_lignes() Dim ligne As Long Dim colonne as Integer For colonne = 1 To 30 For ligne = 1 To Cells(65536, colonne).End(xlUp).Row If Cells(ligne, colonne) = "LIGNE A MASQUER" Then Rows(ligne & ":" & ligne).Select Selection.EntireRow.Hidden = True End If Next Next End Sub
-------------------
Cordialement,
Clément
Morgothal
Messages postés
1236
Date d'inscription
jeudi 22 avril 2010
Statut
Membre
Dernière intervention
19 mai 2015
183
11 déc. 2012 à 12:58
11 déc. 2012 à 12:58
On est que mardi malheureusement ;-)
N'oublie pas de marquer le sujet comme résolu si c'est le cas !
Bonne semaine !
N'oublie pas de marquer le sujet comme résolu si c'est le cas !
Bonne semaine !
Merci beaucoup,
Ca fonctionne à merveille.
Avant de confirmer la résolution du problème, pourrais-tu me donner le code qui permetterait d'annuler cette action pour que je puisse créer une seconde macro.
Merci d'avance...
Ca fonctionne à merveille.
Avant de confirmer la résolution du problème, pourrais-tu me donner le code qui permetterait d'annuler cette action pour que je puisse créer une seconde macro.
Merci d'avance...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Morgothal
Messages postés
1236
Date d'inscription
jeudi 22 avril 2010
Statut
Membre
Dernière intervention
19 mai 2015
183
18 déc. 2012 à 09:11
18 déc. 2012 à 09:11
Bonjour,
Bonne journée !
Sub afficher_lignes() Cells.Select Selection.EntireRow.Hidden = False Range("A1").Select End Sub
Bonne journée !