Cet exemple illustre la collection dans les zones Excel VBA. Ci-dessous, nous avons bordé Range ( « B2: C3, C5: E5 »). Cette gamme a deux domaines. La virgule sépare les deux zones.

Areas Collection in Excel VBA

Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivant:

  1. Tout d’abord, nous déclarons deux objets Range. Nous appelons les objets Range rangeToUse et singleArea.

Dim rangeToUse As Range, singleArea As Range
  1. Nous initialisons l’objet Range rangeToUse avec Range ( « B2: C3, C5: E5 »)

Set rangeToUse = Range("B2:C3,C5:E5")
  1. Pour compter le nombre de zones de rangeToUse, ajoutez la ligne de code suivante:

MsgBox rangeToUse.Areas.Count

Résultat:

Count Areas

  1. Vous pouvez consulter les différents domaines de rangeToUse en utilisant les valeurs de l’indice. La ligne de code suivante compte le nombre de cellules de la première zone.

MsgBox rangeToUse.Areas(1).Count

Résultat:

Count Cells

  1. Vous pouvez également boucle à travers chaque zone de rangeToUse et compter le nombre de cellules de chaque zone. La macro fait ci-dessous l’astuce.

For Each singleArea In rangeToUse.Areas

MsgBox singleArea.Count

Next singleArea

Résultat:

Count Cells

Count Cells

Pour un exemple pratique de la collection des zones, voir notre exemple programme lien: / vba-exemples-comparaison-gammes [gammes COMPARE].