Discussion :

[pascal.59]

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 :

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

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

[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 :

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

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

Cordialement.

[pascal.59]

merci

explication très clair

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

Code :

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

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

[Invité]

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 :

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
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.