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

Masquer Ligne en VB

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

Goose

XLDnaute Occasionnel
Bonjour à tous,
voici un code que j'aimerai adapter a des colonnes (G:K)
sachant que le "2" est toujours positionné en ligne 1 des ces colonnes
Code: 
Sub Masquer()
Application.ScreenUpdating = False
Dim c As Range
For Each c In Range("J10:J84")
If c.Value = "2" Then
    c.EntireRow.Hidden = True
End If
Next
Range("D6").Select
Application.ScreenUpdating = True
End Sub
possible ou pas ?
merci par avance
Salut
 
Trier par date Trier par votes
Re : Masquer Ligne en VB

Bonjour Goose,
Je n'ai peut être pas compris mais, si le "2" est toujours en ligne 1 des colonnes, il suffit de masquer la ligne 1 du tableau.
A moins qu'avec un fichier exemple votre demande s'éclaircisse?
Cordialement
 
Vote positif 0 Vote négatif
Re : Masquer Ligne en VB

Bonjour Goose,

Oui bien sûr, c'est possible en modifiant ta ligne ainsi :

Code: 
For Each c In Range("G:K")

Mais attention, ta macro risque de prendre son temps.

Espérant avoir répondu.

Cordialement.
 
Vote positif 0 Vote négatif
Re : Masquer Ligne en VB

si mais avec le code:
Code: 
Sub masquer_Ligne()
Application.ScreenUpdating = False
For Each c In Columns("G:K")
If c.Value = "2" Then
    c.EntireRow.Hidden = True
End If
Next
Range("D1").Select
Application.ScreenUpdating = True
End Sub

ça bug en >>> If c.Value = "2" Then
!!!
je vais vous faire un exemple
salut
 
Vote positif 0 Vote négatif
Re : Masquer Ligne en VB

Goose à dit:
MErci Efgé mais ton exemple masque des lignes et non des colonnes !!
ci-joint un exemple
Salut
Cliquez pour agrandir...

Bonjour Goose, Efgé,

Goose, je pense que tu atteindras ton but en modifiant ton code ainsi :

Code: 
Sub masquer_Ligne()
Application.ScreenUpdating = False

For Each c In Columns("G:K")
If Cells(1, c.Column) = "2" Then
    c.EntireColumn.Hidden = True
End If
Next
Range("D1").Select
Application.ScreenUpdating = True
End Sub

Espérant avoir résolu.

Cordialement.
 
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

  • Question Question
XL 2016 compilation macro on/off
Réponses
7
Affichages
178
job75
W
  • Résolu(e)
XL 2019 Cacher le signe de retour à la ligne dans une ListBox d'Userform
Réponses
5
Affichages
210
Webperegrino
W
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
689
job75
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
253
cathodique
F
  • Question Question
Autres Listbox-transfère la recherche dans une ListBox vers une feuille de calcul
2
Réponses
18
Affichages
535
dysorthographie
  • 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ésolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
623
anthoYS
  • 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
264
Nicolas JACQUIN
  • 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
254
anthoYS
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
240
treza88
C
  • Question Question
Microsoft 365 Supprimer ligne selon contenu cellule (résolu)
Réponses
7
Affichages
449
job75
  • 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
277
anthoYS
M
  • Question Question
Microsoft 365 Récupération des plages nommées des fichiers dans un répertoire
Réponses
8
Affichages
367
dysorthographie
  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
831
nat54
M
  • Question Question
Autres masquer des feuilles en vba
Réponses
1
Affichages
226
sylvanu
U
  • Question Question
Autres RÉSOLU ma macro ne fonctionne pas
Réponses
3
Affichages
270
un internaute
U
  • Question Question
XL 2021 La méthode union de l'objet '_Global' a échoué
Réponses
10
Affichages
342
sousou
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…