Discussion :

[EmmanuelleC]

Bonjour,

Je suis confrontée a un probleme sans grand impact mais qui m'agace.
Pour des raisons esthétique, j'aimerai ramener le curseur en A1 dans toute les feuilles que la macro mouline, j'avais donc mis un Sheets(i).Cells(1, 1).Select tout simple

Code :

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

1
2
3
4
5
nbpage = Worksheets.Count
For i = 4 To nbpage
    Sheets(i).[blabla]
    Sheets(i).Cells(1, 1).Select
next i

J'ai bien forcement au moins 4 pages, et les opérations juste avant Sheets(i).[blabla] fonctionne parfaitement
Mais si j'ajoute "Sheets(i).Cells(1, 1).Select" dans ma boucle, j'ai une erreur 400

Or je ne comprend pas comment ca peut foirer

Ca n'est pas bien grave dans la mesure ou je peux me passer de ramener mon curseur en A1, c'était juste pour faire joli. Mais ca me contrarie de ne pas trouver

J'ai essayé Sheets(i).Range("A1").Select qui pose exactement le meme probleme (erreur 400)

Qu'est-ce qui cloche?

[ctac_]

Bonjour,

On ne peut sélectionner une cellule d'une feuille que lorsque cette feuille est active.

ctac

[mercatog]

Code :

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

1
2
3
4
5
Dim ws as Worksheet
for each ws in thisworkbook.worksheets
    ws.activate
    ws.range("A1").select
next ws

[Didier Gonard]

Bonjour,

Perso je ferais un truc du genre en rajoutant un filtre pour ne pas impacter les feuilles non voulues, ça serait plus économe je pense en ne faisant des select que si besoin...

Code :

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

1
2
3
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Cells(1, 1).Select
End Sub

cordialement,

Didier

[EmmanuelleC]

merci beaucoup pour vos lumières

Il faut forcement mettre en A1 pour toute les feuilles de la boucle :
la macro globale sert sur base d'un fichier de base ou on peut choisir une personne a generer le fichier pour cette personne uniquement.
Dans le fichier de base, tout est avec des formules, dans le fichier final, il faut que ca soit editable. Donc la macro fait un save as, copie paste valeur de tout les onglets. Et du coup, je me retrouvais avait toute la feuille de selectionnée, ce que je ne trouve pas tres esthétique