Sujet Précédent Sujet Suivant

Excel macros effacer

Résolu/Fermé
remibarbier Messages postés 237 Date d'inscription lundi 21 avril 2008 Statut Membre Dernière intervention 30 mai 2013 - 19 avril 2012 à 18:01
remibarbier Messages postés 237 Date d'inscription lundi 21 avril 2008 Statut Membre Dernière intervention 30 mai 2013 - 19 avril 2012 à 18:32
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 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
19 avril 2012 à 18:27
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 lundi 21 avril 2008 Statut Membre Dernière intervention 30 mai 2013 16
19 avril 2012 à 18:32
Merci ça marche impeccable, j'essaierai de comprendre tout a l'heure.
0