Discussion :

[megeria]

Bonjour.

Est il possible d'utiliser la fonction find de la même façon que la fonction recherche d'excel?

Pour être plus explicite:

Je connais le début et la fin du contenu de la cellule que je recherche.
Si je recherche la valeur: 77-32-0026-1/01/143
J'aurais les infos "77-32-0026" et "/143"

Dans excel il suffit de lancer la recherche sur "77-32-0026*/143" pour tomber sur la bonne cellule...

J'ai tenté de reproduire la recherche avec le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Set garde = Worksheets("Dossier SAP")
Set stand = Worksheets(ActiveSheet.Name)
M = stand.Cells(J, 4) 'défini le critère de recherche, soit le numéro de Job card suivi d'une "*" et du numéro de zone
For F = 1 To 33
If garde.Cells(1, F) = "Sort field" Then G = F 'mémorise la position de la colonne "sort field"
If garde.Cells(1, F) = "Order" Then I = F 'mémorise la position de la colonne "Order"
Next F
Set Y = garde.Columns(G).Find(What:=M, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns)
If Not Y Is Nothing Then
P = Y.Row
stand.Cells(J, 1) = garde.Cells(P, I)
end if

Le but du jeu étant de trouver le numéro de ligne de la cellule contenant 77-32-0026-1/01/143 en ayant que les valeurs "77-32-0026" et "143" et de collecter une autre information se trouvant sur cette même ligne.

Désolé si ce message n'est pas très clair.

Quel que soit vos réponses merci pour ce forum et à tout ceux qui le font vivre.

PS: N'étant qu'un amateur si vous avez des idées pour simplifier le code qui va autour de ma recherche, je suis preneur.

[Kimy_Ire]

Je te propose ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub find()
 
With Worksheets("feuil1")
        For i = 0 To .Columns(1).find("*", , , , xlByColumns, xlPrevious).Row
        Set test = .Range("A1").Offset(i, 0)
 
        If Left(test.Value, 10) = "77-32-0026" And Right(test.Value, 4) = "/143" Then
            test.Offset(0, 1) = "YES!"
        End If
        Next i
End With
 
End Sub

Je parcours la colonne A jusqu'à la dernière ligne. Si je trouve à la fois Left(test.Value, 10) = "77-32-0026" et Right(test.Value, 4) = "/143" alors j'écris "YES!" sur la cellule située à droite ! =)

Cela te sert-il ? =)

[megeria]

Je pense que oui, merci beaucoup !!!

[Oliv-]

Bonjour,
Essaye cela :

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 Monfind()
    Dim mavaleur 
    With Worksheets("feuil1")
        Set mavaleur = .Cells.find(What:="77-32-0026*/143", after:=Range("a1"), LookIn:=xlFormulas _
                     , LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                                   MatchCase:=False)
        If Not mavaleur Is Nothing Then
 
        MsgBox mavaleur.Address
            MsgBox mavaleur.Offset(0, 2).Value 'valeur de la 2 ème cellule à droite
 
        End If
 
 
    End With
 
End Sub

[patricktoulon]

bonjour
en fait natvement vba offre plusieur solution

exemple ces deux la

1ere

Code :

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

1
2
3
4
5
6
7
8
 
Sub find2()
With Worksheets("feuil2")
For Each cellule In .Range("a1:a" & Range("a" & Rows.Count).End(xlUp).Row)
If InStr(cellule, "77-32-0026") > 0 And InStr(cellule, "/143") > 0 Then cellule.Offset(0, 1) = "ICI"
Next
End With
End Sub

2 eme

Code :

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

1
2
3
4
5
6
7
8
 
Sub find3()
With Worksheets("feuil2")
For Each cellule In .Range("a1:a" & Range("a" & Rows.Count).End(xlUp).Row)
If cellule.Value Like "*77-32-0026*" And cellule.Value Like "*/143*" Then cellule.Offset(0, 1) = "ICI"
Next
End With
End Sub

au plaisir

[Kimy_Ire]

Je viens de chercher un peu sur le net et j'ai trouvé également la fonction "InStr" que je viens de proposer dans cet autre post : http://www.developpez.net/forums/d12...terme-cellule/.

Mais j'avais une question par rapport à celle-ci justement.
patricktoulon, tu pourras peut-être m'aider pour la compréhension.

