recherche date

[Darkv]

Bonjour le forum & bonjour tous le monde
voila 3 jrs au moins que je m'arrache les cheveux j'en ai presque plus
kan je clik sur recherche date et que j'entre la date ex:24/06/04 et il me met toutes les dates du 24/06/04 en jaune(normal je lui demande) mais moi ce que je cherche a faire c'est de selection toutes ces dates avec les cellule a cotées
d'avance merci a toutes & à tous

 

[Zon]

Salut,

Pour colorer jusqu'à la la colonne i utilises range qui accepte 2 arguments dont la cellule recherchée et avec offset permet de d'avoir la ligne.
range(celluleàtester,celluleàtester.offset(0,8))..Interior.ColorIndex = 6

A+++

 

[Jean-Marie]

Bonsoir Darkv

Si tu veux toute la ligne en jaune remplace ta ligne
[A1:I1].Offset(celluleˆtester.Row - 1, 0).Interior.ColorIndex = 6

Attention, l'utilisation des caractères accentués dans le nom des feuilles, de le nom des variables dans VBA sont à proscrire.

@+Jean-Marie

 

[Zon]

Re;

salut Jean Marie je comprends pourquoi tu n'es pas sur le Tchat ...
j'ai mis un point de trop range(celluleàtester,celluleàtester.offset(0,8)).Interior.ColorIndex = 6

A+++

 

[Darkv]

slt zon, jean marie & le forum
merci de vous etres penché sur mon prob
et si maintemant je veux selectionner que ce qui est en jaune et l'imprimer
puis je remplacer .interior.colorindex par un select ou y a t'il une autre facon
cordialement
darkv

 

[Zon]

Salut,

2 exemples dans le fichier joint un par boucle et un par filtre automatique. Tu verras j'imprime pas mais je fais juste un aperçu.

J'ai mis des boutons pour que Jean Marie n'est pas de souci sur son Apple II.

A+++

 

[Jean-Marie]

Bonjour

Zon, je te remercie, l'homme de Cro-Magnon va devoir faire des efforts pour passer au VBA, si vous continuez à faire des applis compatibles avec les descendants d'Apple. Plus que 3 semaines pour mettre aux oubliettes les macros XL4.

Nous aurons un sujet de discussions sur le chat.

@+Jean-Marie

 

[Celeda]

Bonjour,

bé Titi j'ai un problème....et ne va pas dire "comme d'habitude", siouplait!!

bon quand je lance par filtre : rien ne se passe

mais quand je lance par boucle, il me laisse bien la ou les lignes de date
désirée et j'ai la msg box, qui me dit "aucune date trouvée"", lol elle se fout de moi!!!

c'est quoi le problème Zon ?

je te remercie à l'avance de ton extreme patience vu la chaleur

Celeda

 

[Zon]

Re,

Celeda si tu n'as aucun message avec le filtre cela veut dire qu'il n'y a pas d'erreur et que c'est bien filtré, tu ne dois pas avoir d'imprimante installée car le printpreview ne fonctionne pas.

Il te suffit de supprimer cette ligne F.AutoFilterMode = False dans PrincFiltre.
Même cause même effet pour l'autre procédure Printpreview doit renvoyer 1004 comme N° d'erreur.

A+++

 

[Celeda]

Bonjour,

Merci Titi, il me semblait bien que tout n'était pas installé chez moi !!!

et ce coup de la printer ce n'est pas la première fois, j'aurai du m'en douter.

Celeda

 

[Darkv59]

Bonjour zon,jean-marie,celeda & le forum
Merci pour votre aide j'avanc a pas de geants
bonne soirée a tous et bonne vacance pour les veinards
Darkv