Bonsoir
J'ai développé un petit fichier d'absences le code est :
Mon But est de pouvoir l'intégrer à un fichier plus complexe récupéré ( Ici ..? je sais plus ou) très intéressant , j'y ai déjà apporté des modif
Afin d'avoir une idée ou solution plus rapide que tout seul dans mon coin à chercher??
Comment incorporer ce code dans ce fichier ? la finalité serait de remplacer la couleur , ici en DUR ( rouge=3)
en cliquant sur un fond prédéfini comme Matin =jaune , AM=Bleu
J'aurai CP=jaune, RTT=Orange Maladie=Rouge
Puis de reporter cette couleur en selectionnant une plage ( comme je fais dans le petit bout de code)
Je sais c'est pas évident , mais je pense qu'il y a des BARBA... très compétent pour ce genre de Pb !!!!
merci
J'ai développé un petit fichier d'absences le code est :
Code:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("C5:L22")) Is Nothing Then
With Target
'If Selection.Interior.ColorIndex = 6 Then
'MsgBox " C'est un jour férié , modifiez votre sélection "
'Exit Sub
'End If
If Selection.Interior.ColorIndex = 3 Then
Selection.Interior.ColorIndex = xlNone
Else
Selection.Interior.ColorIndex = 3
End If
End With
End If
End Sub
Afin d'avoir une idée ou solution plus rapide que tout seul dans mon coin à chercher??
Comment incorporer ce code dans ce fichier ? la finalité serait de remplacer la couleur , ici en DUR ( rouge=3)
en cliquant sur un fond prédéfini comme Matin =jaune , AM=Bleu
J'aurai CP=jaune, RTT=Orange Maladie=Rouge
Puis de reporter cette couleur en selectionnant une plage ( comme je fais dans le petit bout de code)
Je sais c'est pas évident , mais je pense qu'il y a des BARBA... très compétent pour ce genre de Pb !!!!
merci