Discussion :

[electrons]

Bonjour,

Je dois rechercher un nom dans une colonne, la date de traitement qui est sur la même ligne que ce nom trouvé devrait s'afficher.
Si ce n'est pas la bonne date, il faut faire à nouveau une recherche toujours sur base du nom.
J'ai le code pour trouver le nom, j'aimerais connaître le numéro de la ligne qui sélectionne ce nom pour afficher la date.

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
Sub RecherchePatient()
'
' RecherchePatient dans la liste
 
'
Dim DerLg As Integer
Dim StrRecherche As String
 
DerLg = Sheets("Feuil1").Cells(Columns(5).Cells.Count, 2).End(xlUp).Row
 
StrRecherche = "Tartempion"
 
'    Sheets("Feuil1").Select
 
    With Worksheets("Feuil1")
        .Activate
        .Columns(5).Find(StrRecherche).Select
    End With
    'DerLg = Row()
 
End Sub

Je pensais utiliser le Numéro de ligne correspondant à celle du nom trouvé. Si ce Numéro est équivalent au "DerLg", pas besoin de faire d'autre recherche.
Sinon, afficher la date de traitement qui est sur la même ligne (en colonne 7). Si c'est la bonne date arrêter la recherche, sinon, continuer la recherche et afficher à nouveau la date et ce, jusqu'à la dernière ligne contenant des données dans la colonne 5.

J'ai essayé avec "FindNext" mais ça ne va pas.

Merci d'avance pour votre aide.

[Marc-L]

Bonjour,

à mon avis la solution est bien FindNext vu la recherche par la méthode Find …
Ce qui cloche c'est son utilisation ! En se conformant à l'exemple de l'aide de Find, cela ira sur des roulettes
car à partir de la cellule trouvée il suffira d'appliquer un Offset pour la date.

A noter qu'un bon code n'a aucunement besoin de Select …

[keygen08]

Bonsoir, adapté a vos besoins.

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
Sub RecherchePatient()
' RecherchePatient dans la liste
Dim DerLg As Integer
Dim StrRecherche As String
 
DerLg = Sheets("Feuil1").Cells(Columns(5).Cells.Count, 2).End(xlUp).Row
StrRecherche = "Tartempion"
 
With Worksheets("feuil1").Columns(5)
    Set c = .Find(StrRecherche, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            MsgBox "la date est " & Cells(c, 7).Value
            'le reste du code ici
 
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
 
End Sub

[Docmarti]

Bonsoir electrons; à tous

Une autre interprétation

[electrons]

Bonjour Docmarti,

Merci pour ton code, il fonctionne bien. je n'ai plus qu'à l'adapter

Merci aussi à Marc_L et Keygen08 pour leus réponses, (il y avais une erreur dans le code de Keygen08, dans le MsgBox, le Cells(c, 7) indiquait une erreur mais c'est corrigé.)

Bonne journée.

Quand vous plantez une graine une fois, vous obtenez une seule et unique récolte. Quand vous instruisez les gens, vous en obtenez cent.
Confucius