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 ???
Merci à vous de m'avoir lu.
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:
Fasedan
Partager