En effet, InStr retourne la première occurence ("INSTR function returns the position of the first occurrence of a substring in a string" => http://www.techonthenet.com/excel/formulas/instr.php).

Ce n'est donc pas vraiment un test. Pour autant quand on place seulement :

Code :

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

1
2
3
        If InStr(1, cell, "CONTENEUR") Then
            cell.Offset(0, 1) = "YES!"
        End If

cela fonctionne... Pourquoi ?
Merci !

[patricktoulon]

rebonjour
pour la simple et bonne raison que il y a plusieur facon de l'ecrire

exemple
facon 1

Code :

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

1
2
3
If InStr(1, cell, "CONTENEUR") Then
            cell.Offset(0, 1) = "YES!"
        End If

facon 2

Code :

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

1
2
3
If InStr( cell, "CONTENEUR")> 1Then
            cell.Offset(0, 1) = "YES!"
        End If

alors pourquoi
tout simplement parceque l'on peut traiter l'information de differente maniere

Code :

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

if instr (machin,"toto")>1 ou =1 ou=2 ou 3 ou < 5 ect...

le cas numero 1 et affimatif sur "=" d'autre confirmeront ou infirmeront si je me trompe

au plaisir


tout simplement

[patricktoulon]

re
et pour reprendre l'idée de oliv+-
on peut aussi concatener les valeur avec un joker comme separateur

Code :

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

if instr(cell,"77-32-0026*/143")>1 then

et meme de la facon cas 1

Code :

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

if instr(1,cell,"77-32-0026*/143") then

tu comprend maintenant le joker peut representer 1 ou plusieur caractere
et de meme avec la fonction "Like"


apres les joker c'est bien beau mais la proosition qui te conviens le mieux c'est bien la premiere
car
elle teste le left et le right de la valeur de la cellule ce qui rend absolument impossible que un intru vienne se hisser dans ta liste de cellule trouvées

exemple
tu a :
en cell a1 "77-32-0026jsdkfvbskdb/143"
et en cell a2 "5677-32-0026jsdkfvbskdb/143"

ceci rend categorique le critere de recherche

Code :

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

If Left(cell.Value, 10) = "77-32-0026" And Right(cell.Value, 4) = "/143" Then

seule la a1 sera pris en compte
tu peut donc faire finalement un melange des deux bien que la on pourrait parler d'utilité pour faire des variantes

Code :

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

if instr(cells,"77-32-0026")>1 and  right(cell,4)="/143" then

cela veut dire que le critere de recherche est basé sur la presence de la premiere chaine de caractere dans un (peu importe l'ordre )et la 2 eme chaine obligatoirement a la fin

enfin bref ya des tas de possibilités



au plaisir

[Philippe Tulliez]

Bonsoir,

Ce n'est donc pas vraiment un test. Pour autant quand on place seulement :

Code :

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

1
2
3
        If InStr(1, cell, "CONTENEUR") Then
            cell.Offset(0, 1) = "YES!"
        End If

cela fonctionne... Pourquoi ?
Merci !

Il y a deux choses à savoir dans cette question
La fonction InsTr(Chaine, TexteCherché) renvoie la position du premier caractère où se trouve l'argument TexteCherché dans l'argument chaîne

Code :

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

 Debug.Print InStr("Ceci est un texte", "texte")

Quand on utilise l'opérateur logique

Code :

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

IF A then

Cela sous-entend si A est différent de 0
donc dans cet exemple

Code :

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

IF InsTr(Chaine, TexteCherché) then

Si le texte cherché n'est pas présent, la formule Instr renverra 0 et donc le test renvoie FALSE

[Kimy_Ire]

C'est un peu ce à quoi je pensais sans en être parfaitement sûr, d'où ma question ! =)

Cela signifie bien qu'on "joue" avec excel. Ce n'est pas un test, mais le résultat de l'opération qui permet au test de se déclarer "false".

Merci à tous les deux !

[patricktoulon]

de meme que par exemple on peut rendre categorique le critere de recherche a la fonction native "LIKE"

exemple

tu a en
cell a1 "77-32-0026dhhg/1431254"
et en
cell a2 "77-32-0026fhfgh/143"
seule la cellule a2 sera pris en compte car je n'ai pas mis de joker dansapres la 2 eme chaine de carctere dans la condition

Code :

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

1
2
3
4
5
6
7
8
 
Sub find5()
With Worksheets("feuil2")
For Each cellule In .Range("a1:a" & Range("a" & Rows.Count).End(xlUp).Row)
If cellule.Value Like "77-32-0026*" And cellule.Value Like "*/143" Then cellule.Offset(0, 1) = "ICI"
Next
End With
End Sub

avec tout ca tu a de quoi t'amuser

[Philippe Tulliez]

Bonsoir,

C'est un peu ce à quoi je pensais sans en être parfaitement sûr, d'où ma question ! =)
Cela signifie bien qu'on "joue" avec excel. Ce n'est pas un test, mais le résultat de l'opération qui permet au test de se déclarer "false".
Merci à tous les deux !

On ne joue pas avec Excel, c'est un test Booléen qui est valable avec n'importe quel cas en informatique (en tous les cas pour Basic)
Si tu fais un test sur une variable numérique

Code :

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

IF A then

Cela sous-entend Si A est différent de 0
Autre cas avec Excel

Code :

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

=SI(NBCAR(H22);"des caractères";"Vide")

