XL 2016 VBA Masquer des lignes si elles ne sont pas comprises entre deux dates renseignées dans deux cellules

Eltipekeur · 9 Février 2022

Bonjour à tous, je suis nouveau sur le forum et j'ai parcouru nombre de fils de discussion qui m'ont aidé à avancer sur des fichiers et tout particulièrement en VBA, aujourd'hui je fais appel à vous car je suis face à un mur depuis plusieurs jours, voila ce que je souhaites réaliser et le problème :
A partir de deux cellules où l'on rentre des bornes sous forme de date (N6 pour la date de début et P6 pour la date de fin), je souhaites dans un tableau qui commence à partir de la ligne 10 et termine en ligne 203, que chaque ligne, dont la date (située en colonne B) n'est pas comprise entre les bornes indiquées précédemment, soit masquée via un bouton.
Voici le code réalisé mais malheureusement celui-ci ne fonctionne pas :

Sub selection_lignes()
Rows("1:203").Select
'plage de rentrée des données
Selection.EntireRow.Hidden = False
ActiveCell.Select
Dim derligne As Long, i As Long
'numéro de la dernière ligne utilisée
derligne = Cells(203, "B").End(xlUp).Row
For i = 10 To derligne
If Cells(i, "B") > Cells(6, "P") Then Rows(i).Hidden = True
If Cells(i, "B") < Cells(6, "N") Then Rows(i).Hidden = True
Next i
End Sub

Merci à vous de votre précieuse aide

chris · 9 Février 2022

Bonjour
Pourquoi pas tout simplement un filtre avancé, piloté par VBA si tu y tiens, plutôt qu'un boucle bien moins efficace ?

Eltipekeur · 9 Février 2022

Bonjour Chris, merci de votre réponse, disons que j’aimerais que la sélection découle sur une impression de feuilles via un bouton et qu’une fois réalisée toutes les lignes soient de nouveau visibles,
Ce qui est bizarres c’est que j’ai réalisé le même type de formule dans un fichier et que celle ci fonctionne contrairement au fichier dont je vous ai parlé mais je n’arrive pas à comprendre pourquoi

sylvanu · 9 Février 2022

Bonjour Eltipekeur, Chris,
Un petit fichier test eut été le bienvenu, cela éviterait de se le retaper.
D'autre part utilisez les balises ( </> ) pour le code c'est plus lisible.
Votre macro telle qu'écrite marche. Voir PJ.
J'ai rajouté une version un peu optimisée avec :

VB:

Sub selection_lignes2()
    Dim i%, Deb, Fin
    Application.ScreenUpdating = False
    Rows("1:203").EntireRow.Hidden = False
    Deb = [N6]: Fin = [P6]
    For i = 10 To Cells(203, "B").End(xlUp).Row
        If Cells(i, "B") > Fin Or Cells(i, "B") < Deb Then Rows(i).Hidden = True
    Next i
End Sub

Phil69970 · 9 Février 2022

Bonjour à tous

@Eltipekeur
Ton code tel qu'il est écrit ne veut pas dire grand chose.
Exemple :
Si tu connais ta ligne 203 à quoi cela sert de lui affecter une variable et de plus fausse

derligne = Cells(203, "B").End(xlUp).Row

car ici derligne =1

donc quand tu écris

For i = 10 To derligne

tu écris

For i = 10 to 1

Comment veux tu que cela fonctionne ?

@Phil69970

sylvanu · 9 Février 2022

Bonjour Phil,
Derligne me semble correct avec le code :

Phil69970 · 9 Février 2022

Sylvain

Pourtant chez moi en mode pas à pas

et la boucle s’arrête après 1 seul passage

@Phil69970

Eltipekeur · 9 Février 2022

Bonjour sylvanu,
j'ai ajouté votre code dans ma feuille directement que je met en PJ afin de travailler directement dessus malheureusement, même problème qu'avec le mien, les lignes ne se masquent pas

Phil69970 · 9 Février 2022

@sylvanu

Voir le fichier que j'avais fait

Effectivement avec ton fichier c'est bon d’où l'utilité d'avoir un fichier fourni par le demandeur cela nous évite de refaire le monde chacun à notre coté

@Phil69970

sylvanu · 9 Février 2022

Re,
Votre tableau est "plein" jusqu'à la ligne 203, dans ce cas DL renvoie 8 (ça je ne sais pas pourquoi )
Il faut au moins une cellule vide pour trouver DL, soit :

VB:

derligne = Cells(204, "B").End(xlUp).Row
ou plus simple
derligne = Cells(65000, "B").End(xlUp).Row

En PJ les 2 macros modifiées. ( j'ai rajouté le bouton Visible, c'est mieux pour les tests )
@Phil,
C'est le même problème que je ne comprends pas. Si la dernière cellule de la plage est non vide alors Derligne est faux. Si vous mettez 65000 alors il est correct.
Ma première PJ marche car je n'ai rempli que B9:B44 car trop fainéant, d'où l'utilité d'un fichier test représentatif.

Eltipekeur · 9 Février 2022

Excellent, cela fonctionne parfaitement, vous m'enlever une sérieuse épine du pied, ça fait des jours que je ne trouve pas. Pour le 8 j'ai du mal à comprendre aussi, à moins qu'il y a un rapport avec l'entête du document

Un ENORME merci à vous deux @sylvanu et @Phil69970 , je vais enfin pouvoir avancer et merci au forum

sylvanu · 9 Février 2022

Oui il renvoie la première cellule. C'est ballot comme comportement;
Il aurait pu au moins renvoyer la dernière cellule.

XL 2016 VBA Masquer des lignes si elles ne sont pas comprises entre deux dates renseignées dans deux cellules

Eltipekeur

XLDnaute Nouveau

chris

XLDnaute Barbatruc

Eltipekeur

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Eltipekeur

XLDnaute Nouveau

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Eltipekeur

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Discussions similaires