Msgbox si deux cellules contient meme texte

Salut .

j'ai besoin d'aide mes amis.

je saisie des mots sur la cellule A5 et je veux avoir un msgbox d'alerte si je tape un mots existe déjà sur l'un des cellules de colonne D.

merci infiniment pour la main d'aide.

Bonjour,

Peut-être comme ça: code à mettre dans le Module de la Feuille

Option Explicit: Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, DerLig As Long, C As Range

DerLig = Range("D" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, [A5]) Is Nothing Then
    Set C = Sheets("Feuil1").Columns("D").Find(What:=Target)
    For i = 1 To DerLig
        If Not IsEmpty(C) And Cells(i, 4) Like "*" & C & "*" Then MsgBox "le mot '" & C & "' se trouve dans la cellule " & Cells(i, 4).Address
    Next i
End If
End Sub

Bonne journée

Bonjour,

j'ai testé le code et ça marche lorque le mot est le même.

Par contre, si il est différent le code bug

Francky

Bonjour,

Oui effectivement il manque une condition... désolé

code modifié

Option Explicit: Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, DerLig As Long, C As Range

DerLig = Range("D" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, [A5]) Is Nothing Then
    Set C = Sheets("Feuil1").Columns("D").Find(What:=Target)
   If C Is Nothing Then Exit Sub
    For i = 1 To DerLig
        If Not IsEmpty(C) And Cells(i, 4) Like "*" & C & "*" Then MsgBox "le mot '" & C & "' se trouve dans la cellule " & Cells(i, 4).Address
    Next i
End If
End Sub

Bonne journée

re-bonjour DL-13

pour moi ton code répond exactement à la demande, reste plus qu'à Harichi de valider...

Francky

Mon frère DL_13 .

mes remerciement pour l'aide ça marche très bien mon prof .

si tu peux m'aidé encore je veux avoir le msgbox qui s’affiche avec le commentaire de la cellule suivante exemple

si je tape texte existe sur la cellule D6 affiche msgbox avec texte d'alerte de cellule E6.

mes remerciements.

Salut Harichi, Bonjour tout le monde,

Harichi, je viens de répondre à ton autre fil - pensant que tu faisais allusion à une ancienne discussion - puis j'ai constaté par hasard que tu avais déjà posé la même question sur ce fil hier soir

https://forum.excel-pratique.com/excel/texte-de-msgbox-celon-la-cellule-t36259.html

Tu aurais quand même pu avoir la patience d'attendre quelques heures pour qu'on te réponde ici, au lieu de poster à double

Cordialement.

bien compris mon ami . j'ai croyé que ce sont deux sujet différents

désole pour cette bêtise .