recherche VBA merci

Version imprimable

recherche VBA merci

bonjour

explication

j'ai une liste d'article avec référence qui me sert a réaliser des ouvrage, exemple "ref: 2,6,21,7=ouvrage N°1
je voudrais savoir si il est possible de recherche des référence données pour les inséré dans une autre feuille

j'ai ceci mais je ne comprend pas
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub test() Dim Cel As Range Dim Ref As Integer Ref = 4 Set Cel = Sheets("Feuil1").Columns("A").Find(what:=Ref, LookIn:=xlValues, lookat:=xlWhole) If Not Cel Is Nothing Then Sheets("Feuil2").Range("C20") = Cel.Offset(0, 5) End If End Sub
merci

18/01/2014, 17h40
Invité

Bonjour,

La macro Test cherche dans la colonne A de la feuille nommée Feuil1, la valeur exacte de Ref (ici 4). Si une occurrence existe pour cette valeur, alors le contenu de la cellule trouvée décalée de 5 colonnes à droite est copié dans la cellule C20 de la feuille nommée Feuil2.

Dans votre cas, s'il s'agit de trouver la chaîne de caractères "ref: 2,6,21,7=ouvrage N°1", il faut remplacer Ref par cette chaine :

Code:

Set Cel = Sheets("Feuil1").Columns("A").Find(what:="ref:2,6,21,7=ouvrage N°1", LookIn:=xlValues, lookat:=xlWhole)

Cordialement.

merci

explication très clair

si maintenant je souhaite rechercher d'autre "Ref" pour les copie en dessous
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub test() Dim Cel As Range Dim Ref As Integer Ref = 4 Set Cel = Sheets("Feuil1").Columns("A").Find(what:=Ref, LookIn:=xlValues, lookat:=xlWhole) If Not Cel Is Nothing Then Sheets("Feuil2").Range("C20") = Cel.Offset(0, 5) End If End Sub
quel procédure, j'ajoute derrière le 4 ou bien il faut créer une nouvelle condition

merci

Citation:

Envoyé par pascal.59

si maintenant je souhaite rechercher d'autre "Ref" pour les copie en dessous
quel procédure, j'ajoute derrière le 4 ou bien il faut créer une nouvelle condition

Un exemple possible à partir d'une variable tableau :

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 TestVersion2()
 
Dim ShSource As Worksheet
Dim ShCible As Worksheet
 
Dim LigneCibleEnCours As Long
Dim I As Long
 
Dim ValeursAChercher As Variant
 
 
        Set ShSource = Sheets("Feuil1")
        Set ShCible = Sheets("Feuil2")
        LigneCibleEnCours = 20
 
        ValeursAChercher = Array(4, 15, 10) 'L'ordre a son importance pour le résultat.
 
        For I = 1 To 3
            RecuperationDonnees ShSource, ValeursAChercher(I - 1), ShCible.Range("C" & LigneCibleEnCours)
            LigneCibleEnCours = LigneCibleEnCours + 1 ' Si les résultats doivent s'ajouter les uns à la suite des autres
        Next I
 
        Set ShSource = Nothing
        Set ShCible = Nothing
 
 
End Sub
 
 
Sub RecuperationDonnees(ByVal FeuilleSource As Worksheet, ByVal ValeurRecherchee As Variant, CelluleCible As Range)
 
Dim CelluleRecherchee As Range
 
        Set CelluleRecherchee = FeuilleSource.Columns("A").Find(what:=ValeurRecherchee, LookIn:=xlValues, lookat:=xlWhole)
        If Not CelluleRecherchee Is Nothing Then CelluleCible = CelluleRecherchee.Offset(0, 5)
        Set CelluleRecherchee = Nothing
 
End Sub

Bon courage.

Cordialement.