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

[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