Discussion :

[Alaindhu]

Bonjour,

Je cherche à faire en sorte que quand l'utilisateur clique sur le bouton annulé, cela mette fin à la procédure sinon OK.
J'ai tenté avec une boucle mais sans succès, avez-vous une idée?
merci!!

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
Sub Gestsuppr()
Worksheets("TPO").Unprotect ("MCC")
ActiveSheet.Unprotect ("MCC")
Editeur = InputBox("Veuillez entrer la ligne à supprimer", "Suppression de ligne", "Prenom Nom")
Else
With Worksheets("TPO")
For i = .Range("C" & Rows.Count).End(xlUp).Row - 1 To 2 Step -2
    If .Range("C" & i).Value = Editeur Then .Rows(i & ":" & i + 1).Delete shift:=xlUp
Next i
End With
With Worksheets("BASE")
    For i = .Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        If .Range("A" & i).Value = Editeur Then .Rows(i).Delete shift:=xlUp
   Next i
End With
Worksheets("TPO").Protect ("MCC")
ActiveSheet.Protect ("MCC")
End Sub

[Philippe Tulliez]

Bonjour,

Je cherche à faire en sorte que quand l'utilisateur clique sur le bouton annulé, cela mette fin à la procédure

Tu testes si la chaîne renvoyée est vide
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Dim response As String
 response = InputBox("Entrez vore nom", Default:="Toto")
 If Len(response) = 0 Then Exit Sub

[Alaindhu]

Merci pour ton aide c'est exactement ce que je cherchais!

Alain