Problème à résoudre avec Msgbox

Bonjour,

Je voudrais savoir comment faire pour parcourir les mots de la colonne A d'un document Excel et demander via la fonction Msgbox si ce mot est un mot courant.

Si Msgbox répond oui, le mot doit être ajouté à une liste de mots courants contenu dans une colonne D du classeur.

Mais si un mot de la colonne A appartient déjà à la liste des mots courants, il n'est pas nécessaire de demander à l'utilisateur si c'est un mot courant.

Merci pour votre aide

P.S : Je vous joint mon fichier Excel

4classeur1.xlsm (9.53 Ko)

Bonjour,

A tester ...

Cordialement.

12classeur1.xlsm (20.33 Ko)

Merci bcp c le résultat que j'attendais !

Est-ce que vous savez comment créer à partir du Excel que vous m'avait joint une macro qui colorie les mots courants de la colonne A, qui ont été ajoutés à la colonne D svp ?

Cordialement.

Il suffit de rajouter une ligne de code à la procédure précédente

Private Sub Test_Click()
Dim Cel As Range, C As Range
Dim Reponse
    With Worksheets("Feuil1")
        For Each Cel In .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
            Set C = .Columns("D").Find(Cel.Value, , xlValues, xlWhole)
            If C Is Nothing Then
                Reponse = MsgBox(Cel & " est-il un mot courant ?", vbYesNo + vbDefaultButton2)
                If Reponse = vbYes Then
                    .Range("D" & Rows.Count).End(xlUp)(2) = Cel.Value
                    Cel.Interior.ColorIndex = 3
                End If
            End If
        Next Cel
    End With
End Sub

Merci bcp pour votre aide !

Passer une bonne fin de soirée

Rechercher des sujets similaires à "probleme resoudre msgbox"