XL 2019 Masquer des lignes sous condition en vba

[Hellboy60]

Bonjour à toutes les personnes présentes.

je souhaiterais masquer toutes les lignes contenant un "x" dans la colonne de "A7:A72"
sachant que les "x" de la colonne "A7:A72" peuvent changer de place par une recherchex
donc, dès qu'il y a du changement de la colonne de "A7:A72",
Je souhaiterais que les lignes se mettent à jour en vba.

j'espère avoir été clair dans mes explications de mon problème,
et sans vouloir abuser, une petite note pour chaque ligne de commande en français
serait un plus pour ma compréhension.

et bon dimanche.

cordialement

 

[job75]

Bonjour Hellboy60, le forum,

Attention, vous écrivez :

sachant que les "x" de la colonne A peuvent changer de place par une recherchex

De deux choses l'une.

Ou bien vous modifiez les "x" manuellement et on utilisera une macro Worksheet_Change.

Ou bien vous modifiez les "x" par formules et on utilisera une macro Worksheet_Calculate.

On a vu ça sur votre précédente discussion.

A+

 

[Hellboy60]

Bonjour Hellboy60, le forum,

Attention, vous écrivez :

De deux choses l'une.

Ou bien vous modifiez les "x" manuellement et on utilisera une macro Worksheet_Change.

Ou bien vous modifiez les "x" par formules et on utilisera une macro Worksheet_Calculate.

On a vu ça sur votre précédente discussion.

A+

a savoir , les 'x" change grâce à une liste déroulante , selon ce qu'il affiche, les "x" ce retrouve a des emplacements diffèrent
moi je pencherai pour un Worksheet_Change , mais je ne suis pas et de loin un spécialiste en la matière.

 

[job75]

C'est donc une modification manuelle :

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A6", Cells.SpecialCells(xlCellTypeLastCell)).AutoFilter 1, "<>x" 'filtre automatique sur la 1ère colonne
End Sub

La macro s'exécute quand on modifie ou valide une cellule quelconque.

 

[Hellboy60]

C'est donc une modification manuelle :

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A6", Cells.SpecialCells(xlCellTypeLastCell)).AutoFilter 1, "<>x" 'filtre automatique sur la 1ère colonne
End Sub

La macro s'exécute quand on modifie ou valide une cellule quelconque.

c'est exactement ça, pile poil ce dont j'avais besoin.
merci job75, toujours aussi réactif.
je te souhaite un bon dimanche.

 

[Hellboy60]

c'est exactement ça, pile poil ce dont j'avais besoin.
merci job75, toujours aussi réactif.
je te souhaite un bon dimanche.

juste une petite chose qui me gène, peut-on enlevé le filtre après exécution de la macro ? , toujours en vba

 

[job75]

Enlever le filtre non mais pour éviter tous ces boutons de filtrage on peut limiter la zone filtrée à la colonne A :

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A6:A" & Cells.SpecialCells(xlCellTypeLastCell).Row).AutoFilter 1, "<>x"  'filtre automatique sur la colonne A
End Sub

 

[Hellboy60]

Enlever le filtre non mais pour éviter tous ces boutons de filtrage on peut limiter la zone filtrée à la colonne A :

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A6:A" & Cells.SpecialCells(xlCellTypeLastCell).Row).AutoFilter 1, "<>x"  'filtre automatique sur la colonne A
End Sub

super, bonne journée

 

[job75]

Bien voir que le bouton de filtre en A6 est très utile car il permet d'annuler le filtrage facilement si nécessaire.