Suppression d'un enregistrement

Bonjour,

Je souhaite créer un bouton pour supprimer le dernier enregistrement.

Je me positionne sur la dernière cellule non vide en utilisant le code

Dim derligne As Long

derligne = Range("A65536").End(xlUp).Row + 0

Comment sélectionner ensuite toutes les données de cette ligne de la colonne A à la colonne J

Merci pour votre aide

Cordialement

Philmaure

Bonjour

essayez ceci plutôt

Dim derligne As Long
With ActiveSheet
    derligne = .Range("A" & Rows.Count).End(xlUp).Row
    If derligne > 3 Then
        .Range("A4:I" & derligne).Select
    End If
End With

Reste à voir le pourquoi de la sélection... car vous parlez de supprimer un enregistrement

Edit : Si c'est la plage sélectionnée, dans le code ci-dessus remplacez SELECT par CLEARCONTENTS

Cordialement

Bonjour et merci pour votre réponse.

Dans mon fichier exemple, c'est la ligne 16 (dernier enregistrement) que je souhaite supprimer et non pas l'ensemble des données

Cordialement

Philmaure

re

Alors essayez comme ceci

Dim derligne As Long
With ActiveSheet
    derligne = .Range("A" & Rows.Count).End(xlUp).Row
    If derligne > 3 Then
        .Range("A" & derligne).EntireRow.Delete
    End If
End With

Re,

Encore merci

Comme dit dans mon premier post je souhaite supprimer que de la colonne A à la colonne J. Mon fichier originel comporte d'autres données dans les autres colonnes.

Cordialement

Philmaure

re

je souhaite supprimer que de la colonne A à la colonne J. Mon fichier originel comporte d'autres données dans les autres colonnes.

Ok alors dans le code remplacez la ligne

.Range("A" & derligne).EntireRow.Delete

par ceci

.Range("A" & derligne & ":J" & derligne).ClearContents

Crdlt

ou, pour supprimer vraiment les cellules et remonter le reste (mais y'a t'il un reste ?)

Dim derligne As Long
With ActiveSheet
    derligne = .Range("A" & Rows.Count).End(xlUp).Row
    If derligne > 3 Then
        .Range("A" & derligne & ":J" & derligne).Delete Shift:=xlUp

    End If
End With

(s'cuse dan, tu dois avoir l'impression que je te suis mais c'est juste qu'on est là en même temps )

@Nain Porte Koi

Si c'est la dernière ligne, le Delete shift ne sert à rien et de plus vous perdez le format éventuel de la ligne supprimée

Crdlt

Re,

Super, c'est bien cela que j'attendais.

Un grand merci et une bonne journée

Cordialement

Philmaure

@Dan, j'ai imaginé qu'il avait d'autres informations dans les colonnes suivantes qu'il fallait remonter, effectivement le ClearContents suffisait

Bonjour à tous

philmaure a écrit :

Comme dit dans mon premier post je souhaite supprimer que de la colonne A à la colonne J. Mon fichier originel comporte d'autres données dans les autres colonnes.

Dictionnaireset encyclopédies

D'où l'intérêt de travailler en tableaux structurés : on peut en supprimer des lignes sans impacter les colonnes qui n'en font pas partie...