macro cherche

[chinel]

Salut tout le monde !

j'ai un calendrier et dedans des prénoms, je voudrais faire une macro de recherche qui me trouve le prénom que j'aurais tapé dans (une box) et il faudrait que les autres prénoms soit invisibles est-il possible de faire cela et puis pour terminer peut on imprimer le calendrier trié et revenir à mon calendrier de base ?


merci d'avance !!!!

 

[Staple1600]

Re : macro cherche

Bonjour

Un petit fichier (compréssé) , svp, serait le bienvenu.

 

[chinel]

Re : macro cherche

Salut Staple1600 !

j'ai mis le fichier

je voudrais faire une recherche et afficher seulement le prénom recherché et puis imprimer le planning sans les autres prénoms est-il possible de faire cela ?


merci à toi et bon dimanche !

 

[Staple1600]

Re : macro cherche

Re


Un proposition (à adapter)

Sub test()
Dim rng As Range
Dim c As Range
Dim mot As String
mot = InputBox("qui?") & "*"
Set rng = Sheets(1).Range("B7:H31") 'mettre le bon nom de feuille
For Each c In rng
If Not IsEmpty(c) And Not c Like mot Then c.Font.ColorIndex = 2
Next
End Sub

PS: ton fichier réagit bizarrement chez moi

je ne peux pas changer les couleurs !!! (ni de fond de de police)
et j'ai vu qu'il y avait des formats personnalisés (ce qui embete la macro ci-dessus)

 

[chinel]

Re : macro cherche

Salut Staple1600 !


cela ne fonctionne pas car j'ai les couleurs qui s'efface !


merci quand même !

 

[Staple1600]

Re : macro cherche

Re



Je poste un fichier exemple

 

[chinel]

Re : macro cherche

ton fichier est bien mais quand je mets le code dans mon programme cela efface les numéros (qui sont les jours du mois) pourtant j'ai mis dans ton code le nom de ma feuille

merci !

 

[Staple1600]

Re : macro cherche

Re


Ta demande était:

j'ai un calendrier et dedans des prénoms, je voudrais faire une macro de recherche qui me trouve le prénom que j'aurais tapé dans (une box) et il faudrait que les autres prénoms soit invisibles

Le code proposé:

1) effectue une recherche (avec un inputbox) dans un plage spécifiée
des cellules non vides ne contenant pas le prénom recherché
et les rends "invisibles" en mettant leur police en blanc.

C'est bien le résultat escompté non?

Ensuite tu intégres ton code d'impression
puis tu remets toute la plage en couleur automatique.

 

[chinel]

Re : macro cherche

Staple1600 j'aurais bien voulu te passer mon fichier mais il fait 1.16mo car je n'arrive à faire fonctionner ton code !

 

[Staple1600]

Re : macro cherche

Re


Et si tu le compresses?

 

[jeanpierre]

Re : macro cherche

Bonjour à tous,

Même compressé, un fichier de 1.16Mo va encore faire aux alentours de 300Ko.... non ?

Mais, y-a-t'il besoin de tout le fichier....?

Le même, Oui, mais avec moins de lignes, de prénoms....