Autres (RESOLU)Textbox dans une feuille pour recherche format Date

[chaelie2015]

Bonjour Forum
je souhaite ajouter a la Textbox1 dans la feuille une exigence ( textbox01) format date jjjj jj/mm/aaaa lors de la saisie.

Private Sub TextBox1_Change() 'Recherche date
    
    Application.ScreenUpdating = False
    
    Range("c2:c365").Interior.ColorIndex = 2
    
    
    If TextBox1 <> "" Then
        For ligne = 2 To 365
            If Cells(ligne, Range("date").Column) Like "*" & TextBox1 & "*" Then
                Cells(ligne, Range("date").Column).Interior.ColorIndex = 37
                
            End If
        Next
    End If
    
    
End Sub

Merci

 

[Staple1600]

Bonjour

A tester
If Cells(ligne, Range("date").Column) Like "*" & Format(TextBox1,"dd/mm/yyyy") & "*" Then

 

[chaelie2015]

Bonjour staple1600
merci pour la réponse, c'est parfait.
a+

 

[chaelie2015]

Re
je souhaite ajouter a ce code de recherche ce qui suit :
si je saisi la date complète dans le textbox1 aller vers la ligne qui la corresponde.
exemple : je saisi par exemple dans textbox : 23/09/2022 aller vers la ligne 156.
merci FORUM

 

[Staple1600]

RE

A tester et adapter
(ici lors de mon test, les valeurs étaient en colonne A)

Private Sub Textbox1_Change()
Dim rng As Range
If Len(TextBox1) = 10 Then
If IsDate(TextBox1) Then
Set rng = Columns(1).Cells.Find(CDate(Me.TextBox1.Value), LookIn:=xlValues)
If Not rng Is Nothing Then
Application.Goto rng, True
Else
Exit Sub
End If
End If
End If
End Sub

 

[chaelie2015]

RE
Merci pour le code mais je souhaite au même temps colorier la cellule, comme le code précèdent ?
a+

 

[Staple1600]

Re

A tester et adapter

Private Sub Textbox1_Change()
Dim rng As Range
If Len(TextBox1) = 10 Then
If IsDate(TextBox1) Then
Set rng = Columns(1).Cells.Find(CDate(Me.TextBox1.Value), LookIn:=xlValues)
If Not rng Is Nothing Then
rng.Interior.ColorIndex = 37
Application.Goto rng, True
Else
Exit Sub
End If
End If
End If
End Sub

 

[chaelie2015]

Re
encore merci , comment remettre la cellule a sa couleur initiale ?
rng.Interior.ColorIndex = 2
a+

 

[Staple1600]

Re

Dans ton code exemple (celui du message#1)
Le ColorIndex était à 37
Donc j'ai repris 37

 

[chaelie2015]

Re

Dans ton code exemple (celui du message#1)
Le ColorIndex était à 37
Donc j'ai repris 37

Re
oui c'est ca , mais je souhaite une fois je vide la textbox la cellule revient a sa couleur blanche.
comme jai mentionné dans mon message 1
Range("c2:c365").Interior.ColorIndex = 2

Private Sub Textbox1_Change()
Dim rng As Range

Range("c2:c365").Interior.ColorIndex = 2
If Len(TextBox1) = 10 Then
If IsDate(TextBox1) Then
Set rng = Columns(1).Cells.Find(CDate(Me.TextBox1.Value), LookIn:=xlValues)
If Not rng Is Nothing Then
rng.Interior.ColorIndex = 37
Application.Goto rng, True
Else
Exit Sub
End If
End If
End If
End Sub

c'est bon maintenant ça fonctionne , merci

a+

 

[Staple1600]

Re

A tester

Private Sub Textbox1_Change()
Dim rng As Range
Select Case Len(TextBox1)
Case Is = 10
If IsDate(TextBox1) Then
Set rng = Columns(1).Cells.Find(CDate(Me.TextBox1.Value), LookIn:=xlValues)
If Not rng Is Nothing Then
rng.Interior.ColorIndex = 37
Application.Goto rng, True
End If
End If
Case Else
Range("A:A").Interior.ColorIndex = 2
End Select
End Sub

NB: ici l'exemple est toujours basée sur la colonne A