Comment Tester une sélection dans Excel VBA

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:

  

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x