Bonjour à tous,

j'ai cette macro ci-dessous afin de comptabiliser des cellules de couleur rouge sur une plage donnée.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Presents010710()
    Dim rngCell         As Range
    Dim intNbCouleurs   As Integer
 
    For Each rngCell In Range("o12:o108").Cells
        If rngCell.Interior.ColorIndex = 3 Then
            intNbCouleurs = intNbCouleurs + 1
        End If
    Next
    MsgBox intNbCouleurs & " Present(s)"
End Sub
Je souhaite que la macro me demande le nom de la cellule qui se trouve en O11 afin de donner le résultat du comptage.

En effet O11 étant la date du jour... donc vous l'aurez compris, O12 étant la date suivante, plage à comptabiliser sera de p12 à p108...

Le fichier est un fichier de réservations. Par cette macro, j'arrive à connaitre le nombre de présents par date

J'espère avoir été clair

merci