Sélectionné la cellule A1 sur toute mes feuilles

[SSIAP2]

bONJOUR 0 TOUS


je cherche une solution pour que dans toute mes feuilles (j'en est 78 et d'autre vont s'ajouter ) la premiere celule soit activée car a chaque fois que des données sont inséré via USF j'ai des feuilles qui se retrouvent afficher à la ligne 1000 d'autre 300 ect pour une meilleur lisibilité et evité de scroller sur chaque feuille je cherche une solution automatique pour que tous mes feuilles soit présenté a l'identique c'est a dire la celulle A1 visible.

pour information Toute mes feuille concerné par ce que je souhaite commence par FORMA

-FORMA1
-FORMA2
-FORMA3..........ECT

merci pour votre aide

 

[pierrejean]

Re : Sélectionné la cellule A1 sur toute mes feuilles

Bonjour SSIAP2

A mettre dans Thisworkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 Sh.Range("A1").Select
End Sub

 

[natorp]

Re : Sélectionné la cellule A1 sur toute mes feuilles

Bjr SSIAP2

A mettre dans ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Range("A1").Select

End Sub

Oups : trop lent...!! bjr Pierrejean

Cordialement, Gérard

 

[Hulk]

Re : Sélectionné la cellule A1 sur toute mes feuilles

Hello SSIAP, Pierrejean 🙂, Natorp, Forum,

Essaie ce code avec un bouton sur la première feuille.

Private Sub CommandButton1_Click()

    Dim Feuille As Variant
    
    Application.ScreenUpdating = False

    For Each Feuille In ActiveWorkbook.Sheets
        If Left(Feuille.Name, 5) = "FORMA" Then
            Feuille.Activate
            With Feuille
                .Range("A1").Activate
            End With
        End If
    Next

End Sub

Le code active la cellule A1 de chaque feuille commencant par "FORMA".

Bonne journée à tous !

 

[SSIAP2]

Re : Sélectionné la cellule A1 sur toute mes feuilles

BONJOUR pierre jean natorp et hulk

merci pour vos nombreuse réponse j'ai donc opté pour la premiere proposition celle de pierre jean j'ai tout de même tester celui de hulk qui proposais une approche différente mais je n'ai pas réussi a le mettre en oeuvre


quand je cliquais sur le bouton rien ne se passais sur mes pages

en tous cas mon probleme est résolu je vous remrecie

à bientot