Suppression dernier Enregistrement d'une colonne [Résolu]

Signaler
Messages postés
12
Date d'inscription
samedi 29 mai 2021
Statut
Membre
Dernière intervention
9 juin 2021
-
Messages postés
12
Date d'inscription
samedi 29 mai 2021
Statut
Membre
Dernière intervention
9 juin 2021
-
Bonjour à Tous,

Décidément pour les fins de lignes, colonnes je ne m'en sors pas.

Nouvel exemple :

'*******************************************
' Suppression dernier Enregistrement d'une colonne
'*******************************************
Sub SupDerEnregD1Col()

Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A171").Select
Selection.ClearContents
Range("A1").Select
End Sub

Mon tableau évolue et comment s'assurer que c'est bien la dernière cellule de la colonne (non vide) pour l'effacer ensuite?

Si vous avez des tutos aussi pour m'expliquer, ils sont les bienvenus.

Je vous remercie par avance,

Configuration: Windows / Edge 91.0.864.41

1 réponse

Messages postés
9848
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
9 juin 2021
2 128
Bonjour
Sub ok()
Dim lifin As Long
lifin = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & lifin).ClearContents
End Sub

Cdlmnt
Messages postés
12
Date d'inscription
samedi 29 mai 2021
Statut
Membre
Dernière intervention
9 juin 2021

Bonsoir et merci ccm81
Cela fonctionne