liste deroulante

Nono1835 · 30 Avril 2015

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 · 30 Avril 2015

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

Nono1835 · 30 Avril 2015

Re : liste deroulante

re boujour

merci exactement

quelle procedure avez vous faite ?

merci

Nono1835 · 30 Avril 2015

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 · 30 Avril 2015

Re : liste deroulante

RE

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

merci

liste deroulante

Nono1835

XLDnaute Occasionnel

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

Nono1835

XLDnaute Occasionnel

Nono1835

XLDnaute Occasionnel

Nono1835

XLDnaute Occasionnel

Discussions similaires