Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel masquer lignes

masquer lignes

8 réponses
Avatar
fan
bonjour,
j'aimerai de fa=E7on rapide, masquer certaines lignes d'un=20
classeur ... comment faire
dans l'attente de votre r=E9ponse ( que je sais, par=20
experience, rapide et efficace)
bien =E0 vous=20
fan
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Philippe.R
Bonsoir,
Pour masquer les lignes 7 et 12 :

Sub cache()
Range("7:7,12:12").EntireRow.Hidden = True
End Sub

pour les lignes 7 à 12

Sub cachetout()
Range("7:7","12:12").EntireRow.Hidden = True
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"fan" a écrit dans le message de news:
16ce01c4af07$7093e8f0$
bonjour,
j'aimerai de façon rapide, masquer certaines lignes d'un
classeur ... comment faire
dans l'attente de votre réponse ( que je sais, par
experience, rapide et efficace)
bien à vous
fan
Avatar
LeSteph
bonsoir,
excel:
format ligne masquer

vba exemple:
Sub maskit()
Selection.EntireRow.Hidden = True
End Sub


lSteph
...sinon ??certaines lignes .. ou d'autres que les mêmes :-?
"fan" a écrit dans le message de news:
16ce01c4af07$7093e8f0$
bonjour,
j'aimerai de façon rapide, masquer certaines lignes d'un
classeur ... comment faire
dans l'attente de votre réponse ( que je sais, par
experience, rapide et efficace)
bien à vous
fan
Avatar
clap de fin
-----Message d'origine-----
Bonsoir,
Pour masquer les lignes 7 et 12 :

Sub cache()
Range("7:7,12:12").EntireRow.Hidden = True
End Sub

pour les lignes 7 à 12

Sub cachetout()
Range("7:7","12:12").EntireRow.Hidden = True
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.



et pour être plus complet ,

Sub cachevraimenttout()
Range("7:7","12:12").EntireRow.Hidden = True
End Sub

;-))))))))

Avatar
RE bonjour

précisions :
1/
je souhaiterai que les lignes 10- 20 - 30 de la feuille
1 et les lignes 12-18-20 de la feuille 2,
se masquent automatiquement quand la cellule A1
contient le code "x"
2/ Mon niveau : j'ai étudié quelques fonctions, mais vba
je ne connait pas encore
une bonne journée, à+
fan

-----Message d'origine-----
bonsoir,
excel:
format ligne masquer

vba exemple:
Sub maskit()
Selection.EntireRow.Hidden = True
End Sub


lSteph
....sinon ??certaines lignes .. ou d'autres que les
mêmes :-?

"fan" a écrit dans
le message de news:

16ce01c4af07$7093e8f0$
bonjour,
j'aimerai de façon rapide, masquer certaines lignes d'un
classeur ... comment faire
dans l'attente de votre réponse ( que je sais, par
experience, rapide et efficace)
bien à vous
fan


.



Avatar
fan
RE bonjour

précisions :
1/
je souhaiterai que les lignes 10- 20 - 30 de la feuille
1 et les lignes 12-18-20 de la feuille 2,
se masquent automatiquement quand la cellule A1
contient le code "x"
2/ Mon niveau : j'ai étudié quelques fonctions, ce que
vous m'indiquez; je ne connait pas encore
3/ que voulez vous dire par : "retirer as pour répondre
en privé"
une bonne journée, à+
fan

-----Message d'origine-----
Bonsoir,
Pour masquer les lignes 7 et 12 :

Sub cache()
Range("7:7,12:12").EntireRow.Hidden = True
End Sub

pour les lignes 7 à 12

Sub cachetout()
Range("7:7","12:12").EntireRow.Hidden = True
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"fan" a écrit dans
le message de news:

16ce01c4af07$7093e8f0$
bonjour,
j'aimerai de façon rapide, masquer certaines lignes d'un
classeur ... comment faire
dans l'attente de votre réponse ( que je sais, par
experience, rapide et efficace)
bien à vous
fan


.



Avatar
Philippe.R
Tiens, vois pas vraiment la différence entre ma seconde formulation et la dernière proposée !
;o))
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"clap de fin" a écrit dans le message de news:
268301c4af5a$96f48060$

-----Message d'origine-----
Bonsoir,
Pour masquer les lignes 7 et 12 :

Sub cache()
Range("7:7,12:12").EntireRow.Hidden = True
End Sub

pour les lignes 7 à 12

Sub cachetout()
Range("7:7","12:12").EntireRow.Hidden = True
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.



et pour être plus complet ,

Sub cachevraimenttout()
Range("7:7","12:12").EntireRow.Hidden = True
End Sub

