liste deroulante

[Nono1835]

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

 

[BOISGONTIER]

Re : liste deroulante

Bonjour,

cf PJ

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

 

[Nono1835]

Re : liste deroulante

re boujour

merci exactement

quelle procedure avez vous faite ?

merci

 

[Nono1835]

Re : liste deroulante

re

y a t il un petit tuto quelque part pour que je puisse adapter cela a mon fichier officiel

car la je pense que mon niveau est -------

merci

 

[Nono1835]

Re : liste deroulante

RE

impossible de recuperer le code pour l appliquer a ma feuille de calcul

merci