Gérer les congés d'une équipe

Bonjour à toutes et à tous,

Dans le cadre d'une mission de management, je dois récupérer la valeur de certaines cellules (une date) selon un critère, à savoir la couleur de fond d'une autre cellule.

J'ai réussi à écrire une macro qui affiche via un msgbox les valeurs souhaitées, seulement je n'arrive pas à copier ces valeurs pour les coller dans un tableau, ce qui me permettra de les utiliser par la suite.

Voici la macro associée :

Sub test_couleur()

Dim plage As Range

Dim icell As Object

Application.ScreenUpdating = False

Set plage = Range("B4:AY4")

For Each icell In plage

If icell.Interior.ColorIndex = 6 Then

MsgBox icell.Offset(-1, 0).Value

End If

Next icell

End Sub

Et voici mon fichier :

Merci d'avance à tous ceux qui prendront la peine de plancher sur mon problème.

Cordialement,

Grouchniouf

Salut,

Voici un exemple afin de récupérer tes valeurs sous la forme d'une variable afin d'en faire un peu tout ce que tu veux (comme l'afficher dans un MsgBox dans cet exemple).

Tu as plusieurs instructions inutiles dans ta macro.

Sub test_couleur()

'Dim i As Integer
Dim xxx As Date
Dim plage As Range
Dim icell As Object

'Dim tableau()

Application.ScreenUpdating = False

Set plage = Range("B4:AY4")

For Each icell In plage
    If icell.Interior.ColorIndex = 6 Then
        xxx = icell.Offset(-1, 0).Value
         MsgBox (xxx)
    Else: ActiveCell.Offset(0, 1).Select
    End If
Next icell

End Sub

Cordialement.

Merci beaucoup pour ta réponse Yvouille !!

Cela m'a permis de me débloquer et de pouvoir avancer dans mon programme.

Bonne journée,

Cordialement