Sélectionné la cellule A1 sur toute mes feuilles

SSIAP2 · 13 Octobre 2010

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 · 13 Octobre 2010

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

Bonjour SSIAP2

A mettre dans Thisworkbook

VB:

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

natorp · 13 Octobre 2010

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

Bjr SSIAP2

A mettre dans ThisWorkbook

Code:

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 · 13 Octobre 2010

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.

Code:

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 · 13 Octobre 2010

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

Sélectionné la cellule A1 sur toute mes feuilles

SSIAP2

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

natorp

XLDnaute Barbatruc

Hulk

XLDnaute Barbatruc

SSIAP2

XLDnaute Occasionnel

Discussions similaires

Sélectionné la cellule A1 sur toute mes feuilles

SSIAP2

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

natorp

XLDnaute Barbatruc

Hulk

XLDnaute Barbatruc

SSIAP2

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency