Discussion :

[cecyl]

Bonjour,

j ai une erreur a la ligne de code ci dessous (erreur 1004) et j aurais voulu savoir si certains d autres vous, a vu d oeil, voient une erreur dans la formule (afin que je sache si c est juste un probleme de formulation ou si je dois chercher ailleurs)

Code :

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

1
2
3
4
5
Dim wsh1 As Worksheet
Set wsh1 = Sheets("nom")
Dim CellFeuil As Range
 
For Each CellFeuil In wsh1.Range(Cells(2, colref1), Cells(wsh1.Cells(Rows.Count, colref1).End(xlUp).Row, colref1))

Sachant que colref1 est un integer defini plus tot et qu il vaut 1 a ce moment du code.

Mille mercis !

[fring]

Bonjour,

A vue de nez

Code :

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

For Each CellFeuil In wsh1.Range(wsh1.Cells(2, colref1), wsh1.Cells(wsh1.Cells(Rows.Count, colref1).End(xlUp).Row, colref1))

[cecyl]

Merci !!!
ca marche ! ca faisait bien 2 heures que je planchais la dessus !

yahoo je saute de joie merci beaucoup pour votre avis d expert !