Microsoft 365 Masquer Lignes sous condition

[eric72]

Bonsoir à tous,
Me voilà de nouveau bloqué avec une demande toute bête, j'ai une feuille avec des lignes dans lesquelles il y a des numéros de 1 à 130, j'ai une cellule dans laquelle il y a un chiffre "K1", j'aimerais juste effacer toutes les lignes dont le numéro en colonne "A" est supérieur à "K1", et oui je sais c'est le B A BA mais je n'y parviens pas.
Merci beaucoup à tous pour ce coup de main

 

[Phil69970]

Bonjour @eric72

Une précision tu veux faire quoi exactement :

1) Masquer comme le dit ton titre

2) Effacer les lignes

j'aimerais juste effacer toutes les lignes

3) Supprimer les lignes

4) Autres choses

 

[eric72]

Bonsoir Phil,
Oups désolé, juste MASQUER
Merci

 

[Phil69970]

Re
je te propose ce fichier

 

[eric72]

Re
je te propose ce fichier

Super comme d'habitude, peux-tu m'expliquer cette partie du code:

Test + 3 & ":" & Derlig

afin de pouvoir le reproduire en d'autres circonstances.
Merci beaucoup

 

[Phil69970]

Re

peux-tu m'expliquer cette partie du code:

Test + 3 & ":" & Derlig

Test est la valeur de K1
Derlig est la dernière ligne de la colonne A dans l'absolu je peux m'en passer si tu as toujours 130 lignes écrites dans la colonnes A

Maintenant un peu de math et une photo
Si K1 = 4
Le 4 colonne A est la 6eme ligne
Donc 6 - 4 = 2
Et +1 pour avoir la ligne suivante

==> (4+2+1) ==> ligne 7 à la dernière ligne à masquer

Tu es toujours là

 

[eric72]

oui oui c'était surtout ça qui me chiffonnait:
":"
je ne comprends pas les :

 

[Phil69970]

Re

@eric72
Allons, allons Eric les ":" c'est comme quand tu écris par exemple :

Range("A1:B1")

Cela délimite la plage de cellules

Et pour ton fichier

Rows(Test + 3 & ":" & Derlig).Hidden = True

==> lignes 7 à lignes 130 à masquer

 

[eric72]

Re

@eric72
Allons, allons Eric les ":" c'est comme quand tu écris par exemple :


Cela délimite la plage de cellules

Et pour ton fichier


==> lignes 7 à lignes 130 à masquer

Merci beaucoup pour ton dévouement et très bonne soirée à toi.