selection de cellule dans une boucle ne fonctionne

[xavier]

Bonsoir,


Je tiens a remercier michel grace a qui mon projet avant pas mal
voila je fais une recherche de fichier doublon dans mes cd-rom.
Grace a vos conseil j'arrive a archiver tous les fichiers dans une feuille excel ensuite je souhaite faire une recherche des fichiers doublons et la j'ai un petit probleme :

Private Sub fichierdoublon_Click()
Dim bouclefeuille, nbfeuille

nbfeuille = ActiveWorkbook.Worksheets.Count '(feuilles de calcul)
For bouclefeuille = 1 To nbfeuille
Worksheets(bouclefeuille).Select
Cells(65536, 2).Select
'Range('B65536').Select
Selection.End(xlUp).Select
Next bouclefeuille
End Sub


Je selectionne les feuilles les une a une selectionne la cellule B65536 puis remonter jusqu'a la premiere cellule remplie. Pour la premiere feuille il n'y a pas de probleme mais pour bouclefeuille = 2 j'ai un message d'erreur.
Quelqu'un pourrait-il m'eclairer sur ce point.


Je vous remercie car la je ne vois vraiment pas le probleme et bravo pour ce site.

 

[galopin01]

Bonsoir,
Quel message ?

b) La Question dans le message doit contenir un maximum d’informations, plus vous donnerez de détails, plus il sera facile de vous répondre. Mettez vous à la place des Lecteurs, ils ne peuvent pas imaginer votre problème.

A+

Message édité par: galopin01, à: 12/03/2005 20:47

 

[myDearFriend!]

Bonsoir xavier, Galopin01, le Forum.

Je suppose que ton bouton fichierdoublon se situe sur une feuille de ton classeur et notamment, sur la première feuille dont tu parles...
Cela dit, dans la majorité des cas, il n'est point besoin de faire des 'Select' avant d'agir sur des objets 'Range' (c'est même déconseillé).

Je ne sais pas ce que tu souhaites faire exactement avec ta boucle (là, je rejoins ce que j'ai cru comprendre du message de Galopin01), mais tu pourrais peut-être faire quelque chose comme ça :

Public Sub fichierdoublon()
Dim bouclefeuille As Byte, nbfeuille As Byte
Dim Cellule As Range
nbfeuille = ActiveWorkbook.Worksheets.Count '(feuilles de calcul)
For bouclefeuille = 1 To nbfeuille
Set Cellule = Worksheets(bouclefeuille).Cells(65536, 2).End(xlUp)
MsgBox 'Feuille ' & Sheets(bouclefeuille).Name & ', cellule ' & Cellule.Address
Next bouclefeuille
End Sub

Cordialement.

Message édité par: myDearFriend!, à: 12/03/2005 21:25