Partager via


Objet WorksheetFunction (Excel)

Cet objet est utilisé comme conteneur des fonctions de feuille de calcul Microsoft Excel que vous pouvez appeler à partir de Visual Basic pour Applications.

Exemple

Utilisez la propriété WorksheetFunction de l’objet Application pour renvoyer l’objet WorksheetFunction.

Cet exemple montre comment afficher le résultat obtenu après application de la fonction de feuille de calcul Min à la plage A1:C10.

Set myRange = Worksheets("Sheet1").Range("A1:C10") 
answer = Application.WorksheetFunction.Min(myRange) 
MsgBox answer

Cet exemple utilise la fonction de feuille de calcul CountA pour déterminer combien de cellules de la colonne A contiennent une valeur. Pour cet exemple, les valeurs dans la colonne A doivent être sous forme de texte. Cet exemple fait une vérification orthographique sur chaque valeur dans la colonne A et si la valeur est mal orthographié, insère le texte « Incorrecte » dans la colonne B ; dans le cas contraire, il insère le texte « OK » dans la colonne B.

Sub StartSpelling()
   'Set up your variables
   Dim iRow As Integer
   
   'And define your error handling routine.
   On Error GoTo ERRORHANDLER
   
   'Go through all the cells in column A, and perform a spellcheck on the value.
   'If the value is spelled incorrectly, write "Wrong" in column B; otherwise, write "OK".
   For iRow = 1 To WorksheetFunction.CountA(Columns(1))
      If Application.CheckSpelling( _
         Cells(iRow, 1).Value, , True) = False Then
         Cells(iRow, 2).Value = "Wrong"
      Else
         Cells(iRow, 2).Value = "OK"
      End If
   Next iRow
   Exit Sub

    'Error handling routine.
ERRORHANDLER:
    MsgBox "The spell check feature is not installed!"
    
End Sub

Méthodes

Propriétés

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.