S
Spectroms
Guest
Bonjour,
J'ai un souci, j'ai un codage qui fonctionne très bien partout mais on viens davoir un nouveau poste avec Excel 2003. Et mon code ne fonctionne pas dessus alors que j'ai rien changé !
Je ne comprend donc pas pourquoi.
Voici la ligne qui bug c'est le For, ca me retourne une erreur 1004 (rien de bien explicite..) :
Function Nommage(i As Integer)
Dim Cellule As Range
For Each Cellule In Sheets(1).Range('A1:' & Chr(64 + Sheets(1).Range('IV1').End(xlToLeft).Column) & '1')
....
Next Cellule
end function
PS: Sheets(1).Range('IV1').End(xlToLeft).Column retourne 27 soit la derniere colonne qui est remplit. Bon, mon code n'est peut etre pas très clair ni très optimisé mais j'en suis désolé !
PS: J'ai mis à jour office mais rien n'y a fait !
Merci par avance pour votre aide !
J'ai un souci, j'ai un codage qui fonctionne très bien partout mais on viens davoir un nouveau poste avec Excel 2003. Et mon code ne fonctionne pas dessus alors que j'ai rien changé !
Je ne comprend donc pas pourquoi.
Voici la ligne qui bug c'est le For, ca me retourne une erreur 1004 (rien de bien explicite..) :
Function Nommage(i As Integer)
Dim Cellule As Range
For Each Cellule In Sheets(1).Range('A1:' & Chr(64 + Sheets(1).Range('IV1').End(xlToLeft).Column) & '1')
....
Next Cellule
end function
PS: Sheets(1).Range('IV1').End(xlToLeft).Column retourne 27 soit la derniere colonne qui est remplit. Bon, mon code n'est peut etre pas très clair ni très optimisé mais j'en suis désolé !
PS: J'ai mis à jour office mais rien n'y a fait !
Merci par avance pour votre aide !