Recherche de texte

pierrejean

XLDnaute Barbatruc

• 3 Février 2009

• #2

Re : Recherche de texte

Guten Tag apfwl.87

Vois si cela te convient

 

Pièces jointes

• Recherche_fournisseur-n.zip

  16.1 KB · Affichages: 44

Vote positif 0 Vote négatif

A

apfwl.87

XLDnaute Occasionnel

• 3 Février 2009

• #3

Re : Recherche de texte

Bonjour PierreJean

Merci, c'est génial, ça fonctionne parfaitement. J'aimerais utiliser cette macro sur d'autres page pour trier d'autres noms, mais j'ai honte d'avouer que je ne sais plus comment faire un bouton! Pourrais-tu m'aider encore sur ce coup là?

Merci d'avance

Françoise

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 4 Février 2009

• #4

Re : Recherche de texte

Re

Voici pour te permettre de creer un bouton afin de rechercher dans une autre feuille

En cas de problème n'hesite pas a revenir

 

Pièces jointes

• Recherche_fournisseur-nb.zip

  17 KB · Affichages: 39

Vote positif 0 Vote négatif

A

apfwl.87

XLDnaute Occasionnel

• 5 Février 2009

• #5

Re : Recherche de texte

Bonjour Pierrejean

Ca fonctionne parfaitement. Merci pour ton aide précieuse. J'ai encore un ou deux petits soucis mais je vais essayer de trouver la solution moi-même en faisant travailler ma matière grise, sinon je me permettrai de te recontacter!

Merci infiniment

Françoise

 

Vote positif 0 Vote négatif

A

apfwl.87

XLDnaute Occasionnel

• 5 Février 2009

• #6

Re : Recherche de texte

Bonjour Pierrejean

Dire que je patauge est un pléonasme! J'ai essayé mais je ne m'en sors pas. En fait, un fois que j'ai le no de dossier, il me faudrait le nom du fournisseur avec la prestation concernée, le nbre de personnes et le prix. Peux-tu à nouveau m'aider sur ce coup là?

Merci d'avance Françoise

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 5 Février 2009

• #7

Re : Recherche de texte

Re

Ma langue de Goethe etant limitée aux environs du Guten Tag peux-tu me preciser les en-tetes de colonne correspondantes aux données que tu souhaites
Par ailleurs j'ai constaté que le même N° de dossier intervient plusieurs fois
Dans ce cas sur quelle ligne prendre les données ?

 

Vote positif 0 Vote négatif

A

apfwl.87

XLDnaute Occasionnel

• 5 Février 2009

• #8

Re : Recherche de texte

Bonjour Pierrejean

merci pour ta réponse si rapide. Je t'envoie un nouveau fichier Excel. Sur la feuille 1 j'ai tous les fournisseurs ainsi que les prestations concernant le dossier 1995. Sur la feuille Ballenberg je devrais avoir:
le No de dossier (col.A)
le nom des fournisseurs qui proposent les prestations avec le mot Ballenberg (col.C)
Le libellé de la prestations (col.F)
le nombre de personne qui a utilisé cette prestation(col.G)
le prix de la presttion (col.H)

Merci d'avance

Françoise

 

Pièces jointes

• Ballenberg_n.zip

  14.4 KB · Affichages: 28
• Ballenberg_n.zip

  14.4 KB · Affichages: 21
• Ballenberg_n.zip

  14.4 KB · Affichages: 25

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 5 Février 2009

• #9

Re : Recherche de texte

Re

Voici ce que j'ai compris cette fois:

La macro (test) recherche dans la colonne C de la feuille 1 le terme Ballenberg
Si elle le trouve elle copie la ligne dans la feuille 2 a partir de la ligne 5

Si j'ai mal interpreté , reexplique encore S.T.P

 

Pièces jointes

• Ballenberg_n.zip

  16.1 KB · Affichages: 34
• Ballenberg_n.zip

  16.1 KB · Affichages: 31
• Ballenberg_n.zip

  16.1 KB · Affichages: 24

Vote positif 0 Vote négatif

A

apfwl.87

XLDnaute Occasionnel

• 6 Février 2009

• #10

Re : Recherche de texte

Bonjour Pierrejean

C'est super. Il faudrait juste que le mot "Ballenberg" soit également recherché dans les colonnes E et F en plus de la colonne C.

Merci infiniment.

Françoise

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 6 Février 2009

• #11

Re : Recherche de texte

Re

Voila

 

Pièces jointes

• Ballenberg_n.zip

  16.5 KB · Affichages: 30
• Ballenberg_n.zip

  16.5 KB · Affichages: 26
• Ballenberg_n.zip

  16.5 KB · Affichages: 35

Vote positif 0 Vote négatif

A

apfwl.87

XLDnaute Occasionnel

• 6 Février 2009

• #12

Re : Recherche de texte

Super Genial !!!

Merci infiniment. Ton aide m'a été vraiment précieuse. Bonne journée

Françoise

 

Vote positif 0 Vote négatif

A

apfwl.87

XLDnaute Occasionnel

• 6 Février 2009

• #13

Re : Recherche de texte

Bonjour Pierrejean

Excuses-moi de te déranger à nouveau mais j'ai copié ta macro pour rechercher d'autres mots et j'ai constaté que si le mot est écrit en minuscule dans la feuille1 (1ère lettre du mot) et que dans la macro je l'écris en Majuscule (1ère lettre du mot), je n'ai que les dossiers avec le nom écrit en Majuscule. Existe-t-il une astuce pour que la macro ne tienne pas compte de la manière dont est écrit le mot?

Merci pour ton aide

Françoise

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 6 Février 2009

• #14

Re : Recherche de texte

Re

Macro modifiée:

Code:

Sub test()
Sheets("Ballenberg").Range("A5:H65536").ClearContents
ligne = 5
For n = 2 To Sheets("Feuil1").Range("A65536").End(xlUp).Row
  If InStr([COLOR=blue]UCase([/COLOR]Sheets("Feuil1").Range("C" & n[COLOR=blue][COLOR=black])[/COLOR]), "BALLENBERG[/COLOR][COLOR=blue]"[/COLOR]) <> 0 Or InStr([COLOR=blue]UCase([/COLOR]Sheets("Feuil1").Range("E" & n[COLOR=blue][COLOR=black])[/COLOR]), "BALLENBERG[/COLOR][COLOR=blue]"[/COLOR]) <> 0 Or InStr([COLOR=blue]UCase([/COLOR]Sheets("Feuil1").Range("F" & n[COLOR=blue][COLOR=black])[/COLOR]), "BALLENBERG[/COLOR][COLOR=blue]"[/COLOR]) <> 0 Then
   Sheets("Feuil1").Range("A" & n & ":H" & n).Copy Destination:=Sheets("Ballenberg").Range("A" & ligne)
   ligne = ligne + 1
  End If
Next n
End Sub

 

Vote positif 0 Vote négatif

A

apfwl.87

XLDnaute Occasionnel

• 6 Février 2009

• #15

Re : Recherche de texte

OK, Merci. Je vais essayer.

Bon après-midi

Françoise

 

Vote positif 0 Vote négatif