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 : 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 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,
Partager