Méthode Find pour récupération de données dans un tableau
Bonjour,
J'ai un tableau qui contient des valeurs, ds une feuille A.
Dans une feuille B, j'ai un tableau plus complet, avec le complément des informations correspondantes.
Je veux récupérer ces infos.
Pour cela je fais un "for each c" dans mon tableau de la feuille A, et j'utilise la méthode find... avant d'essayer de copier les cellules qui m'intéressent.
Mais j'ai une "erreur d'execution 91" :
Variable Objet ou Variable de Bloc With Non Définie.
Je mets un exemple de code ci après... Si quelqu'un peut m'aider ça me sera très utile.
____________________________________
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
| Sub recup_infos()
Set W1 = Worksheets("Feuil1")
Set W2 = Worksheets("DMD_EYT")
Set sh1 = W1.Range("A2:A87")
Set sh2 = W2.Range("A2:A1021")
For Each c In sh1
b = sh2.Find(c)
If Not b Is Nothing Then
c.Offset(0, 1) = b.Offset(0, 1)
c.Offset(0, 2) = b.Offset(0, 2)
c.Offset(0, 3) = b.Offset(0, 3)
c.Offset(0, 4) = b.Offset(0, 4)
c.Offset(0, 5) = b.Offset(0, 7)
End If
Next
End Sub |
_______________________________________
Cordialement,
