Afficher de ... à

Bonjour,

Je vous écris pour un petit problème.

Je vous joins tout d'abord une pièce-jointe afin de bien comprendre ma requête.

Je cas est simple, j'ai des colonnes de données, j'aimerai, suivant ma sélection, afficher seulement les colonnes depuis le 1er mois mentionné jusqu'au 2nd.

Je vous remercie d'avance de votre aide précieuse...

Bien cordialement

Bonjour

Un essai. Te convient-il ?

Salut gmb,

Merci beaucoup c'est exactement ça !!

Excellent !

Par contre j'aimerai exécuter la même manip' avec les douze mois de l'année mais après avoir visualisé le code VBA entré, je n'arrive pas trop à le comprendre, je n'arrive pas à voir ou faire les modifications....

En imaginant que je rajoute la partie de juillet à décembre, où faudrait-il modifier le code afin qu'il marche ??

Je suis désolé, je suis plutôt novice en VBA...

Merci d'avance ...

Tu écris :

En imaginant que je rajoute la partie de juillet à décembre,

Tu n'as pas besoin de le faire : je te l'ai déjà fait ...

Tu peux afficher tous les mois de l'année.

OK ?

Exacte je n'avais pas essayé !!!

Super vraiment merci beaucoup, je vais essayer de l'adapter au tableur original...

J'ai une petite question, je ne comprend pas trop une partie du code (si je comprend cette partie, je comprendrais automatiquement l'autre)...

Voici la partie flou:

If Not Intersect(Target, Range("B3,D3")) Is Nothing Then
       If Cells(2, "B").Value <= Cells(3, "D") Then
            Set MoisD = Range("D5:AC5").Find(Cells(3, "B").Value)

Serait-il possible de m'expliquer la ligne ci-dessous?

If Cells(2, "B").Value <= Cells(3, "D")

Et quel est le lien avec celle qui suit ?

Set MoisD = Range("D5:AC5").Find(Cells(3, "B").Value)

Merci d'avance pour cette aide et cette patience pour m'expliquer...

Très bonne soirée...

je ne comprend pas trop une partie du code

If Not Intersect(Target, Range("B3,D3")) Is Nothing Then

Target est la cellule qui vient d’être validée.

B3 et D3 sont les cellules où se trouvent les mois choisis

L’intersection entre Target d’une part et les cellules B3 et D3 d’autre part représente la partie commune à ces deux ensembles. Et l’ensemble de l’instruction peut se traduire par

L’intersection de ces 2 ensembles n’est pas rien.

Ou encore : Target est B3 ou C3

If Cells(2, "B").Value <= Cells(2, "D") Then

Avec cette instruction, on vérifie que les mois sont dans le bon ordre, sinon on affiche un message d’alerte mais on ne modifie pas le tableau. En fait, il y avait une erreur dans la version V1.

Set MoisD = Range("D5:AC5").Find(Cells(3, "B").Value)

On recherche le mois dans la ligne des titres du tableau pour repérer sa colonne.

D’autres commentaires sont dans la macro de la nouvelle version.

Bye !

Merci beaucoup pour tes explications et pour ton aide !!

Passe une excellente journée