Discussion :

[sab1458]

Bonjour à tous
J'ai besoin de votre aide

J'ai une liste de mots sur la feuille 1 : chien chat poule ours
Une liste de mots sur la feuille 2 : chien chat (poule et ours sont donc absents)
Et je souhaiterais que poule et ours soient remplacés par un x dans le feuille 1

Pouvez-vous m'aider ?

Je pense être clair !

Merci d'avance.

[unparia]

Bonjour
Il suffit de parcourir en boucle les cellules concernées de la Feuil1 et, pour chaque mot, appliquer WorksheetFunction.Countif (de ce mot, sur la feuille 2) ,. Si retourne 0, écrire "x"

[eric4459]

Bonjour Sab,
Est-ce que tu as un mot par cellule ou tous les mots sont-ils dans la même cellule?
Eric

[sab1458]

Bonjour à vous et merci pour vos réponses

unparia
Je suis vraiment bleue pour ce genre de chose
Peux-tu STP écrire un programme en entier.
Merci d'avance

Eric
J'ai un mot par cellule


et en plus je viens de voir que j'ai des espaces derrière les mots, y a t il moyen de dire que la cellule contient le mot et non qu'elle est égale ?
Merci d'avance

[unparia]

Peux-tu STP écrire un programme en entier.

Désolé, mais pas moi (contraire à mes principes, mais également à ton intérêt).
Je t'aiderai par contre assez volontiers à corriger au besoin le code que tu tenteras sur la base de ce que je t'ai indiqué.

y a t il moyen de dire que la cellule contient le mot et non qu'elle est égale ?

c'est ce que te permet de faire également WorksheetFunction.Countif, comme tu pourras le constater à la lecture de la rubrique "WorksheetFunction.CountIf, méthode" de ton aide VBA.

[eric4459]

SAB1458
Voici un exemple qui fonctionne, il y a surement mieux et/ou plus simple et je ne sais pas si il correspond exactement à ton besoin dans ce cas ,il pourra toujours t'inspirer.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub Enlever_Mots2()
Dim Src As Worksheet
Dim Dest As Worksheet
Dim Cel1 As Range
Dim Cel2 As Range
Dim NbCol1 As Integer
Dim NbCol2 As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Set Src = ThisWorkbook.Sheets("Sheet1")
Set Dest = ThisWorkbook.Sheets("Sheet2")
Set Cel1 = Src.Range("A1")
Set Cel2 = Dest.Range("A1")
i = 0
j = 0
 
With Src
NbCol1 = .Cells(1, Columns.Count).End(xlToLeft).Column  'on compte le nbre de col de la feuille 1 ensupposant que les mots sont uniquement sur la ligne 1
End With
 
Do While (i < NbCol1) 'On boucle à partir des valeurs de cellules sur la feuille 2
    If InStr(Cel2.Offset(0, j).Value, Cel1.Offset(0, i).Value) Then 'si les cellules ont la même valeur
        Cel1.Offset(1, i) = "Ok" ' on mets Ok dans la cellule du dessous
        j = j + 1 ' Si ok alors on passe au mot de la feuille2 suivant
        i = 0 'ici on remets i à 0 pour repartir sur le premier mot de la feuille 1
    Else
     i = i + 1 'si pas identique on reste sur le mot de la feuille 2 et on passe au mot suivant de la feuille 1
    End If
Loop
 
For k = 0 To NbCol1 ' ici on va verifier si il y a "Ok" dans la deucieme ligne de la feuille 1
    If Cel1.Offset(1, k) = "Ok" Then
        Cel1.Offset(1, k) = "" 'Si on trouve "Ok" on effece la valeur "Ok"
    Else
        Cel1.Offset(0, k) = "x" 'Si on ne trouve pas "Ok" alors on met "x" à la place du mot
    End If
Next k
End Sub

Eric