;-))))))))

Avatar
Philippe.R
Bonsoir fan,
1) Clic droit sur l'onglet de la feuille 1, "visualiser le code"
dans la partie gauche de la fenêtre qui vient de s'ouvrir, coller les lignes qui suivent :

''========================début de copie====================="
Private Sub Worksheet_Change(ByVal bUt As Range)
If Not Intersect(bUt, Range("a1")) Is Nothing Then
If bUt.Value = "x" Then Range("10:10,20:20,30:30").EntireRow.Hidden = True
Else
Exit Sub
End If
End Sub
''=========================fin de copie======================"

pour la feuille 2, même manip avec :

''========================début de copie====================="
Private Sub Worksheet_Change(ByVal bUt As Range)
If Not Intersect(bUt, Range("a1")) Is Nothing Then
If bUt.Value = "x" Then Range("12:12,18:18,20:20").EntireRow.Hidden = True
Else
Exit Sub
End If
End Sub
''=========================fin de copie======================"

3) Mon adresse est (médiocrement) protégée des spams par un faux nez en début,
constitué des 4 caractères A_S_ qu'il convient de retirer si tu tiens vraiment à m'écrire
sur mon adresse privée, qui apparaît ici comme
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"fan" a écrit dans le message de news:
3f4a01c4af81$71f26710$
RE bonjour

précisions :
1/
je souhaiterai que les lignes 10- 20 - 30 de la feuille
1 et les lignes 12-18-20 de la feuille 2,
se masquent automatiquement quand la cellule A1
contient le code "x"
2/ Mon niveau : j'ai étudié quelques fonctions, ce que
vous m'indiquez; je ne connait pas encore
3/ que voulez vous dire par : "retirer as pour répondre
en privé"
une bonne journée, à+
fan

-----Message d'origine-----
Bonsoir,
Pour masquer les lignes 7 et 12 :

Sub cache()
Range("7:7,12:12").EntireRow.Hidden = True
End Sub

pour les lignes 7 à 12

Sub cachetout()
Range("7:7","12:12").EntireRow.Hidden = True
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"fan" a écrit dans
le message de news:

16ce01c4af07$7093e8f0$
bonjour,
j'aimerai de façon rapide, masquer certaines lignes d'un
classeur ... comment faire
dans l'attente de votre réponse ( que je sais, par
experience, rapide et efficace)
bien à vous
fan


.



Avatar
LeSteph
Bonsoir,
Sans VBA je ne vois pas!
Soit en partant du principe que c'est la saisie A1 de Feuil1
qui doit déclencher le masquage dans les deux feuilles
Attention une formule appelant x en a1 ne le fera pas.
Ainsi ,copier depuis '**** jusqu'à'****:

'****
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myb As Boolean
If [a1] = "x" Then
myb = True
Else
myb = False
End If
Me.Rows(10).EntireRow.Hidden = myb
Me.Rows(20).EntireRow.Hidden = myb
Me.Rows(30).EntireRow.Hidden = myb
With Worksheets("feuil2")
.Rows(12).EntireRow.Hidden = myb
.Rows(18).EntireRow.Hidden = myb
.Rows(20).EntireRow.Hidden = myb
End With
End Sub
'****
ensuite retourner dans excel
alt+f11 (pour ouvrir VBA)
Ctrl+r (pour ouvrir l'explorateur de projet)
cliquer sur Feuil1 dans l'explorateur de projet (le module de code de feuil1
s'ouvre)
se positionner dedans (curseur de souris )
ctrl+v (pour coller)
fermer VBA (clic sur la croix en haut à droite de l'éditeur)

taper x en a1

et voili!

lSteph





a écrit dans le message de news:
379301c4af7f$eb32d120$
RE bonjour

précisions :
1/
je souhaiterai que les lignes 10- 20 - 30 de la feuille
1 et les lignes 12-18-20 de la feuille 2,
se masquent automatiquement quand la cellule A1
contient le code "x"
2/ Mon niveau : j'ai étudié quelques fonctions, mais vba
je ne connait pas encore
une bonne journée, à+
fan

-----Message d'origine-----
bonsoir,
excel:
format ligne masquer

vba exemple:
Sub maskit()
Selection.EntireRow.Hidden = True
End Sub


lSteph
....sinon ??certaines lignes .. ou d'autres que les
mêmes :-?

"fan" a écrit dans
le message de news:

16ce01c4af07$7093e8f0$
bonjour,
j'aimerai de façon rapide, masquer certaines lignes d'un
classeur ... comment faire
dans l'attente de votre réponse ( que je sais, par
experience, rapide et efficace)
bien à vous
fan


.