Excel macros effacer

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

1 réponse

Réponse 1 / 1
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
0
remibarbier Messages postés 237 Date d'inscription   Statut Membre Dernière intervention   16
 
Merci ça marche impeccable, j'essaierai de comprendre tout a l'heure.
0