Bonjour
 
Dans ma procédure VBA j’ai noté entre autres, pour empêcher d’entrez dans le TextBox1 une date hors la période du 01/01/2006 au 31/12/2006 la procédure suivante :
 
If TextBox1.Value < #1/1/2006# Or TextBox1.Value > #12/31/2006# Then
 
Je souhaiterais que  #1/1/2006# et #12/31/2006# qui sont notés manuellement fassent référence aux cellules A1 et A2 du feuillet 1 (ce sont des variables pour chaque exercice)
Pour simplifié, j’ai nommé les cellules:
 A1 : Debut  avec noté   01/01/2006  
 A2 : Fin       avec noté   31/12/2006
Je ne parviens pas à trouver comment je dois remplacer #1/1/2006# et #12/31/2006# dans ma procédure
Pouvez vous m’aider à résoudre mon problème, je vous en remercie par avance.  
 
 
 

Et la fonction intégrée IsDate qui renvoie une valeur de type Boolean qui indique si une expression peut être convertie en date.

 
Bonjour,
tu peux utiliser un DTPicker (affiche un calendrier) et fixer la date min et max.
 
Private Sub UserForm_Initialize()
    DTPicker1.MinDate = Cells(1, 1)
    DTPicker1.MaxDate = Cells(2, 1)
End Sub
 
C'est plus simple au niveau de la gestion.
 

Bonjour
 
Voila une très bonne idée, car j'utilise un calendrier pour la date
merci très sympa    

 
BONJOUR,  
 
j'utilise un calendrier dans une fenetre avec la foncton "DTPicker1" et j'aimerais que lorsqu'elle est validée, qu'elle soit réécrite dans une autre feuille.
 
Or quand j'execute ma macro, la date affichée est le 0-janvier-1900. connaissez vous le probleme?
merci pour votre attention.
 
sous progs:
Private Sub CMD_ok_Click()
Dates = .DTPicker1.CalendarTitleBackColor
End sub
 
Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
 
End Sub
 
morceau de macro:
Sub Remplir_Atelier_Tournage()
 
    Sheets("AtelierT" ).Activate
    Range("A2" ).Select
    Do Until ActiveCell.Value = ""
            ActiveCell.Offset(1, 0).Select
   Loop
    ActiveCell.Value = Dates
End sub