Dificultées a faire une recherche de ligne

fxcat · 20 Décembre 2011

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?

Code:

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 · 20 Décembre 2011

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 · 20 Décembre 2011

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."

Code:

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, à+

Dificultées a faire une recherche de ligne

fxcat

Guest

roro69

XLDnaute Impliqué

fxcat

Guest

Discussions similaires

Dificultées a faire une recherche de ligne

fxcat

Guest

roro69

XLDnaute Impliqué

fxcat

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency