Discussion :

[blanka347]

Bonjour, tous le monde.

Bon alors j'ai lu pas mal de truc sur internet forum etc... y'a pas mal de solution mais je comprend pas le code et je n'arrive pas à l'adapter à ma situation.

Bon alors rien de bien compliquer... pour vous ^^

Voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub Conversion()
Dim Cell As Range
Set a=Worksheets("feuil1")
For each Cell In a.range("F2:F6000")
    If Cell.Values="LeMotQueJeCherche" Then
       Cell.value=FormulaLocal="=recherchev("????";tablecas;2;Faux)
    End If
 
End Sub

Voilà donc une petite explication de la macro :
1. je cherche le mot "LeMotQueJeCherche" dans la colonne F
2. Si le mot est présent dans une cellule je remplace celle-ci par une rechercheV.
3. Le problème c'est la "Valeur cherchée". J'aimerais que celle-ci soit variable. Le mieux c'est un petit exemple: en F2 je trouve "LeMotQueJeCherche" donc la valeur cherchée est (dans la colonne D par exemple) D2. Deuxième "LeMotQueJeCherche" est trouvé en F400 donc la valeur devient D400 et ainsi de suite.
4. Le néophite est content.

Voilà voilà, je sais que c'est un topic un peu réccurant mais j'ai cherché mais en vain.

A bientôt.

[jfontaine]

Bonjour,

Si je comprend bien quand on trouve un mot, on remplace par une formule RechercheV qui recherche ce mot dans la colonne D et retourne la colonne E.
Le prochain a chercher se trouvant en D et ainsi de suite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim cel As Range
Dim strSearch As String
 
 
strSearch = "Mardi"
 
For Each cel In Range("F2:F6000")
 
    If cel.Value = strSearch Then
 
        cel.FormulaLocal = "=Recherchev(""" & strSearch & """;D:E;2;0)"
        strSearch = cel.Offset(0, -2).Value
 
    End If
 
Next cel

[blanka347]

Alors, j'ai essayé ton code.

C'est pas exactement ça, en fait dans ton code la "valeur cherchée" (de la fonction rechercheV) est la même "que le "mot que je cherche" (dans la colonne F dans mon exemple). J'avoue ça porte à confusion.

Cependant j'ai pu grâce à toi faire quelques modifications pour avoir le code que je recherche.

Le voici : (histoire de partager le fruit de mon travail )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub test()
 
Dim cel As Range 
Dim strSearch As String
'strSearch est la variable qui correspond à la valeur cherchée de la recherchev 
Dim Valeur As String
'valeur est la variable qui va contenir le mot à chercher (ici LeMotQueJeCherche)
 
Valeur = "LeMotQueJeCherche"
 
For Each cel In Range("F2:F6000")
 
    If cel.Value = Valeur Then
'test qui permet de rechercher le à chercher
        strSearch = cel.Offset(0, -2).Value
'une fois le mot trouvé on sélectionne la cellule qui se trouve 2 colonnes avant  
        cel.FormulaLocal = "=Recherchev(""" & strSearch & """;tablecas;2;0)"
'on remplace le mot cherché par la recherchev
 
    End If
 
Next cel
 
End Sub

Voila j'ai essayé d’être le plus clair possible pour les prochains.

Merci beaucoup en tous les cas.

A bientôt.

[blanka347]

Au fait une dernière petite question.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 cel.FormulaLocal = "=Recherchev(""" & strSearch & """;tablecas;2;0)"

Est-il possible de m'expliquer pourquoi après recherchev on met 3 guillemets et le caractère & ?

Merci et bonne soirée

[jfontaine]

1 .Dans une formule RechercheV la valeur recherchée, si elle est de type chaine de caractère, doit être entre " ".

2. Dans une chaine de caractère, quand on veut afficher des ", il faut les doubler car sinon le code traduit par une sortie de chaine

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cel.FormulaLocal = "=Recherchev(""MOTRECHERCHE"";tablecas;2;0)"

affichera dans la formule de la cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=Recherchev("MOTRECHERCHE";tablecas;2;0)

Le & sert à concaténer une chaine de caractère avec une variable ou une autre chaine de caractère

[blanka347]

Merci. Bonne journée