Bonjour à tous,
Je voudrai avoir le code vba de la suppression d’une ligne quelque soit la ligne sélectionnée.
Vous trouvez ci-joint un fichier détaillant les explications:
=> suppr ligne.xlsx (12,2 Ko)
Merci beaucoup!
Bonjour,
Alors le fait de cliquer sur une des cellules des colonnes allant de A4 à E et dernière ligne, puis de cliquer sur le bouton SUPPRIMER, efface la ligne de A à E et renumérote les lignes
MACRO FEUILLE :
Option Explicit
Dim ligne, Dl&
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ligne = ""
Dl = Range("A" & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne A
'Sur sélection d'une cellule de la plage allant de A4 à la cellule E et dernière ligne
If Not Application.Intersect(Target, Range("A4:E" & Dl)) Is Nothing Then
ligne = Target.Row 'la variable Ligne prend le N° de la ligne sélectionnée
End If
End Sub
Sub Bouton1_Cliquer()
Dim F$
If ligne = "" Then Exit Sub 'Si la variable Ligne est vide, sort de la procèdure
Range(Cells(ligne, 1), Cells(ligne, 6)).Delete Shift:=xlUp 'Efface la ligne de la colonne A à E
F = "=COUNTA(R3C1:R[-1]C)" 'N° automatique depuis la ligne 4
Range("A4").Formula = F
Range("A4").AutoFill Destination:=Range("A4:A" & Dl - 1), Type:=xlFillDefault
End Sub
suppr ligne.xlsm (20,2 Ko)
