Recherche texte ds cellule

pierrejean

XLDnaute Barbatruc

• 8 Juin 2006

• #2

bonjour COUCOU

3 hypotheses
1) le format est toujours le même (c'est-a-dire la couleur est toujours le 3 eme mot)

2)il existe une liste des couleurs possibles (dans ce cas elle peut etre n'importe ou)

3)il n'existe pas de critere de ce que l'on cherche

dis nous dans quel cas on se trouve

pour le cas 3 2 solutions
1)une priere (faite à un Dieu efficace)
2)une boule de cristal

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 8 Juin 2006

• #3

BOnjour coucou,salut pierrejan

en attendant mieux des formulistes, une ebauche de réponse par fonction personnalisée.

voir piece jointe

salut [file name=Classeur2_20060608110146.zip size=7227]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20060608110146.zip[/file]

 

Pièces jointes

• Classeur2_20060608110146.zip

  7.1 KB · Affichages: 43

Vote positif 0 Vote négatif

C

COUCOU

Guest

• 8 Juin 2006

• #4

Bonjour Pierrejean, bonjour Hervé

Pierrejean:
comme je suis du genre ' qui peut le plus peux le moins' on va partir sur le fait que ce que je cherche peux etre n'importe ou dans la chaine de texte.

Je peux en revanche avoir une liste exhaustive des valeurs que je cherche dans une plage de cellule annexe

Hervé:
ce que tu me propose ne marche plus lorsque je le colle dans mon classeur.
L'utilisateur un peu nul ( doux euphémisme!) que je suis ne sais pas ou se place ta formule personnalisée. Peux-tu me l'ecrire en dur dans le fichier reponse?

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 8 Juin 2006

• #5

re


explication pour l'utilisation :

le code :

Public Function rcouleur(cellule As Range)
Dim couleur, tablo, el
Dim i As Byte

couleur = Array('ROUGE', 'VERT', 'BLANC', 'IVOIRE', 'NOIR', 'BLEU') 'a adapter

tablo = Split(cellule, ' ')

For i = 0 To UBound(tablo)
        For Each el In couleur
                If tablo(i) = el Then
                        rcouleur = el
                End If
        Next el
Next i

               
End Function

Cliquez pour agrandir...

1) sur ton fichier tu ouvres vbaeditor (alt+f11)
2) dans les menus en haut, tu choisis : insertion-Module
3) tu colles le code ci-dessus, dans le nouveau module

tu viens de créer une fonction personnalisée utilisable comme toutes fonctions natives d'excel.

il te suffit de mettre dans une cellule rcouleur(A1) et ton texte en A1.

mais il me semble qu'il serait préférable que tu passes par une liste exhaustive des valeurs
, ainsi les formulistes pourraient surement te proposer quelques choses.

salut

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 8 Juin 2006

• #6

Bonjour le Forum,
Bonjour Coucou, Pierrejean, Hervé,

Alors comme hervé a parlé de Formuliste un essai tiré par les cheveu et qui je pense ne vaut pas la fonction crée par Hervé.

voila le fichier.

Jocelyn [file name=coucou_20060608144856.zip size=7861]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/coucou_20060608144856.zip[/file]

 

Pièces jointes

• coucou_20060608144856.zip

  7.7 KB · Affichages: 26

Vote positif 0 Vote négatif

A

AV

Guest

• 8 Juin 2006

• #7

Ave,

Avec une formule
AV [aaa] [file name=Formule1.zip size=7965]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Formule1.zip[/file]

 

Pièces jointes

• Formule1.zip

  7.8 KB · Affichages: 30
• Formule1.zip

  7.8 KB · Affichages: 26
• Formule1.zip

  7.8 KB · Affichages: 25

Vote positif 0 Vote négatif

B

barbara

Guest

• 8 Juin 2006

• #8

bonjour,

Super formule Alain
SI à l'occasion tu as 30 secondes pour faire de l'explication de texte, cela ne serait pas tout à fait inutile...

merci

Barbara

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 8 Juin 2006

• #9

Bonjour,

Par formule encore [file name=Formule2.zip size=6672]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Formule2.zip[/file]

 

Pièces jointes

• Formule2.zip

  6.5 KB · Affichages: 28
• Formule2.zip

  6.5 KB · Affichages: 27
• Formule2.zip

  6.5 KB · Affichages: 37

Vote positif 0 Vote négatif

A

AV

Guest

• 9 Juin 2006

• #10

Re,

''...l'explication de texte...''

AV [aaa] [file name=Formule1_20060609084007.zip size=7965]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Formule1_20060609084007.zip[/file]

 

Pièces jointes

• Formule1_20060609084007.zip

  7.8 KB · Affichages: 18

Vote positif 0 Vote négatif

B

barbara

Guest

• 9 Juin 2006

• #11

bonjour,

merci d'avoir répondu mais je n'ai rien trouvé dans le fichier

barbara

 

Vote positif 0 Vote négatif

A

AV

Guest

• 9 Juin 2006

• #12

Re,

''..merci d'avoir répondu mais je n'ai rien trouvé dans le fichier...''

Je me suis lamentablement pris les pieds dans le tapis en n'envoyant pas le bon fichier...!

AV [aaa] [file name=FormuleExpliq.zip size=9198]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FormuleExpliq.zip[/file]

 

Pièces jointes

• FormuleExpliq.zip

  9 KB · Affichages: 45

Vote positif 0 Vote négatif

B

barbara

Guest

• 9 Juin 2006

• #13

merci beaucoup

barbara

 

Vote positif 0 Vote négatif

P

Papaye

Guest

• 9 Juin 2006

• #14

Bonjour à tous,

Juste une petite question sur vos formules :

pourquoi mettre 9^9 dans le dernier argument de la fontion Trouve et pas plus simplement la longueur de la chaîne de départ ?

Question idiote ?

Papaye

 

Vote positif 0 Vote négatif

B

barbara

Guest

• 9 Juin 2006

• #15

bonjour,

sous réserve de ce que peuvent dire les formulistes 9^9 dans la formule n'existe pas donc on ne peut pas le trouver (c'est le dernier argument de la fonction SI)
la longueur de la chaine de départ peut être variable selon les cas

 

Vote positif 0 Vote négatif