Commande VBA Find

Version imprimable

Commande VBA Find

Bonjour,

Je tente d'effectuer une recherche dans une colonne dont chaque élément (cellule) contient une formule.
Ma commande Find ne trouve pas l'élément recherché. On dirait que ma recherche ne tient pas compte du résultat des formules.

Merci pour votre aide.

Voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub ChercheFiches()
 
    Dim Trouve As Range
    Dim PlageDeRecherche As Range
    Dim Valeur_Cherchee As String
    Dim AdresseTrouvee As String
    Set PlageDeRecherche = Nothing
    Set Trouve = Nothing
 
        Sheets("Fiches service").Select
        Range("a1").Select
 
            Valeur_Cherchee = "Admin 2001"
            Set PlageDeRecherche = ActiveSheet.Columns(1)
 
            Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookIn:=xlFormulas, LookAt:=xlWhole)
 
            If Trouve Is Nothing Then
                GoTo PackagenonTrouvé
            Else
                AdresseTrouvee = Trouve.Address
                Range(AdresseTrouvee).Select
                GoTo PackageTrouvé
            End If
 
PackagenonTrouvé:
            Set PlageDeRecherche = Nothing
            Set Trouve = Nothing
            MsgBox ("non trouvé")
            GoTo fin
 
PackageTrouvé:
 
            MsgBox ("trouvé")
 
fin:
 
End Sub

10/12/2013, 17h31
Marc-L

Bonjour,

le code ne se trompe jamais, il fait ce qui lui est demandé ! L'erreur vient donc de toi car dans ta ligne n° …

- ah zut le code n'a pas été balisé, merci d'utiliser l’icône # dédiée au code ! -

… une recherche est effectuée dans les formules au lieu des résultats (valeurs) ‼

command VBA find

Bonjour,

Cela ne suffirait-il pas à ton bonheur.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub ChercheFiches()
 
Dim Trouve As Range
Dim PlageDeRecherche As Range
Dim Valeur_Cherchee As String
Set PlageDeRecherche = Nothing
Set Trouve = Nothing
 
Valeur_Cherchee = "machin"
Set PlageDeRecherche = Sheets("Feuil2").Columns(1)
 
Set Trouve = PlageDeRecherche.Find(what:=Valeur_Cherchee, LookIn:=xlFormulas, LookAt:=xlWhole)
 
If Trouve Is Nothing Then
   MsgBox ("non trouvé"): Exit Sub
Else
   Trouve.Select
   MsgBox "trouvé"
   MsgBox Trouve.Address  ' Pour vérification du résultat
End If
End Sub

Cordialement,

11/12/2013, 06h23
Docmarti

LookIn:= spécifie si la recherche se fait dans la formule ou le résultat de la formule.
si xlFormulas : la recherche se fait dans la propriété Formula
si XlValues : la recherche se fait dans le résultat affiché.

Cordialement

Docmarti
11/12/2013, 14h34
nibledispo

commande VBA find

Bonjour Docmarti,

Merci pour tes précisions.
En effet, dans ma proposition il faut remplacer xlformulas par xlvalues.

Cordialement,
11/12/2013, 14h40
Marc-L

Pourtant Paul je pense avoir été clair …
11/12/2013, 15h00
nibledispo

command VBA find

bonjour Marc,

En effet, à la relecture, ta réponse était claire. Hélas, je perds chaque jour des neurones et il me faut de plus en plus souvent plusieurs réponses pour que le déclic se produise.

En plus, je suis retourné dans l'aide 2013 qui sur ce point n'apporte aucune précision. L'aide (F1), trop souvent, n'est utile qu'à ceux qui savent déjà.

Cordialement,
11/12/2013, 16h16
Marc-L

Oui c'est juste, parfois l'aide est succincte … Et dans ce cas, il y a une astuce, utiliser l'Enregistreur de macros !

Car en se donnant la peine de bien alimenter la boite de dialogue de la recherche par exemple,
les options sont donc bien paramétrées dans le code ! …