Contrôle RefEdit dans un formulaire personnalisé ou Userform, Excel VBA

Le contrôle RefEdit  est similaire à une zone de texte, mais vous permet d’y entrer une référence de plage en sélectionnant dans une feuille de calcul. La propriété Value renvoie cette référence.

Détermination des paramètres statistiques de plage
Comme exemple d’utilisation du contrôle RefEdit, nous allons construire un projet simple qui définit certains paramètres statistiques d’une plage, à savoir, les valeurs maximum, minimum et la somme de toutes les valeurs des cellules de cette plage. Alors, créez un formulaire sur lequel placer le bouton de commande et le contrôle RefEdit.

Figure: Détermination des paramètres statistiques de plage

Dans le module de formulaire, saisissez le code suivant :

Private Sub UserForm_Initialize()

   Me.Caption = "Paramètres statistiques"

   CommandButton1.Caption = "OK"

End Sub

Private Sub CommandButton1_Click()

   Dim r As String

   Dim min As Double

   Dim max As Double

   Dim s As Double

   r = RefEdit1.Value

   Dim rgn As Range

   Set rgn = Range(r)

   min = WorksheetFunction.min(rgn)

   max = WorksheetFunction.max(rgn)

   s = WorksheetFunction.Sum(rgn)

   MsgBox RefEdit1.Value & vbCr & _

          "min=" & min & vbCr & _

          "max=" & max & vbCr & _

          "s=" & s

End Sub

Commentaires

■ Pour calculer les valeurs maximum, minimum et également la somme de toutes les valeurs des cellules de la plage, les propriétés Min, Max et Sum de l’objet WorksheetFunction sont utilisées, qui sont les fonctions de feuille de calcul du même nom.

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