Discussion :

[s.echeff]

Mesdames et Messieurs bonjour,

je tente d'aller sur une cellule nommée et à supprimer la ligne contenant cette cellule ainsi que les 2 suivantes :
Je parviens pour la ligne contenant la cellule nommée en faisant ceci :

Code :

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

Feuil1.Range("INSERTION").EntireRow.Delete

mais je voudrais supprimer cette ligne plus les 2 suivantes soient 3 lignes.
Cordialement.

[casefayere]

Bonsoir,
un code parmi tant d'autres

Code :

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

1
2
3
4
Dim x As String
x = Feuil1.Range("INSERTION").Address
Cells(Range(x).Row, Range(x).Row + 2).EntireRow.Delete
ActiveWorkbook.Names("INSERTION").Delete 'SINON INSERTION RENVOIE REF#

Bonne nuit

[jolop35]

Bonjour tout le monde


Un autre code parmi d'autres possibles

Code :

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

[INSERTION].Resize(3, 1).EntireRow.Delete

Ajout : (Pour plus de détails)

Code :

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

1
2
3
4
5
6
Sub ExtendedVersion()
Dim plg As Range
Set plg = Range("INSERTION").Resize(3, 1)
plg.EntireRow.Delete
Set plg = Nothing
End Sub

Code :

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

1
2
3
4
5
 
Sub AutrePossible() ' tu as le choix désormais ;)
Dim x As Range:                     Application.Goto Reference:="INSERTION"
Set x = Selection.Resize(3, 1):     x.EntireRow.Delete: Set x = Nothing
End Sub