Bonjour,

J'ai un soucis d'utilisation de Find, j'imagine que je ne l'utilise pas correctement.
Ce qui est "amusant" c'est que cette syntaxe fonctionne sur une centaine de ligne et parfois ca bloque avec l'erreur variable objet ou variable de bloc with non défini.

Comme vous pouvez le voir dans ce code je cherche une chaîne de caractère et je sélectionne/copie la valeur adjacente vers un autre classeur avec la même chaîne de caractère.

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
 
Cells.Find(what:=tri2).Offset(0, 9).Select
Selection.Copy
Windows("modele NO gestion.xlsm").Activate
Sheets(tri).Select
Cells.Find(what:=tri2).Offset(0, -1).Select
Selection.PasteSpecial Paste:=xlPasteAll
 
Windows("inventaire.xlsm").Activate
 
Cells.Find(what:=tri2).Offset(0, 4).Select
Selection.Copy
Windows("modele NO gestion.xlsm").Activate
Sheets(tri).Select
Cells.Find(what:=tri2).Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteAll
Merci de votre aide