Cela sous-entend : Si le nombre de caractères est supérieur à 0

[Kimy_Ire]

Très bien !

Ce que je voulais dire avec "jouer" c'est qu'on ne place pas de manière explicite le test qu'on souhaite mais, comme tu le dis bien, de manière implicite.

Bref merci pour tes explications ! =)

[patricktoulon]

'au contraire c'est exactement explicite

c 'est le contexte du test qui te fait penser "jouer"

si une partie exite
si une partie existe et est pacé ici ou pas
ect.......
les test sont différents
encore une fois comme je te l'ai dis tout a l'heure
'des variantes il y en a des tas tout depend comment tu veux traiter et pourquoi tu veux traiter les informations

le contexte c'est tout
tiens un autre exemple avec find et un joker

voila 5 cellule qui se suivent
dsg77-32-0026dfg/143dfhg
77-32-0026
77-32-0026dfdfd
/143
77-32-0026dfg/143

avec un joker entre les deux chaines de caractere recherchées seule a1 et a5 seront pris en compte si j'enleve ce joker aucunne seront prises en compte
et contrairement a "like" si je place un joker devant la premiere chaine
celles qui aurront d'autre lettres devant dans les cellules seront pris en compte quand meme
j'utilise dans cette boucle find l' XLargument "xlpart (une partie de )

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub find6()
With Sheets(2).Range("a1:a500")
      Set c = .find("77-32-0026" & "*" & "/143", Lookat:=xlPart)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Offset(0, 1) = "ICI"
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub

'au plaisir

[Oliv-]

Salut,
C'est quoi le plus rapide .find Ou une boucle For Each cellule
avec instr ou like ?

megeria combien de résultat peux tu obtenir pour un code ?

[Philippe Tulliez]

Bonjour,

Très bien !
Ce que je voulais dire avec "jouer" c'est qu'on ne place pas de manière explicite le test qu'on souhaite mais, comme tu le dis bien, de manière implicite.
Bref merci pour tes explications ! =)

C'est effectivement implicite (If A [<>0] Then ...) ou (If Len(Texte) [<>0] Then ...)

[megeria]

Dans un dossier je dois avoir en moyenne dans les 2500 lignes, systématiquement avec 33 "critères" (colonnes).

Pour chaque cas je n'ai qu'une réponse à trouver mais il y a toujours plusieurs dizaines de termes qui se rapprochent de ce que je cherche.

La formulation

Code :

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

Set c = .find("77-32-0026" & "*" & "/143", Lookat:=xlPart)

devrait être l'idéal et est plus "passe partout" et permet même de rajouter d'autres critères de recherche.

Merci à tous pour ces réponses et ces formulations à assimiler.
(surtout à patrick, je vais me servir de ses formules :p)

[patricktoulon]

bonjour

pour repondre a oliv+-
la methode la plus rapide est certainement la methode avec "find"

pour la simple et bonne raison que tout est dans la fonction

hors que avec une boucle for each il faut ajouter des conditions en vue d'un evenement elle devra donc boucler sur tout les cellules et appliquer les condition sur toutes les cellules aussi

exemple

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
Sub essai_de_rapidité()
Range("a" & Rows.Count) = "toto"
With Worksheets(1).Range("a1:a" & Rows.Count)
avant = Timer
'1ere temps
For Each cel In .Range("a1:a" & Rows.Count)
If cel = "toto" Then temps1 = Timer - avant: Exit For
Next
'2eme temps
avant2 = Timer
Set cellule = .Range("a1:a" & Rows.Count).Find("toto")
If Not cellule Is Nothing Then temps2 = Timer - avant2
MsgBox "methode for each = " & temps1 & vbCrLf & "methode avec find = " & temps2
End With
End Sub

bien que cet exemple n'est pas démontré chez moi une difference dans le msgbox

windows 7 64 bit
processeur 6 giga
16 giga de memoire ("corsaire")ddr3


je suis persuadé que la methode find reste la plus rapide

au plaisir

[megeria]

Avec les dinosaures qu'on a au boulot je peux t'assurer que tu as raison, la méthode find est plus "légère" pour le PC ^^, est est plus facile à suivre en marche pas à pas lorsqu'on fait des essais.

[patricktoulon]

re
c'est normal que le pas a pas te donne un resultat plus performent

la methode find te sort les occurences c'est tout
la methode for pedale jusqu'a une occurence et et repedale jusque a la prochaine

une cellule est un object de type range et est plus lourde qu'une variable string
donc a chaque cel dans la boucle cel prend la dimention de la cellule ainsi que toutes ses propriétés,left,width,value,fontname,fontsize,fondbold,ucase ou pas ect.......tout ca ca prend de la memoire forcement sur une cellule ca peut parraitre insignifiant mais au bout de x0000 ca commence a faire des octets tout ca

au plaisir