Discussion :

[josephhd]

Bonjour,
suite à cela :
http://www.developpez.net/forums/d12...rture-feuille/

Savez-vous comment on peut faire pour se situer en a1 de chaque feuille i d'un classeur excel au lieu d'une feuille précisé ??

Merci d'avance,

[Paritec]

Bonsoir Joseph le forum
tu peux nous traduire STP?????

C'est tu comment on peut faire pour se situer en a1 de chaque feuille i d'un classeur excel au lieu d'une feuille précisé ??

Si c'est pour toutes les feuilles du classeur
dans le thisworkbook

Code :

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

1
2
3
4
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Range("A1").Show
    Range("A1").Select
End Sub

a+
papou

[nchal]

Salut

Tu mets sa dans un module.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub josephhd()
 
Dim ws As Worksheet
 
For Each ws In ThisWorkbook.Worksheets
    ws.Activate
    ws.Range("A1").Select
Next
 
End Sub

Si tu as besoin d'aide ou d'explication, n'hésite pas.

[Paritec]

Bonsoir à tous
Nchal bonsoir as-tu essayé ta macro????
non je ne le pense pas, car systématiquement tu vas sélectionner la dernière feuille
bonne soirée
a+
papou

[nchal]

Salut

Bah comme on ne sait pas grand chose sur le problème de notre ami joseph, j'ai juste fait en sorte que sur toutes les feuilles, la cellule A1 soit selectionner. Forcement, ma boucle finie sur la dernière feuille.
Mais comme on sait pas trop ce qu'il veut faire avec, peut etre que ta solution sera la bonne, peut que la mienne sera la bonne, peut etre aucune. Seul l'avenir nous le dira

[josephhd]

Bonjour et désolé de voir ce poste si tard !
J'avais lancé une autre discussion qui est la suivante :http://www.developpez.net/forums/d12...lasseur-excel/


Voici le code que j'utilise finalement et il fonctionne :

Code :

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

Worksheets(i).Range("a1").PasteSpecial xlPasteValues

Cordialement,