macro cherche

Staple1600

XLDnaute Barbatruc

• 23 Septembre 2007

• #2

Re : macro cherche

Bonjour

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

 

Vote positif 0 Vote négatif

chinel

XLDnaute Impliqué

• 23 Septembre 2007

• #3

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 !

 

Pièces jointes

• test1.xls

  38 KB · Affichages: 61
• test1.xls

  38 KB · Affichages: 57
• test1.xls

  38 KB · Affichages: 55

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Septembre 2007

• #4

Re : macro cherche

Re


Un proposition (à adapter)

Code:

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)

 

Dernière édition: 23 Septembre 2007

Vote positif 0 Vote négatif

chinel

XLDnaute Impliqué

• 23 Septembre 2007

• #5

Re : macro cherche

Salut Staple1600 !


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


merci quand même !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Septembre 2007

• #6

Re : macro cherche

Re



Je poste un fichier exemple

 

Vote positif 0 Vote négatif

chinel

XLDnaute Impliqué

• 23 Septembre 2007

• #7

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 !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Septembre 2007

• #8

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

chinel

XLDnaute Impliqué

• 23 Septembre 2007

• #9

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 !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Septembre 2007

• #10

Re : macro cherche

Re


Et si tu le compresses?

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 23 Septembre 2007

• #11

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....

 

Vote positif 0 Vote négatif