Discussion :

[Kimy_Ire]

Bonjour,

Je souhaiterai comprendre la différence entre une recherche sur une valeur précise ou sur une valeur quelconque.
Je m'explique :
J'ai en colonne 1 une valeur en A1 puis une valeur en A8 puis... peut importe.

Je fais une recherche comme ceci : Set oRng = .Columns(1).Find("mavaleur", LookIn:=xlValues, LookAt:=xlWhole) et "mavaleur", positionnée en A1, est bien ciblée.
Cependant, lorsque je fais ceci : Set oRng = .Columns(1).Find("*", LookIn:=xlValues, LookAt:=xlWhole) c'est ma valeur en A8 qui est prise en compte.

Au final avec un exemple tout simple :

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
Option Explicit
 
Sub comprend_pas()
 
Dim oRng As Range
 
With Worksheets("Feuil1")
    Set oRng = .Columns(1).Find("mavaleur", LookIn:=xlValues, LookAt:=xlWhole)
    MsgBox oRng.Address
 
    Set oRng = .Columns(1).Find("*", LookIn:=xlValues, LookAt:=xlWhole)
    MsgBox oRng.Address
 
End With
 
End Sub

Moi pas comprendre...
Est-ce que quelqu'un aurait une explication sur ce que je fais de mal ?

Merci !

Cordialement,
Kimy

[patricktoulon]

Bonjour

c'est normal
j'en conclu donc que ta colonne est rempli jusqu'en A8

c'est tout simple l'argument"*" veut tout et rien dire a la fois
en fait en utilisant cet argument tu demande de chercher quelque chose donc la fonction find cherche jusqu'à qui il est une cellule vide tout simplement

cet argument est utilisé en général avec la fonction "Like" en option d'une chaine de caractère

exemple

Code :

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

1
2
3
4
5
6
7
8
for each cel in range("A1:A10")
if cel like "*toto" then      'traduction :si il y "toto" avec quelque chose devant then  
 
if cel like "toto*" then       'traduction :si il y "toto*" avec quelque chose après then  
 
if cel like "*toto*" then      'traduction :si il y "*toto" avec quelque chose devant et après  then  
 
next

c'est plus clair la ?

[Kimy_Ire]

Bonjour Patrick,

Ce n'est justement pas le cas...
Je n'ai aucune valeur entre A1 et A8... et la fonction .Find("*", LookIn:=xlValues, LookAt:=xlWhole) me retourne bien la première cellule non-vide (que j'ai des valeurs ou pas en A9:AXXX) MAIS sans considérer la première cellule de ma range de recherche...

Je vais examiner plus en détail ce que tu viens de me dire... et continuer à chercher sur le net.

Merci à toi en tout cas !

Cordialement,
Kimy

EDIT : Autre exemple similaire avec une valeur en B12 et une valeur en E18 sans rien dans les autres cellules de la range :

Code :

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

1
2
    Set oRng = .Range("B12:E18").Find("**", LookIn:=xlValues, LookAt:=xlWhole) ou '.Find("*", LookIn:=xlValues, LookAt:=xlWhole)
    MsgBox oRng.Address

[Invité]

Salut,

Regarde du coté du paramètre After:

Cellule après laquelle vous souhaitez commencer la recherche. Elle correspond à la position de la cellule active quand une recherche est lancée à partir de l'interface utilisateur. Notez que le paramètre After doit désigner une cellule unique dans la plage, et que la recherche commence après cette cellule qui n'est analysée que quand la méthode y revient après avoir analysé les autres cellules. Si vous ne définissez pas cet argument, la recherche commence après la cellule figurant dans l'angle supérieur gauche de la plage.

[patricktoulon]

oui tu a raison c'est vrai

mais dans tout les cas avec la fonction find cet argument est inutile et même susceptible de générer une erreur d'interprétation

l'argument "lookatlpart" de la fonction find sert a ca sauf que l'on ne peut pas préciser ou la chaine inconnu se trouve (devant ou après )

l'argument lookat:=xlWhole permet effectivement de rechercher une valeur exacte,
à opposer à lookat:=xlPart qui permet de rechercher une valeur contenue dans la chaine de caractere de la cellule ou la feuille, par défaut en absence d'argument.

[Kimy_Ire]

Merci à vous deux !

Je revenais sur le forum pour écrire la même chose que toi Nouveau2, que je viens de lire dans l'aide !
Par contre, quelle valeur placer afin de commencer à la première cellule de ma range ?

Patrick, j'entends qu'il n'est peut-être pas optimal d'utiliser ceci pour trouver la première cellule non vide.
Que ferais-tu pour le coup ?

Merci encore.

Cordialement,
Kimy

[pgz]

Bonjour.

A mon avis, c'est la remarque de Nouveau2 qui est judicieuse.
La recherche commence après la cellule spécifiée et s'il n'y en a pas, après la première en h et g de la plage.
Dans ton cas, tu devrais avoir A2, et pas A8;

Autre essai : tu écris "mavaleur" en A1 et A3, et ton code renvoie "A3" pour What:="mavaleur"

Apparemment, pas moyen de commencer en A1, sauf à spécifier la dernière cellule de la colonne.

Bon courage,

pgz

[Kimy_Ire]

Oui...
Seul moyen :

Code :

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

1
2
3
4
    Set marange = .Range("B12:E18")
 
    Set oRng = marange.Find("*", After:=marange.Cells(marange.Cells.Count), LookIn:=xlValues, LookAt:=xlWhole)
    MsgBox oRng.Address

Et affecter à marange la range de recherche.

Merci à tous !

Cordialement,
Kimy

EDIT : Je laisse le sujet ouvert pour ceci

Patrick, j'entends qu'il n'est peut-être pas optimal d'utiliser ceci pour trouver la première cellule non vide.
Que ferais-tu pour le coup ?

[patricktoulon]

re
effectivement pgz a raison si ca n'est pas précisé la recherche commence a la 2 Emme cellule de la plage

donc si il y a plusieurs possibilité la fonction s'arrêtera a la première occurrence trouvée pour continuer c'est la fonction find next

mais dans le cas de l'argument "*" ces deux fonctions seront obsolète puisque "*" veut dire quelque chose mais rien de precis donc la fonction find trouvera la première cellule pleine a partir de la 2 Emme cellule de la plage et la fonction find next te donnera la suivante et ainsi de suite jusqu'à la dernière ligne et remontera a la 1 ere ligne de la plage a la fin

la fonction find fonctionne comme ceci:
2 eme ligne de la plage
3eme ligne de la plage
4 eme ligne de la plage
etc......
et a la fin
ligne 1 de la plage

et pour être plus précis dans mon raisonnement :

utiliser

Code :

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

range("A1:A20").find("*")

reviendrait a utiliser

Code :

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

range("A" & range("A1").end(xldown).row)

moi ce que j'en dis