Recherche d'une chaine de caracteres dans une liste et renvoi d'une valeurRésolu

Question

Bonjour

Voila j'explique mon probleme dont je ne sais pas par quel bout prendre:



dans un fichier excel sur une feuille2, j'ai la liste suivante





sur une feuille1, j'ai une cellule de saisie (A1) dans laquelle je vais saisir un bout de texte



si je ne saisis rien en A1, A2 et A3 seront vides ainsi que B2:Z3

si je saisis "angelo" en A1, A2= "angelo" et A3= 0.59 et B2:Z3 seront vides

si je saisis "ngel" en A1, A2= "angelo" et A3= 0.59  et B2:Z3 seront vides

si je saisis "christian" en A1, A2= "christian" et A3= 0.54  et B2:Z3 seront vides

si je saisis "hrist" en A1, A2= "christian" et A3= 0.54

               
              
      B2= "christophe" et B3= 1.2

           
           
             C2=
"christine" et C3= 0.88 et D2:Z3 seront vides



voila mon probleme, si vous n'avez pas tout saisi, n'hesitez pas &#224; me demander cet oubli de ma part... 



merci beaucoup d'avance car la je suis bloqu&#233;  

a+

MAXIMO71 · Accepted Answer

Ok Merci pour la pr&#233;cision, j'en tiendrais compte pour mes prochains codes.

Bonne soir&#233;e

 MAXIMO71

Didf · Answer

bon a priori mon image repr&#233;sentant ma liste n'a pas fonctionn&#233; et je
n'ai pas trouv&#233; la fonction "&#233;diter" alors je la poste ici:

econs · Answer

Salut,

Bon, et bien je le dis alors : je n'ai rien compris. O&#249; est ton probl&#232;me ?

Qu'est ce qui ne fonctionne pas ?
As-tu un code qui crache une erreur ?



"Si je saisis [...] alors les cases [...] seront vides"

Il est o&#249; le probl&#232;me ? Elles ne devraient pas l'&#234;tre ?


Manu

Didf · Answer

en effet lol, je me suis mal exprim&#233;

je voulais dire , j'aimerais obtenir:

si je ne saisis rien en A1, A2 et A3 seront vides ainsi que B2:Z3
si je saisis "angelo" en A1, A2= "angelo" et A3= 0.59 et B2:Z3 seront vides
si je saisis "ngel" en A1, A2= "angelo" et A3= 0.59 et B2:Z3 seront vides
si je saisis "christian" en A1, A2= "christian" et A3= 0.54 et B2:Z3 seront vides
si je saisis "hrist" en A1, A2= "christian" et A3= 0.54
                                     B2= "christophe" et B3= 1.2
                                     C2= "christine" et C3= 0.88 et D2:Z3 seront vides

car la j'ai rien pour l'instant puisque je n'ai rien d&#233;velopp&#233;, ne sachant pas par ou d&#233;marrer

TomIlliev · Answer

Vous pouvez r&#233;peter la question ?!?!

Didf · Answer

qu'est ce que tu ne comprend pas?

en fait j'aimerais , &#224; partir d'une chaine de caracteres que je tape dans une cellule que j'appellerai "saisie" et qui se trouve en "A1" dans mon exemple, obtenir tous les noms dans une liste incluant la chaine de caractere saisie en "A2" et la valeur qui se trouve &#224; cot&#233; du nom dans la liste, qui se renvoy&#233;e en "A3"....

mais est-ce si compliqu&#233;....?  , je mets les exemples que je veux obtenir pour plus de s&#238;mplicit&#233;:
liste sur Feuille2:

1er exemple je tape angelo en "A1" et j'obtiens en A2 et A3:

2eme exemple je tape ngel en "A1" et j'obtiens en A2 et A3:

3eme exemple je tape christian en "A1" et j'obtiens en A2 et A3:

4eme exemple je tape hrist en "A1" et j'obtiens en A2 et A3, B2 et B3 et C2 et C3 car "hrist" est inclus dans christian, christophe et christine:

Voila j'espere que je suis un peu plus clair..., quel code dois je utiliser pour obtenir ceci

OneHacker · Answer

Il me semble qu'on sur vbfrance et non pas sur "excelfrance" !

Redman

Didf · Answer

