Création boite de dialogue
Bonjour j ai le code suivant:
Code:
1
2
3
4
5
6
7
8
9
| Dim i As Long
With Workbooks("dt.xls").Worksheets("base")
i = [E65536].End(xlUp).Row
Do While i >= 1
If Cells(i, 20).Value = "objet vendu" Then Cells(i, 1).EntireRow.Delete
i = i - 1
Loop
'
End With |
mais egalement celui ci
Code:
1
2
3
4
5
6
7
8
9
| Dim i As Long
With Workbooks("dt.xls").Worksheets("base")
i = [E65536].End(xlUp).Row
Do While i >= 1
If Cells(i, 21).Value = "objet neuf" Then Cells(i, 1).EntireRow.Delete
i = i - 1
Loop
'
End With |
J aimerai créer une boite de dialogue qui me dise: "Quelle ligne voulez vous supprimer? avec le choix entre Objet neuf et Objet à vendre.
Merci d'avance pour votre aide.
Bien cordialement et longue vie au forum
