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
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