Excel macros effacer Résolu

Question

Bonjour, 
Dans une macro Excel, comment effacer les cases de A5:F5 à AxFx avec x la dernière ligne où il apparais une valeur, Mais il peut y avoir des case vide entre.
Merci.

ccm81 · Answer

bonjour

une solution

Dim premli As Long, derli As Long, li As Long, co As Long
premli = 5
' dernière ligne de la colonne 1
derli = Cells(Rows.Count, 1).End(xlUp).Row
' dernière ligne colonnes 1 à 6
For co = 2 To 6
  li = Cells(Rows.Count, co).End(xlUp).Row
  If li > derli Then
    derli = li
  End If
Next co
Range("A" & premli & ":F" & derli).ClearContents
bonne suite

Excel macros effacer

1 réponse

Discussions similaires

Newsletters