Discussion :

[bentor22]

Bonjour à tous,

j'ai la macro suivante:

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

Des que je suis sur l'onglet base, la macro marche, toutefois j'ai crée un onglet Actualisation macro avec mes boutons de macros.
et des que j'appuie sur la macro pour effacer les objets vendus, la macro marche pas.

Sauriez vous pourquoi? et quels modifications dois je faire?

en vous remerciant d'avance

[Kimy_Ire]

Test ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub suppr()
 
With Worksheets("base")
    For i = .Columns(5).Find("*", , , , xlByColumns, xlPrevious).Row To 1 Step -1
        If .Cells(i, 20).Value = "objet vendu" Then
            .Cells(i, 1).EntireRow.Delete
        End If
    Next i
End With
 
End Sub

Tien moi au courant !

[bentor22]

Merci mais au fait, j'ai juste fait ca, ca marchait.

Code :

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

1
2
3
4
5
6
7
8
9
Dim i As Long
Workbooks("dt.xls").Worksheets("base").activate
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