A voir également:
- Cacher cellule si dans collone vide
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Formate pour taxer client frigo vide - Forum Loisirs / Divertissements
- Cacher conversation whatsapp - Guide
- Coeur vide ✓ - Forum Facebook
8 réponses
ccm81
Messages postés
10879
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 septembre 2024
2 415
12 sept. 2016 à 15:36
12 sept. 2016 à 15:36
Bonjour
cacher les plages de cellule > tu peux masquer des lignes entières si Axx = 0 ou Axx = "", moyennant une petite macro
Cdlmnt
cacher les plages de cellule > tu peux masquer des lignes entières si Axx = 0 ou Axx = "", moyennant une petite macro
Cdlmnt
Bonjour,
Merci pour votre retour,
Cela va être difficile dans la mesure ou il y a 1600 lignes, il fraudais une macro qui automatiquement cache les ligne si dans la colonne A = 0 à savoir que le tableau change constamment.
Merci d'avance
Merci pour votre retour,
Cela va être difficile dans la mesure ou il y a 1600 lignes, il fraudais une macro qui automatiquement cache les ligne si dans la colonne A = 0 à savoir que le tableau change constamment.
Merci d'avance
ccm81
Messages postés
10879
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 septembre 2024
2 415
12 sept. 2016 à 16:06
12 sept. 2016 à 16:06
Un essai
http://www.cjoint.com/c/FImogEuSn5q
Cdlmnt
http://www.cjoint.com/c/FImogEuSn5q
Cdlmnt
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
J'ai installer votre macro sur ma feuille, mais cela ne fonctionne pas sur ma feuille.
Macro :
Option Explicit
Const co = "A"
Const lideb = 2
Public Sub masquer()
Dim lifin As Long, li As Long
Application.ScreenUpdating = False
lifin = Range(co & Rows.Count).End(xlUp).Row
Call demasquer
For li = lideb To lifin
If Range(co & li).Value = 0 Then Rows(li).EntireRow.Hidden = True
Next li
Application.ScreenUpdating = True
End Sub
Public Sub demasquer()
Dim lifin As Long
lifin = Range(co & Rows.Count).End(xlUp).Row
Rows(lideb & ":" & lifin).EntireRow.Hidden = False
End Sub
Merci
Cordialement
J'ai installer votre macro sur ma feuille, mais cela ne fonctionne pas sur ma feuille.
Macro :
Option Explicit
Const co = "A"
Const lideb = 2
Public Sub masquer()
Dim lifin As Long, li As Long
Application.ScreenUpdating = False
lifin = Range(co & Rows.Count).End(xlUp).Row
Call demasquer
For li = lideb To lifin
If Range(co & li).Value = 0 Then Rows(li).EntireRow.Hidden = True
Next li
Application.ScreenUpdating = True
End Sub
Public Sub demasquer()
Dim lifin As Long
lifin = Range(co & Rows.Count).End(xlUp).Row
Rows(lideb & ":" & lifin).EntireRow.Hidden = False
End Sub
Merci
Cordialement
Bonjour,
De plus j'ai installer la macro :
Sub Macro2()
'
' Macro1 Macro
' Macro enregistrée le 12/09/2016 par ccm81
'
'
Rows("9:11").Select
Selection.EntireRow.Hidden = True
End Sub
Merci d'avance
Cordialement
De plus j'ai installer la macro :
Sub Macro2()
'
' Macro1 Macro
' Macro enregistrée le 12/09/2016 par ccm81
'
'
Rows("9:11").Select
Selection.EntireRow.Hidden = True
End Sub
Merci d'avance
Cordialement
ccm81
Messages postés
10879
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 septembre 2024
2 415
13 sept. 2016 à 11:11
13 sept. 2016 à 11:11
Quand tu dis : "mais cela ne fonctionne pas sur ma feuille." ça veut dire quoi et comment lances tu les macros ?
1. la macro Macro 2 ne sert à rien tu peux la supprimer
2. Les macros masquer et demasquer sont a copier dans le module de la feuille à traiter (dans mon exemple c'était Feuil1)
3. Si tu veux leur attribuer un raccourci-clavier (j'ai choisi Ctrl+m et Ctrl+d)
Depuis la feuille de calcul
Outils/Macro/macros/
tu selectionnes masquer
puis Option pour attribuer le raccourci clavier
Cdlmnt
1. la macro Macro 2 ne sert à rien tu peux la supprimer
2. Les macros masquer et demasquer sont a copier dans le module de la feuille à traiter (dans mon exemple c'était Feuil1)
3. Si tu veux leur attribuer un raccourci-clavier (j'ai choisi Ctrl+m et Ctrl+d)
Depuis la feuille de calcul
Outils/Macro/macros/
tu selectionnes masquer
puis Option pour attribuer le raccourci clavier
Cdlmnt