Dificultées a faire une recherche de ligne

[fxcat]

Bonjour a tous,

merci pour les aides que j'ai lues sur ce forum, et qui m'ont bien aidées.

Cependant, je butte sur une recherche de ligne...
ma texdate.Value est la date du jour
Je voudrais chercher en colonne A la ligne ayant cette date, et sur cette ligne , plus loin (offset) inscrire des données(exemple "ok")

qu'est-ce qui cloche selon vous?

Private Sub CommandButton1_Click()
Dim Datej As String
Set Datej = TexDate.Value
With Sheets("Transmissions").Range("A1:A500")

Set ChDate = .Find(Datej, LookIn:=xlValues)
If Not ChDate Is Nothing Then
AdrDate = ChDate.Address
Range(AdrDate).Offset(0, 2).Value = "ok"
End If
End With
End Sub

Merci par avance.

 

[roro69]

Re : Dificultées a faire une recherche de ligne

Bonjour
Ceci devrait suffire:

[A1:A500].Find(What:=Date, After:=ActiveCell, LookIn:=xlValues).Activate
ActiveCell.Offset(0, 2).Value = "ok"

A++

 

[fxcat]

Re : Dificultées a faire une recherche de ligne

Merci Beaucoup Roro69

Entre temps j'ai réussi a faire ce que je voulais de cette manière... " avec les commentaires pour que les débutants comme moi y comprenne quelque chose."

Private Sub CommandButton1_Click()
Dim Datej As String
Datej = TexDate.Value 'Texdate.value est la date du jour
With Sheets("Transmissions").Range("A1:A500") 'je veux chercher dans la feuille transmission,dans la colonne A
Set ChDate = .Find(Datej, LookIn:=xlValues) ' chdate est la recherche
If Not ChDate Is Nothing Then 'si il trouve il ecris "mon texte" 2 cases a droite du résultat
AdrDate = ChDate.Address
Sheets("Transmissions").Range(AdrDate).Offset(0, 2).Value = "mon texte"
Else 'si il ne trouve pas, il ecrit 3 cases à droite de la case A7
Sheets("Transmissions").Range("A7").Offset(0, 3).Value = "mon texte pas trouvé"
End If
End With
End Sub

merci, à+