Bon tu vois je n'aurais pas tardé à rencontrer de nouvelles difficultés. Au passage je te fais remarquer que je me suis mis à la programmation Excel sur ce projet et que la premiere partie de mon programme concernant la gestion des absences n'est pas du tout optimisé mais il marche bien et je gagne un temps énorme grace à tes conseils et à ceux que j'ai pu lire sur les différents forums.
Voila, quand l'utilisateur va selectionner une plage de cellule il va ensuite cliquer sur un bouton Activité placé dans la feuille et ainsi charger la userform. La il choisit le type d'activité une couleur qu'il souhaite associer à cette activité ainsi qu'un véhicule, le tout avec des optionbutton. (Le code ci-dessous)
J'arrive donc à mettre les cellules selectionnées avec la couleur et le nom de l'engin. J'arrive également à inscrire dans une cellule déterminée dans le code (fixe) le nom de l'activité choisie et la couleur pour créer une légende.
Seulement cela sera valable pour une activité et le problème que je rencontre est que si l'utilisateur resaisi pour un autre employé une autre activité et un autre engin j'aurai bien les bonnes données dans les cellules selectionnées mais ma légende sera écrasée.
Voici mon code, peux tu éventuellement me proposer une solution? Sinon moi je pensais carrément à créer un autre bouton sur la feuille pour créer la légende à part avec le meme système, selectionner les cellules avant de lancer la procédure:

Merci


Private Sub CommandButtonOK_Click()
Dim Cellule As Range
Dim i As Integer
Dim Couleur As Long
Dim Cpt As Integer
Dim cells As Range

'Choix de la couleur ( je sais que j'aurais pu encore optmiser avec une autre boucle for imbriquée! la flemme lol)
If OptionRouge = True Then
Couleur = vbRed
End If
If OptionBleu = True Then
Couleur = vbBlue
End If
If OptionVert = True Then
Couleur = vbGreen
End If
If OptionCyan = True Then
Couleur = vbCyan
End If
If OptionJaune = True Then
Couleur = vbYellow
End If
If OptionMagenta = True Then
Couleur = vbMagenta
End If

For Each Cellule In Selection
Cellule.Interior.Color = Couleur

For i = 1 To 21 'Récupération de l'activité
    If Me.Controls("OptionButton" & i).Value = True Then
    Range("D28") = Me.Controls("OptionButton" & i).Caption
    Range("D28").Interior.Color = Couleur
        For Cpt = 28 To 39
            If Me.Controls("OptionButton" & Cpt).Value = True Then
                Cellule = Me.Controls("OptionButton" & Cpt).Caption
                Exit For 'pour sortir de la boucle dès que le bon option button a été trouvé
            End If

        Next Cpt
    End If
Next i
Next Cellule

Activites.Hide
End Sub