Discussion :

[Potzo]

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 :

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

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 ?

[zyhack]

Bonjour

essaye en modifiant par

Code :

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

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

[Potzo]

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

[zyhack]

re,

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

ce qui donne

Code :

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

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

[Potzo]

Merci