Suppression dernier Enregistrement d'une colonne Résolu/Fermé

Question

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

ccm81 · Answer

Bonjour
Sub ok()
Dim lifin As Long
lifin = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & lifin).ClearContents
End Sub
Cdlmnt

Suppression dernier Enregistrement d'une colonne

1 réponse

Discussions similaires