Discussion :

[quentin22breizh]

Bonjour à tous,

Dans mon classeur, j'utilise un bouton "recherche" avec la fonction cells.find. Je voudrais que, dans la cas où il ne trouverais pas ma valeur recherché, il m'affiche un message du style "cette personne n'existe pas" mais je ne sais absolument pas comment le faire. C'est pourquoi je fais appel à votre aide dans l'espoir d'être débloqué.

Merci d'avance pour votre aide

[mercatog]

Regarde l'autre post et l'exemple que je t'avais fourni! J'avais anticipé la réponse. et si tu avais attendu un petit peu, ce nouveau sujet n'aurait pas eu lieu

[Réponse en double]

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
Sub Suppression()
Dim Nom As String
Dim c As Range
 
Nom = InputBox("Nom à supprimer", "Suppression")
If Nom <> "" Then
    'On va chercher la cellule c contenant le mot Nom sur la colonne A de Feuil1
    Set c = Worksheets("Feuil1").Range("A:A").Find(Nom, LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
        If MsgBox("Confirmez la suppression de " & Nom & " trouvé à la ligne " & c.Row, vbOKCancel + vbDefaultButton2) = vbOK Then
            c.EntireRow.Delete
        Else
            MsgBox "Suppression de " & Nom & " annulée"
        End If
        Set c = Nothing
    Else
        MsgBox "Nom " & Nom & " à supprimer introuvable"
    End If
Else
    MsgBox "Action annulée par l'utilisateur ou nom choisi vide"
End If
End Sub

[quentin22breizh]

oui je viens de le voir. Un grand merci à toi pour ton aide