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

[Eltipekeur]

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]

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

 

[Eltipekeur]

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]

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 :

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]

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]

Bonjour Phil,
Derligne me semble correct avec le code :

 

[Phil69970]

Sylvain

Pourtant chez moi en mode pas à pas

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

@Phil69970

 

[Eltipekeur]

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]

@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]

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 :

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]

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]

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