[RESOLU] : Une date limitee

job75

XLDnaute Barbatruc

• 21 Octobre 2015

• #2

Re : Une date limitee

Bonsoir MADA,

Ajoutez dans le code de l'UserForm :

Code:

Private Sub CboUser_Change()
If CboUser.ListIndex = -1 Then Commandbutton1_Click
If Date > Application.VLookup(CboUser, Feuil1.[A1].CurrentRegion, 3, 0) _
  Then Commandbutton1_Click
End Sub

Bonne fin de soirée.

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 21 Octobre 2015

• #3

Re : Une date limitee

Bonsoir MADAGASCAR,

Est-ce que la copie ci-jointe répond à ta question?

NB: j'ai modifié la date de mada2 pour test.

Cordialement.

Oups! Bonsoir job75

 

Pièces jointes

• Copie de date limite.xlsm

  22.5 KB · Affichages: 34

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 21 Octobre 2015

• #4

Re : Une date limitee

Bonsoir JOB75
BRAVO .. t'es vraiment le grand maitre JOB75
Merci beaucoup pour ce petit code .. simple et tres efficace
C'est bien résolu
Cordialement
MADA BLACK

 

Pièces jointes

• 2.jpg

  33 KB · Affichages: 30
• 2.jpg

  33 KB · Affichages: 27

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 21 Octobre 2015

• #5

Re : [RESOLU] : Une date limitee

Bonsoir Papou-net
Merci beaucoup .. pour ce merveilleux fichier
Oui c'est aussi merveilleux fichier avec code efficace
Merci encore pour tous
Cordialement
MADA BLACK

 

Pièces jointes

• merci.jpg

  152.3 KB · Affichages: 21
• merci.jpg

  152.3 KB · Affichages: 23

Vote positif 0 Vote négatif