Fichier Thierry

[phil]

Salut Thierry et le forum,

Merci pour ta réponse rapide , voilà ton fichier, en fait je voudrais que le résultat en sheet2 , apres avoir sélectionner en sheet 1 par command button ne s'efface pas et que le suivant choix que je ferai ne remplace pas le premier en sheet 2 mais s'ajoute à celui-ci et ainsi de suite

J'espère que le fichier passera

Merci pou tout

Phil

 

[phil]

Re salut ; essai d'envoi du fichier


A plus Philippe

 

[LaurentTBT]

Salut, Phil

Pour les pièces jointes:
zip obligatoire, max 50ko, et pas de caractères spéciaux (é,è,espace,-….) seul _ est accepté, je crois!

Salut

 

[@+Thierry]

Bonjour Phil, Laurent, le Forum

Ah je n'avais pas pensé à ce fichier là quand je t'ai répondu hier. D'ailleurs c'est plus une sorte de test qu'une démo mais si tu y as trouvé ton bonheur alors c'est le principal !


Bon alors juste deux petits trucs à faire pour que cette macro "FiltreReport" fasse ce que tu veux :

Cette Ligne :
Sheets(2).Range("a2:d100").ClearContents
ACTION : => A Supprimer

Cette Ligne :
iF2 = 2
ACTION : => A Remplacer par :
iF2 = Sheets("Sheet2").Range("A65536").End(xlUp).Row + 1

C'est tout, à partir de ces changement la macro reportera les items filtrés à la suite les uns des autres, ligne par ligne.

Bonne Soirée Foot !!! (Forza Monegu !!)
@+Thierry