Suppression dernier Enregistrement d'une colonne

Résolu
Druddy Messages postés 34 Date d'inscription   Statut Membre Dernière intervention   -  
Druddy Messages postés 34 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

1 réponse

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour
Sub ok()
Dim lifin As Long
lifin = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & lifin).ClearContents
End Sub

Cdlmnt
0
Druddy Messages postés 34 Date d'inscription   Statut Membre Dernière intervention  
 
Bonsoir et merci ccm81
Cela fonctionne
0