Ce programme dans Excel VBA utilise la propriété Count, la fonction IsNumeric, la fonction IsEmpty et Méthode d’intersection pour tester une sélection. Situation:

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

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

Dim plagec As Range, cellulec As Range

2. Nous initialisons l’objet Range plagec avec Range(“C4:D10”) et lobjet Range cellulec avec la plage sélectionnée.

Set plagec= Range("C4: D10")
Set cellulec = Selection

3. Ajoutez les lignes de code suivantes:

if cellulec.Count = 1 And IsNumeric (cellulec) And Not IsEmpty (cellulec) And Not Intersect (plagec, cellulec) Is Nothing Then
MsgBox "Vous gagnez"
Else
MsgBox "Vous perdez"
End if

Explication: Intersect (plagec, cellulec) renvoie un objet Range qui représente l’intersection des deux plages. Si cet objet de plage n’est pas Nothing, le numéro unique (les trois premières conditions) est dans la plage bordée.

4. Testez le programme.

Ce n’est que lorsque vous sélectionnez un seul numéro dans la plage bordée que le résultat sera:

Dans tous les autres cas, le résultat sera: