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

Staple1600

XLDnaute Barbatruc

• 26 Février 2022

• #2

Bonjour

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

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 26 Février 2022

• #3

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

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 26 Février 2022

• #4

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

 

Pièces jointes

• Charlie textbox date.xlsm

  23.9 KB · Affichages: 4

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Février 2022

• #5

RE

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

VB:

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

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 26 Février 2022

• #6

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

 

Dernière édition: 26 Février 2022

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Février 2022

• #7

Re

A tester et adapter

VB:

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

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 26 Février 2022

• #8

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Février 2022

• #9

Re

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

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 26 Février 2022

• #10

Staple1600 à dit:

Re

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

Cliquez pour agrandir...

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

VB:

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+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Février 2022

• #11

Re

A tester

VB:

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

 

Vote positif 0 Vote négatif

Solution