Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Code pour masquer des lignes

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Jiheme
  • 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 !

S'inscrire

Jiheme

XLDnaute Accro
Bonsoir à tous

J'ai écrit un petit bout de code pour masquer des lignes en fonction de la présence ou non de "TERMINE" en colonne "AF" cette opération doit commencer à la ligne 10 et se terminé à la dernière ligne utilisée dans la colonne B qui est toujours renseignée.

Code: 
Sub Masquer_Terminé()
Dim x As Integer
For x = 10 To Sheets("Contrats").Range("B65536").End(xlUp).Row
If Range("AF" & x) = "TERMINE" Then EntireRow.Hidden = True
End If
Next x
End Sub

Le problème est le suivant : cela fonctionne pour la ligne 10, mais plus après ! Je suppose que j'ai merdouillé dans la boucle, mais je ne vois pas où.

Merci

A+
 
Trier par date Trier par votes
Re : Code pour masquer des lignes

bonjour jiheme

A tester:

Code: 
Sub Masquer_Terminé()
Dim x As Integer
For x = 10 To Sheets("Contrats").Range("B65536").End(xlUp).Row
If Range("AF" & x) = "TERMINE" Then Rows(x).Hidden = True
End If
Next x
End Sub
 
Vote positif 0 Vote négatif
Re : Code pour masquer des lignes

Bonsoir Pierrejean, le Forum

Je me croyais sauvé quand j'ai vu ton pseudo, tu m'as déjà sorti de tant de galère, et bien pour une fois ça accroche, avec ton code j'ai en retour le message suivant :"End If sans bloc If".

Perso, je suis encore plus perdu!!!

A+
 
Vote positif 0 Vote négatif
Re : Code pour masquer des lignes

Me semble que le "end if" est utilisé quand la condition du "then" est a la ligne,
donc comme la le "then" est dans la continuité du if, peut être enlever le "end if"

donc :
Sub Masquer_Terminé()
Dim x As Integer
For x = 10 To Sheets("Contrats").Range("B65536").End(xlUp).Row
If Range("AF" & x) = "TERMINE" Then Rows(x).Hidden = True
Next x
End Sub

ou
Sub Masquer_Terminé()
Dim x As Integer
For x = 10 To Sheets("Contrats").Range("B65536").End(xlUp).Row
If Range("AF" & x) = "TERMINE" Then
Rows(x).Hidden = True
End If
Next x
End Sub
 
Vote positif 0 Vote négatif
Re : Code pour masquer des lignes

Bonsoir Skqgent, re à tous

Merci, effectivement la deuxième solution est OK (avec le Then à la ligne et le End If), autant dire que je ne sais pas pourquoi, mais je vais essayer de le retenir.

Merci beaucoup

A+
 
Vote positif 0 Vote négatif
Re : Code pour masquer des lignes

Bonjour,

Je cherche la meme chose mais je n'arrive pas a adapter le code.

Voici ce que j'ai fait:

Private Sub CommandButton1_Click()

Dim x As Integer
For x = 10 To Sheets(2008).Range("B202").End(xlUp).Row
If Range("B" & x) = "Mascot 1" Then
Rows(x).Hidden = true
End If
Next x
End sub


Je veux pouvoir masquer sur ma feuille (2008) toutes les lignes ou le terme (texte) "Mascot 1" n'apparait pas en colonne B.
Dans mon code, je fais afficher les lignes avec "Mascot 1" mais je masque pas les autres....

Je suis bloqué....

Merci a vous 😉
 
Vote positif 0 Vote négatif
Re : Code pour masquer des lignes

Je pense avoir trouvé....

C'était simple en fait:

Private Sub CommandButton1_Click()

Dim x As Integer
For x = 11 To Sheets("2008").Range("B202").End(xlUp).Row
Rows(x).Hidden = True
If Range("B" & x) = "Mascot 1" Then
Rows(x).Hidden = False
End If
Next x

End Sub

Par contre, y-a-t-il un quelconque moyen de limiter l'affichage des lignes a une plage donnée? je veux pas toucher aux colonnes après le K.

Merci
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Code pour masquer des lignes

Bonjour,
Mattttttttttrix à dit:
For x = 11 To Sheets("2008").Range("B202").End(xlUp).Row
Rows(x).Hidden = True
If Range("B" & x) = "Mascot 1" Then
Rows(x).Hidden = False
Cliquez pour agrandir...

Il me semble qu'il n'est pas utile de masquer pour ensuite démasquer donc
For x = 11 To Sheets("2008").Range("B202").End(xlUp).Row
If Range("B" & x) <> "Mascot 1" Then
Rows(x).Hidden = true
Cliquez pour agrandir...

Mattttttttttrix à dit:
Par contre, y-a-t-il un quelconque moyen de limiter l'affichage des lignes a une plage donnée? je veux pas toucher aux colonnes après le K.
Cliquez pour agrandir...
Ce sont des lignes ou des colonnes que tu veux masquer, parce que l'on ne peut pas masquer un morceau de ligne !
A+
kjin
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

H
  • Question Question
XL 2019 Masquer des lignes sous condition en vba
Réponses
8
Affichages
298
job75
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
563
Yogean
Y
  • Résolu(e)
XL pour MAC Code vba pour recherche sur une seule ligne
Réponses
4
Affichages
185
deudecos
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
255
anthoYS
  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
281
anthoYS
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
338
PRy
P
  • Résolu(e)
XL 2019 Insérer un commentaire prêt à saisir de B à X sans limite... (excepté en ligne 1 ; taille de commentaire Ok déjà voir code VB en B*)
Réponses
7
Affichages
266
Nicolas JACQUIN
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
488
sylvanu
R
  • Résolu(e)
XL pour MAC La méthode "_default" de l'objet "Range" a échoué
Réponses
5
Affichages
407
Rod59
R
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
624
anthoYS
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
2 K
Webperegrino
W
  • Question Question
XL 2016 Masquer et afficher lignes
Réponses
3
Affichages
564
gbinforme
G
S
  • Résolu(e)
Microsoft 365 Boucle pour afficher et masquer des lignes
Réponses
12
Affichages
902
shf
S
C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
372
CortoXls
C
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
818
thunder23
N
  • Question Question
Microsoft 365 TEXTBOX pour filtrer un TCD
Réponses
6
Affichages
405
Hecatonchire
H
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
853
Lu76Fer
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
881
piga25
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
567
mikeduff
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…