Discussion :

[hoplageis]

Bonsoir
je parcours une feuille Excel1 pour affecter à plusieurs variables le contenu de différentes cellules

Code :

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

1
2
3
Var1 = Cells(N_Ligne, N_Col)
Var2 = Cells(N_Ligne + 1, N_Col)
Var3 = Cells(N_Ligne + 2, N_Col)

Je recherche l'occurrence Var1 dans la feuille Excel2 pour recopier les autres variables dans les cellules ligne+1 et ligne+2 de la ligne trouvée.

J'ai essayé différente chose autour de

Code :

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

c = Find(what:=Var1, LookIn:=xlValues, lookat:=xlWhole).Address

avec c déclaré comme Range

mais j'ai systématiquement un message d'erreur qui s'affiche.
Je sèche

Merci pour votre aide

[Docmarti]

Pour ne pas avoir d'erreur, enlève .Address

Code :

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

1
2
3
4
5
6
7
8
9
 
set w = Thisworkbook
set f = w.Worksheets("Feuil1")
r = "A:C"
Set trouve = f.Range(r).Find(What:=txtCherche, LookAt:=xlWhole, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
 
  If Not trouve Is Nothing Then
   ligne = trouve.Row 
  End If

Et indique là où faire la recherche : F.cells ou f.range("A:C").

[hoplageis]

Merci pour l'info. Ca marche. Il ne me reste plus qu'à trouver comment recopier les infos récupérées dans le WSH1 vers le WSH2.
@+