Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel VBA : rechercher mais ne pas afficher

VBA : rechercher mais ne pas afficher

2 réponses
Avatar
JM à Paris
Bonjour à tous,

voici l'extrait du VBA pour dire :
"je recherche les lignes 3 à 13 (et 20 à 27) mais je ne veux pas qu'elles
s'affichent" :

Cells.Select
Selection.EntireRow.Hidden = False
Rows("3:13").Select '(ne pas afficher lignes 3 à 13)
Selection.EntireRow.Hidden = True
Rows("20:27").Select '(ne pas afficher lignes 20 à 27)
Selection.EntireRow.Hidden = True
Range("A14").Select
End Sub

Comment remplacer :
Rows("3:13").Select '(ne pas afficher lignes 3 à 13)
par "je recherche dans la colonne A le chiffre "1" mais je ne veux pas que
les lignes avec ce chiffre dans la col. A s'affichent".

Le code suivant est-il bon ? (j'ai une erreur de syntaxe)
Range("A:A") = "1" .Select '(ne pas afficher si contenu de la cellule est
"1" dans la colonne A)

Merci de votre aide
JM
Signaler un problème avec ce contenu

2 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
JB
Bonjour,

For Each c In [a:a].SpecialCells(xlCellTypeConstants, 23)
If c.Value = 1 Then c.EntireRow.Hidden = True
Next c

JB
Avatar
JM à Paris
Merci pour ces 1ers éléments.

Si dans la colonne A, la valeur recherchée est 2 cela correpond à cela ? :
Sub phase_terr()
'
' phase_terr Macro

'
'Cells.Select
'Selection.EntireRow.Hidden = False
For Each c In [a:a].SpecialCells(xlCellTypeConstants, 23)
If c.Value = 2 Then c.EntireRow.Hidden = True
Next c
'Rows("3:13").Select
'Selection.EntireRow.Hidden = True
'Rows("20:27").Select
'Selection.EntireRow.Hidden = True
'Range("A14").Select
End Sub

=================================

Bonjour,

For Each c In [a:a].SpecialCells(xlCellTypeConstants, 23)
If c.Value = 1 Then c.EntireRow.Hidden = True
Next c

JB