Probleme de syntaxe ?

Bonjour a tous,

Lors de la compilation de mon programme(qui copie des donnees d'une feuille a l'autre), le compilateur m'affiche une erreur sur la ligne en gras :

Code:

---

1 2 3 4 5 6 7 8 9

For Each C In STDiK.Range("H2:H" & STDiK.Cells(Rows.Count, 8).End(xlUp).Row) With Hauptgewerke.Range(Cells(2, 2), Cells(Cells(Rows.Count, 2).End(xlUp).Row, 2)) Set D = .Find(C.Value, LookIn:=xlValues, lookat:=xlWhole) If Not D Is Nothing Then C.Copy Destination:=STDoK.Cells(ligne, 4) ligne = ligne + 1 End If End With Next

---

Est-ce un probleme de syntaxe ou le mal est-il plus profond ?

Bonjour

essaye en modifiant par

Code:

---

1 2	With Hauptgewerke.Range("B2:B" & Hauptgewerke.Cells(Rows.Count, 2).End(xlUp).Row)

---

Mon probleme c'est qu'ensuite je souhaiterais faire une boucle sur les colonnes, donc je peux pas utiliser cette methode qui marche.

re,

dans ce cas il faut que tu réutilise le nom de ta feuille pour chaque Cells()

ce qui donne

Code:

---

With Hauptgewerke.Range(Hauptgewerke.Cells(2, 2), Hauptgewerke.Cells(Hauptgewerke.Cells(Rows.Count, 2).End(xlUp).Row, 2))

---

Merci :)