Discussion :

[mat-tech]

Bonjour le Forum,
J’ai une superbe procédure de recherche, mais j'aimerai gérer au maximum les erreurs, donc :
Dans cette procédure, je fais une recherche sur une colonne complète, les variable pour effectuer cette recherche provienne d'un InputBox et le problème est que si l'utilisateur introduit un mauvais format (ex : 01/15/2003 ou blablabla) il y a une erreur donc j'aimerai tester le format de la variable avant de commencer la recherche et je ne connais pas la syntaxe pour tester un format

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
Private Sub rech()
 
Dim i As Integer, Datedeb As Date, Datefin As Date
Dim graph As Chart
 
Application.ScreenUpdating = False
If Sheets("Index").OptionButton10.Value = True Then
Datedeb = Sheets("Index").TextBox1
Datefin = Sheets("Index").TextBox2
End If
 
If Sheets("Index").OptionButton7.Value = True Then
Datedeb = Date - 388
Datefin = Date - 30
End If
 
du = Date
au = Date
 
'tester si les dates sont dans un format correct
'If Datedeb OR Datefin <> DATE.Format Then 
'MsgBox "Les dates doivent être dans un format JJ/MM/AAAA"
'Exit Sub
'End If
 
If Datedeb >= Datefin Then
MsgBox "la date de fin doit être postérieure à la date de début"
Exit Sub
End If
 
With Sheets("Données")
    For i = 4 To .Cells(Rows.Count, 1).End(xlUp).Row
        If .Cells(i, 2) = Datedeb Then
            Ligdeb = i
            du = .Cells(i, 2)
            Exit For
        ElseIf .Cells(i, 2) > Datedeb Then
            Ligdeb = i - 1
            du = .Cells(i - 1, 2)
            Exit For
        End If
    Next
    For i = 4 To .Cells(Rows.Count, 1).End(xlUp).Row
        If .Cells(i, 2) = Datefin Then
            LigFin = i
            au = .Cells(i, 2)
            Exit For
        ElseIf .Cells(i, 2) > Datefin Then
            LigFin = i - 1
            au = .Cells(i - 1, 2)
            Exit For
        End If
    Next
End With
 
End Sub

[neupont]

Pour "blablabla" tu peux tester avec isDate.
Par contre pour le problème jour/mois, tout ce que tu peux faire est vérifier si ce que tu crois être le mois ne dépasse pas 12... pas suffisamment fiable car tu vas rater toutes les inversions où le jour est inférieur à 13.
Le mieux serait encore de bien spécifier ce que tu attends dans le libellé de l'inputbox, éventuellement en mettant un exemple non ambigu.

[mat-tech]

Oui je crois avoir trouvé une idée, je vais essayé d'ouvrir un calendrier lorsque je click sur les InputBox et récuppérer les valeurs de celles-ci

Si une personne peut me dire comment ouvrir un calandrier selectionner la date et valider ca m'aiderait beaucoup.

J'ai trouvé un control calandrier, je pensais en mettre 2 et jouer sur le paramtre .Visible et réccuperer la valeur, mais ca m'a l'aire tirer par les cheuveux non ?

Merci

[casavba]

Bien penser.

Regarde le fichier joint tu trouveras peut être ton bonheur.

Tiens moi au courant

[mat-tech]

J'ai une erreur "Impossible de charger cette Objet car il n'est pas sur cette machine"
Pour info j'utilise Excel 2003 Pro, sous Xp Pro SP3

[fring]

Tu peux créer un UserForm avec un calendrier, pour ce faire tu ajoutes le contrôle "Contrôle Calendrier xx.x", ensuite tu insères les codes suivants :

• dans le UserForm
  

  Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

  1
  2
  3
  4
  5
  6
  7
  8
  9
  10
  11
  Private Sub UserForm_Initialize()
  'spécifie la date du jour lors de l'affichage de l'USF
  Calendar1.Value = Now
  End Sub
   
  Private Sub Calendar1_Click()
  'lance la procédure test_date lors du choix de la date
  Me.Hide
  test_date
  Unload Me
  End Sub

• dans un module
  

  Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

  1
  2
  3
  4
  5
  6
  Sub test_date()
  Dim DateDeb As Date
   
  DateDeb = UserForm1.Calendar1
  MsgBox DateDeb
  End Sub

Sinon concernant la vérification de la saisie de la date dans l'InputBox, cela devrait ressembler à ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub test_inputbox()
Dim DateDeb
 
recom:
DateDeb = Application.InputBox("Veuillez introduire une date au format JJ/MM/AAAA", "Date de début")
 
'si l'utilisateur clique sur "annuler"
If DateDeb = False Then Exit Sub
 
'si la date introduite est n'importe quoi sauf une date
If IsDate(DateDeb) = False Then
    MsgBox "la date introduite n'est pas une date correcte"
    GoTo recom
'si le format JJ/MM/AAAA n'est pas respecté
ElseIf Not DateDeb Like "##/##/####" Then
    MsgBox "le format de la date introduite n'est pas correcte"
    GoTo recom
'si MM dépasse 12, par exemple si l'utilisateur introduit 10/25/2008 ce qui est considéré comme le 25 octobre 2008
ElseIf Mid(DateDeb, 4, 2) > 12 Then
    MsgBox "depuis quand une année compte t-elle plus que 12 mois ?"
    GoTo recom
'si tout est ok on y go
Else
    MsgBox "ok"
End If
 
End Sub

Avec la solution du calendrier dans un UserForm cela rend l'erreur de saisie impossible et je trouve cette solution plus conviviale pour l'utilisateur
.

[casavba]

J'ai une erreur "Impossible de charger cette Objet car il n'est pas sur cette machine"
Pour info j'utilise Excel 2003 Pro, sous Xp Pro SP3

As-tu activer les références :

'"Microsoft MonthView Control 6.0"
'"Microsoft StatusBar control ,Version 6.0"

Pourtant je l'ai marqué dans le module en tant que commentaire.

Et franchement, la solution que j'ai proposé est meilleur et t'as pas besoin d'écrire une multitude de ligne de code, puisque l'utilisateur ne saisie pas, il choisit sa date dans le calendrier.