Bonjour j ai le code suivant:
mais egalement celui ci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Merci d'avance pour votre aide.
Bien cordialement et longue vie au forum
Partager