Discussion :

[carlux3]

Bonjour,

J'essai de comparer 2 listes de données txt avec VBA.

ex : si je compare A1 = aaa1234bbbb à C1 = 1234 alors je voudrais avoir B1 = 1234.

voilà ma condition SI :

"*" & Range("D" & i).Value & "*" = Worksheets("Enseigne Nat Reg").Range("C" & j).Value

mais visiblement ça ne prend pas en compte mes "*", je pense que ma syntaxe n'est pas bonne mais je ne trouve pas de solution.

Merci de votre aide

[Jean-Philippe André]

salut,

tu cherches à faire cela en code ou en formule dans Excel ?

les fonctions VBA et Excel qui t'aideront sont :
- Instr()

- TROUVE()
- CHERCHE()

[carlux3]

Bonjour,

Excel ou VBA peut importe, je pensais que c'était plus facile sous VBA mais si je peux le faire sous excel c'est parfait
Merci pour tes indications mais je ne comprends pas TROUVE et CHERCHE. je me suis peut être mal exprimer.

Mon cas est le suivant :

J'ai 2 colonnes : A et C avec du texte. La colonne C est la référence (textes bien écrit)
Pour chaque cellule de la colonne A je veux chercher dans la colonne C si je retrouve une partie du texte.

    A:                  C: 
1   aaa1234bbb          987
2   ezaeaz987ez vc      456
3   dsfs456xccxv        1234
4   sdfsdfsdfsdf        741

dans le cas de A1 A2 A3 puisque je retrouve des mot en C3 C1 C2, je veux afficher en B1 1234, B2 987 et en B3 456.

j'espère que c'est plus clair comme ça. Car du coup j'ai l'impression que les fonctions CHERCHE ou TROUVE ne peuvent pas correspondre ?!

Merci

Après coup j'ai fait ça :

Code :

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

=RECHERCHEV("*"&A1&"*";C:C;1;FAUX)

mais si la cellule A1 à un caractère différent de ce qu'il y en a C ça ne renvoit rien

[Jean-Philippe André]

Enleve ces étoiles

si en A2 je mets la formule :

=TROUVE("123";A1;1)>0

j'aurais VRAI si A1 contient "123" et faux sinon

[carlux3]

En effet sauf que je ne le compare pas que avec 123 mais avec le contenu de 250 cellules. et visiblement je ne peux pas remplacer 123 par C:C. SI je remplace 123 par la colonne ça me renvoie VRAI même pour des cellules dont le contenu n'a rien avoir aucune des cellules de la colonne C !(je ne comprend pas quels sont les caractères communs)

Et si j'enlève les * de ma rechercheV il m'en trouve moins.(mais il ne me les trouve pas tous non plus avec les *;je pense que les étoiles me permettent de prendre en compte les cellules qui ont un espace avant ou après mais pas si il y a des caractères après.)

[gFZT82]

Bonjour,

Une solution avec VBA

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
Option Explicit
Sub Test()
Dim DerLigC As Long
Dim Cel As Range, c As Range
Dim firstAddress As String
    With Worksheets("Feuil1")
        DerLigC = .Range("C" & .Rows.Count).End(xlUp).Row
        For Each Cel In .Range("C1:C" & DerLigC)
            With .Range("A:A")
            Set c = .Find(Cel, LookIn:=xlValues, LookAt:=xlPart)
            If Not c Is Nothing Then
                firstAddress = c.Address
                Do
                    c.Offset(0, 1) = Cel
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> firstAddress
            End If
            End With
        Next Cel
    End With
End Sub

Cordialement.