Discussion :

[fasedan]

Bonjour le forum,

A partir d'un textbox1 qui est placé sur un userform.
Avec ce code, dans la colonne "A" d'une feuille excel, je retrouve et selectionne bien la date saisie dans le textbox1.

Mais comment faire si la date n'existe pas ???

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
  Dim MaDate As Variant
  Dim Date_a_Trouver As Range

  MaDate = Me.TextBox1.Value

  If MaDate = "" Then Exit Sub
On Error GoTo Fin

  For Each Date_a_Trouver In Range("A2", [A65536].End(xlUp))
  
    If Date_a_Trouver = CDate(MaDate) Then
    Date_a_Trouver.Select
    
    MsgBox " cette date existe : " & ActiveCell.Value & "   Adresse = : " & ActiveCell.Address
    ' Ici le noeud du problème.
    'Else
    'If Date_a_Trouver <> CDate(MaDate) Then
    'MsgBox " cette date n'existe pas."
    'Exit Sub

    End If
  Next
Fin:

Merci à vous de m'avoir lu.
Fasedan

[Daniel.C]

Bonjour,

Tu peux faire comme 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
  Dim MaDate As Variant
  Dim Date_a_Trouver As Range
  Dim Teste As Boolean
 
  MaDate = Me.TextBox1.Value
 
  If MaDate = "" Then Exit Sub
On Error GoTo Fin
 
  For Each Date_a_Trouver In Range("A2", [A65536].End(xlUp))
 
    If Date_a_Trouver = CDate(MaDate) Then
    Date_a_Trouver.Select
 
    MsgBox " cette date existe : " & ActiveCell.Value & "   Adresse = : " & ActiveCell.Address
    Teste = True
    Exit For
 
    End If
  Next
  If Teste = False Then MsgBox "cette date n'existe pas"
Fin:

J'ai ajouté une ligne pour sortir de la boucle lorsqu'on a trouvé la correspondance et un test que je positionne à vrai si l'égalité est trouvée. Pour éviter la boucle :

Code :

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

1
2
3
4
5
6
    If IsNumeric(Application.Match(Date_a_Trouver * 1, Range("A2", [A65536].End(xlUp)), 0)) Then
        [A1].Offset(Application.Match(Date_a_Trouver * 1, Range("A2", [A65536].End(xlUp)), 0)).Select
        MsgBox "cette cellule existe"
    Else
        MsgBox "cette cellule n'existe pas"
    End If

[fasedan]

Merci daniel.C pour la réponse.

Je viens de tester le premier code et cela fonctionne à merveille.

Je n'ai plus le temps maintenant, mais dès que possible, je teste le supplément de la deuxième partie du code et je reviens à vous.

Un grand merci à vous et developpez.com

Fasedan