Marquez et comptez automatiquement la plage de cellules Excel utilisée avec VBA

Vous avez besoin de la macro "UsedRange" pour marquer ou compter toutes les cellules utilisées dans un tableau à l'aide d'une macro. À l'aide de deux exemples, nous allons vous montrer comment l'utiliser correctement.

Si vous souhaitez traiter les cellules de vos tableaux à l'aide de macros, vous devez vous limiter aux cellules qui contiennent réellement du contenu. C'est plus facile et beaucoup plus rapide que de rechercher dans toutes les cellules de toutes les colonnes et lignes. Excel vous propose la propriété à cet effet Plage d'occasion à. Il fait référence à toutes les cellules utilisées d'un tableau et fournit un Varier-Objet.

Utilisez UsedRange pour marquer les cellules Excel utilisées

La macro suivante montre comment utiliser la propriété en pratique :

Sous MarkAllUsedCells ()
ActiveSheet.UsedRange.Select
Fin du sous-marin

La figure suivante montre à quoi cela peut ressembler lorsque la macro est utilisée dans un tableau. Toutes les cellules utilisées sont marquées :

La macro marque toujours les cellules du tableau actif. Si vous souhaitez utiliser une table différente, remplacez l'objet Feuille active en se référant au tableau correspondant.

Comment compter les plages de cellules utilisées dans Excel

Pour compter le nombre de cellules d'un tableau contenant une formule, utilisez la macro suivante :

Sous-formulesComptage ()

Dim Cell As Range Dim Count As Double Count = 0 pour chaque cellule dans ActiveSheet.UsedRange. Cellules Si cellule. HasFormula Then Counter = Counter + 1 Cellule suivante MsgBox ("Il y a" & Str $ (Counter) & "cellules avec des formules dans le tableau actif.")

Fin du sous-marin

La macro définit la propriété UsedRange.Cells qui permet de se référer à toutes les cellules utilisées dans le tableau. Si une cellule contient une formule, la variable "Compteur" est incrémentée de 1. Le résultat est ensuite affiché dans une fenêtre de message :

Vous contribuerez au développement du site, partager la page avec vos amis

wave wave wave wave wave