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
Partager