Bouton référence a vba

[Arkang]

Bonjour,

Je voudrais que quand je clique sur un bouton sur excel qu'il me donne le résultat des cases coloriés en rouge, ca marche avec une fonction vba quand je clique sur lecture la voici :

Sub CompterCellulesEnRouge()
Dim CompterCellules As Integer, iCell, PlageTest
Set PlageTest = Range("L4:L155")
Application.ScreenUpdating = False
For Each iCell In PlageTest
If iCell.Interior.ColorIndex = 3 Then
CompterCellules = CompterCellules + 1
End If
Next iCell

MsgBox CompterCelulles
End Sub

En cliquand sur lecture de vba ca me dit 23.

Je voudrais juste maintenant mettre un bouton, que quand je clique dessus ca me dise "23 rendez vous annulés".
J'ai creer le bouton mais je sais pas comment faire pour faire référence a la 1ere fonction. J'ai fait ca mais rien.
---------
Private Sub CommandButton1_Click()
MsgBox CompterCellules
End Sub


Mercii

 

[Efgé]

Re : Bouton référence a vba

Bonjour Arkang,
Pas certain de la question, mais je propose
Pour le bouton :

Private Sub CommandButton1_Click()
Call CompterCellulesEnRouge
End Sub

Et dans la macro :

MsgBox CompterCelulles & " rendez vous annulés"

Cordialement

 

[Arkang]

Re : Bouton référence a vba

Ca marche super.
Merci beaucoup
A bientot