Débutant pour VBA

Bonjour à tous,

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

Code:

---

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

Salut et bienvenue sur le forum,

Citation:

---

...
J'espère avoir été clair
...

---

Ben pas vraiment, qu'entend tu par:

Citation:

---

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.

---

De plus, tu dis que O12 contient la date suivante mais O12 fait partie de la plage dans laquelle tu vérifie les couleurs, c'est un peu confu tout ça.

A+

Bonjour Fréderic,

Effectivement ce n'est pas clair...

Je reprends.

O11 est la date du jour. Il fallait lire P11 pour la date suivante... je me suis trompé dans l'indication de la cellule... désolé.

Donc la macro me demanderait la date souhaitée.
Je positionne le curseur sur la date située en colonne O et la macro sort le résultat des cellules comptabilisées entre les lignes 12 et 108.

Est ce plus clair ?

Dernière précision.
Le tableau est un planning d'occupation de chambres. Les lignes comprises entre 12 et 108 sont le nombre de chambre et la couleur rouge des cellules indique qu'une chambre est occupée.

Encore merci pour le temps qui tu as pris à lire ce message.

A+

Salut,

C'est du coup beaucoup plus compréhensible.
On part du principe, que la macro compte le nombre de chambre occupée en fonction de la cellule sélectionnée (si sur ligne 11).
Ce n'est certainement pas la meilleure méthode ni la plus "sympa" mais je te laisserai te renseigner sur le DTpicker.

Donc pour adapter ta macro pour ce que tu veux, on va modifier la manière de définir le Range en utilisant Cells.
ells fonctionne avec deux arguments, le premier pour numéro de ligne, le second pour le numéro de colonne.
Par exemple, Range("B3") = Cells(3,2). Et Range("A1:B3") = range(cells(1,1),cells(3,2))

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub PresentsSelonCell() Dim rngCell As Range Dim intNbCouleurs As Integer Dim MaCol as long 'Variable pour récupérer le numéro de colonne de la cellule active   If activecell.row <> 11 then exit sub 'sort de la procédure si la cellule sélectionnée n'est pas en ligne 11 MaCol = Activecell.column 'Récupère le numéro de colonne de la cellule active   For Each rngCell In Range(cells(12,MaCol),cells(108,MaCol)).Cells If rngCell.Interior.ColorIndex = 3 Then intNbCouleurs = intNbCouleurs + 1 End If Next MsgBox intNbCouleurs & " Present(s)" End Sub

---

Je t'avoue ne pas avoir testé :aie: donc j'espère ne pas avoir fait de coquille.

A+

C'est exactement ce que je souhaitais...

Merci beaucoup Frédéric pour cette aide précieuse.

Concernant le Dtpicker, je le garde pour plus tard et vais en premier lieu disséquer cette macro-ci...

Bonne journée

;)