Discussion :

[Sa Mariam]

Bonsoir, c'est moi encore une fois
J'ai lancé un code pour rechercher un mot sur ma feuille et j'ai remarqué que lorsqu'il détecte une ligne vide il arrête la recherche genre il ne saute pas la ligne vide pour continuer la recherche jusqu’à la fin de la page.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Rechercher()
 
    'Procédure permettant de réaliser une recherche que la colonne Nom
    Columns("B:B").Select
    Selection.Find(What:=Feuil1.Range("Nom"), After:=ActiveCell, LookIn:=xlValues, _
        Lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Select
 
End Sub

Merci d'avance pour votre aide

[mercatog]

Pour l'utilisation de la méthode find, il est préférable de procéder comme ceci

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
Sub Recherche()
Dim N As Long
Dim c As Range
Dim Nom As String
 
Nom = Feuil1.Range("Nom").Value
If Nom <> "" Then
    With Worksheets("nom de ta veuille")
        N = .Cells(.Rows.Count, 2).End(xlUp).Row
        Set c = .Range("B2:B" & N).Find(Nom, LookIn:=xlValues, Lookat:=xlPart)
        If Not c Is Nothing Then
            MsgBox c.Address
            'suite de ton code
        End If
    End With
End If
End Sub

[Sa Mariam]

Bonsoir, ça donne toujours le même résultat, le code ignore les valeurs stocké après une ligne vide

[mercatog]

Tu as une seule valeur trouvée ou plusieurs?

[Sa Mariam]

Plusieurs valeurs, je les classe sous format fe tableau sur l'interface

[mercatog]

Find trouve uniquement la première occurrence trouvée selon les paramètres.

Regarde l'aide sur Range.Find, tu trouves un exemple explicite pour trouver toutes les occurrences.

[anasecu]

Bonsoir,

j'ai remarqué que lorsqu'il détecte une ligne vide il arrête la recherche genre il ne saute pas la ligne vide pour continuer la recherche jusqu’à la fin de la page.

Je pense que tu as mal "remarqué" car tu peux même rechercher les lignes vides.

Par contre ta procédure est brute et elle plante si tu n'as pas de résultat. Comme ceci cela serait plus propre même si ton activecell risque de te poser des soucis et il vaudrait mieux le remplacer par [B1]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Rechercher()
 
'Procédure permettant de réaliser une recherche que la colonne Nom
Dim pos As Range
Set pos = Columns("B:B").Find(What:=Feuil1.Range("Nom"), After:=ActiveCell, LookIn:=xlValues, _
    Lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False)
If pos Is Nothing Then
    MsgBox "nom inexistant"
Else
    pos.Activate
    ' ton traitement
End If
End Sub