ben je sais pas, mais je demande du code en VBA (puisque l'on est dans le forum VBA  ) et non une macro....

OneHacker · Answer

Ah bon, ok.

Redman

MAXIMO71 · Answer

Je te livr mon code j'esp&#232;re qu'il te sera utile.



Sub Recherche_De_Chaine()

'

Dim lig As Integer

Dim compt As Integer

Dim FinR As Integer







'Selection de la cellule de saisie

Achercher = Worksheets("Recherche").Cells(1, 1).Value



'Denombrement du nombre de charact&#232;res dans la cellule de saisie

LongChaineARechercher = Selection.Characters.Count



'Recherche simple



'Si l'ordre de te liste de r&#233;f&#233;rence n'est pas importante, je te propose de la trier

For Each c In Worksheets("Recherche").Range("b1: c1000")

c.Value = ""

Next c

lig = 0

  For Each c In Worksheets("Tableau de r&#233;f&#233;rence").Range("A1: A1000")

    If c.Value = "" Then

        Worksheets("Tableau de r&#233;f&#233;rence").Select

        Range("A1:B" & lig).Select

        Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _

        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

        DataOption1:=xlSortNormal

        Range("A1").Select

        Worksheets("Recherche").Select

        Range("A1").Select

        Exit For

        

    End If

    lig = lig + 1

Next c



'La premiere recherche consiste &#224; v&#233;rifier que le mot en Worksheets("Recherche").Range("A1")

'existe dans ton tableau de r&#233;f&#233;rence Worksheets("Tableau de r&#233;f&#233;rence").Range("A1: A1000")

'Je ne suis certain que cela soit utile mais bon je te le laisse



compt = 0

lig = 0

  For Each c In Worksheets("Tableau de r&#233;f&#233;rence").Range("A1: A1000")

    lig = lig + 1

    If c.Value = Worksheets("Recherche").Range("A1").Value Then

        compt = compt + 1

        Worksheets("Recherche").Range("B" & compt).Value = c.Value

       
Worksheets("Recherche").Range("C" & compt).Value =
Worksheets("Tableau de r&#233;f&#233;rence").Range("B" & lig).Value

    Else

        If c.Value = "" Then

            Exit For

        End If

    End If

Next c



'Si cela ne fonctionne pas c'est le moment de passer aux choses s&#233;rieuses

'La subtilit&#233; consiste &#224; utiliser les propri&#233;t&#233;s de l'objet Characters



compt = 0

lig = 0



For Each c In Worksheets("Tableau de r&#233;f&#233;rence").Range("A1: A1000")

lig = lig + 1

LongRecherche = c.Characters.Count



'Cette condition doit &#234;tre vraie car autrement la boucle simple aurait donner des r&#233;sultats

    If LongChaineARechercher < LongRecherche Then



'Si tu recherche une chaine de 6 caract&#232;res dans une chaine de 10 il faut tester seulement

'les 5 premiers caract&#232;res c'est l'histoire des poteaux et des intervalles

        FinR = LongRecherche - LongChaineARechercher + 1

        For i = 1 To FinR

            test2 = c.Characters(i, LongChaineARechercher).Text

            If test2 = Achercher Then

                compt = compt + 1

               
Worksheets("Recherche").Range("B" & compt).Value = c.Value

               
Worksheets("Recherche").Range("C" & compt).Value =
Worksheets("Tableau de r&#233;f&#233;rence").Range("B" & lig).Value

                Exit For

            End If

        Next i

    End If

Next c



End Sub


 MAXIMO71

Didf · Answer

je teste ca d&#233;s que je peux et je te tiens au courant...
en tout cas merci beaucoup pour ta contribution...

Didf · Answer

ton programme fonctionne bien, impressionnant, par contre ce qui est &#233;trange si je fais une recherche, elle s'av&#232;re convaincante   et renvoit les valeurs demand&#233;es, ensuite si je vide ma cellule de saisie et je relance la machine, ce qui est &#233;trange, il faudra 2 lancements de la macro pour que celle-ci fonctionne; le 1er lancement ne donne rien et le 2eme lancement fonctionne 

mais je t'avoue que cela ne me g&#232;ne pas 

merci beaucoup

MAXIMO71 · Answer

J'ai vu le pb je regarde ce que je peux faire mais je ne comprend pas en revanche tu peux remplacer
 Achercher = Worksheets("Recherche").Cells(1, 1).Value

par 

 Achercher =LCase( Worksheets("Recherche").Cells(1, 1).Text)

cela permet de ne pas prendre en compte la CASE dans la cellule de recherche






 MAXIMO71

Didf · Answer

Didf dit: ton programme fonctionne bien, impressionnant, par contre ce qui est
&#233;trange si je fais une recherche, elle s'av&#232;re convaincante  
et renvoit les valeurs demand&#233;es, ensuite si je vide ma cellule de
saisie et je relance la machine, ce qui est &#233;trange, il faudra 2
lancements de la macro pour que celle-ci fonctionne; le 1er lancement
ne donne rien et le 2eme lancement fonctionne



j'ai remarqu&#233; que la macro ne se lance qu'a la 2eme fois car
, cette fois ci, le focus de cellule se trouve sur la cellule de
recherche "A1" de la feuille "Recherche" (positionn&#233; par la fin de la
macro)

j'ai fait quelques essais, et , en effet, quand le focus se trouve sur
la cellule de recherche, la macro marche a tous les coups, sinon,
jamais.

il suffit donc d'ins&#233;rer au d&#233;but de la macro :

Range("A1").Select afin que le focus se mette sur A1...



 voila

Recherche d'une chaine de caracteres dans une liste et renvoi d'une valeur

14 réponses

Discussions similaires