• Initiateur de la discussion Initiateur de la discussion Nono1835
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Nono1835

XLDnaute Occasionnel
bonjour

je travail sur un fichier pour faire un suivi de poste pour des agents , je dois saisir le poste occupé par jour , pour cela j ai cree une liste deroulante par contre je souhaiterais conserver la mise en forme de la cellule source de ma liste deroulante
comment faire !!!!!!!!!

merci d avance
nono
 

Pièces jointes

Re : liste deroulante

Bonjour,

cf PJ

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect([E5:E30], Target) Is Nothing Then
    Application.EnableEvents = False
    On Error Resume Next
    [Liste].Find(Target, LookAt:=xlWhole).Copy Target
    Target.Validation.Add xlValidateList, Formula1:="=Liste"
    Application.EnableEvents = True
  End If
End Sub

Données/Validation

JB
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Mediane occupation
Réponses
6
Affichages
129
Réponses
1
Affichages
110
Retour