Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel chercher une chaine de caractere appartenant a une col dans une autre col

chercher une chaine de caractere appartenant a une col dans une autre col

1 réponse
Avatar
Matthieu
Bonjour,

J'ai deux feuilles excel, chacune ne comporte qu'une col mais de taille
differentes.
j'aimerais voir si le contenu de la col A feuil1, existe dans la colA
feuille2, meme de forme incomplete, et si c'est le cas le marque dans une
col sur la feuil2.

Voila mon code, ca ne marche pas:
L'idee est de parcourir la feuil1 et pour chaque ligne parcourir la feuil2
pour checker si ca existe.

indice =1
Worksheets("A").Activate
Final = ActiveSheet.UsedRange.Rows.Count
For Line = 1 To Final
test = Range("A" & Line).Value

Worksheets("B").Activate
Final2 = ActiveSheet.UsedRange.Rows.Count

For Line2 = 1 To ActiveSheet.UsedRange.Rows.Count
Var = InStr(1, Range("A" & Line2).Value, test) 'je fais
le test dans la feuil2

If Var > 0 Then
Range("C" & indice).Value = test 'si c'est bon je
marque dans la col C feuil2
indice = indice + 1
End If
Next Line2

Worksheets("A").Activate ' je reactive la feuil1 pour passer a la ligne
suivante et rebellote.

Next Line


Si kinkin peut m'aider ca serait vraiment sympa.
Merci
Matthieu
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AV
Essaye ça :

Sub zz()
x = 1
For Each c In Range("Feuil1!A1:A" & [Feuil1!A65536].End(3).Row)
On Error Resume Next
test = [Feuil2!A:A].Find(c.Value)
If Err.Number = 0 Then
Sheets("Feuil2").Cells(x, 3) = c.Value
x = x + 1
End If
Next
End Sub

AV