Discussion :

[lemajecki]

Bonjour, j'aurais voulu savoir comment supprimer les lignes que je sélectionne, voici mon code pour une ligne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
ActiveCell.FormulaR1C1 = ""
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = ""
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = ""
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = ""
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = ""
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = ""

merci d'avance

[mercatog]

Code :

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

Selection.EntireRow.Delete

[JPierreM]

Bonjour,

Pas très clair tout ça

Code :

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

1
2
3
4
5
Sub sc()
Dim a As Long
    a = ActiveCell.Row
    Rows(a).Delete
End Sub

Ca supprime la ligne active

JP

[lemajecki]

merci beaucoup