Discussion :

[inessita]

bonjour à tous,
Je dispose de deux colonnes de chaines de caractéres ( clonne A et colonne B)

Pour chaque cellule de la colonne A

Je souhaite detecter les espaces dans la chaine de caracteres et pour chaque mots ( les mot sont séparé par des espaces)

- chercher le nom d'occurence du mot dans une liste de chaine de caractéres (la colonne B)
- si le nombre d'occurence est inferieure à X ( X etant un parametre) on affiche dans une cellule de la colonne C les nombres des lignes correspondant aux lignes dans lesquelle le mot de la colonne A est présent dans la colonnes B
si non je cherche le 2 eme mot de la chaine de la colonne A dans la colonne B...


Pouvez vous m'aider??

sachant que je charche à ecrire une macro et PAS une fonction excell

Car les colonnes A et B disposent de 3000 lignes!!

Merci d avance pour votre aide

Inessita

[patbou]

bonjour,

tu as la fonction split pour separer la chaine en plusieurs

[alsimbad]

tu ne dis pas si las chaine de caractere en colonne b est aussi séparée par des espace, ou si c'est une seule chaine.

[inessita]

@ alsimbad:oui la chaine B est aussi séparé par des espaces

[alsimbad]

ok alor. et voila, tout chaud

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 testsplit()
Range("C:c").ClearContents
derliA = Range("A36536").End(xlUp).Row
derliB = Range("B36536").End(xlUp).Row
X = 3 'parametre a définir
Dim motA()
For Each CelA In Range("a1:a" & derliA)
    MotAtemp = Split(CelA, " ")
            For i = 0 To UBound(MotAtemp)
            ReDim Preserve motA(i)
                    If IsError(Application.Match(MotAtemp(i), motA, 0)) Then
                    motA(i) = MotAtemp(i)
                    End If
            Next i
    For Each CelB In Range("b1:b" & derliB)
          For i = 0 To UBound(motA)
            MotB = Split(CelB, motA(i))
             If UBound(MotB) < X And UBound(MotB) >= 1 Then CelA.Offset(0, 2) = CelA.Offset(0, 2) & motA(i) & "_" & CelB.Row & "."
          Next i
    Next CelB
ReDim motA(0)
Next CelA
End Sub