Lancement fichier sur un onglet et une cellule....

[WEIDER]

Bonjour,

Pouvez vous m'aider s'il vous plait, je n'arrive pas à compléter mon code VBA !?
Tout est dit dans mon fichier joint.

Merci beaucoup.

 

[pierrejean]

Bonjour WEIDER
Dans le Thisworkbook:

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

 

[WEIDER]

Bonjour Pierre,

Merci pour ta réponse,

Ce code me fait bien démarrer sur l'onglet que je souhaite en cellule A1, mais lorsque je clic sur mes autres onglets les cellules A1 ne sont pas sélectionné !?!?

 

[pierrejean]

Re
As-tu bien mis cette macro dans le module Thisworkbook ??
Vois le fichier

 

[C@thy]

Coucou pierre jean

Bises

C@thy

 

[pierrejean]

Coucou Cathy
Grosses Bises également
Pierre

 

[WEIDER]

Effectivement, lorsque je clic sur n'importe quel onglet du fichier, je suis bien 'calé' sur la cellule A1.

Sauf que....

A l'ouverture de mon fichier, je ne suis pas par défaut sur mon onglet souhaité 'Nomenclature', en cellule A1, je suis la ou j'ai fais mon dernier enregistrement et pas non plus forcement sur la cellule A1 !?

Merci pour ton aide Pierre

 

[nanou66]

bonjour,
pouvez vous m'aider s'il vous plait, j'ai un soucis pour créer une fonction bien spécifique.
J'explose le problème: étudiante en comptabilité je souhaiterai automatiser ma cellule "reste à payer"en soustrayant les versements effectués à date irrégulière de mon montant de base. sachant que la fonction doit soustraire uniquement que lorsque la cellule de la date de versement est renseignée.
j’espère que j'ai été claire. je vous remercie de votre aide.

 

[WEIDER]

Bonsoir nanou66

Ne pensez vous pas qu'il aurait été préférable d'ouvrir une nouvelle conversation pour votre demande ?
Perso je ne trouve judicieux de l'avoir mis à la suite de mon fil ...

Cela dit, ça ne me dérange pas plus que ça

 

[JCGL]

Bonjour à tous,
Salut à C@thy,
Salut à PJ

Peux-tu essayer :

Option Explicit

Private Sub Workbook_Open()
    With Sheets("Nomenclature")
        .Activate
        .Range("A1").Activate
    End With
End Sub

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

Bise et à ++

A+ à tous

 

[WEIDER]

Bonsoir JCGL,

Code opérationnel, c'est parfait !

Merci beaucoup à vous ainsi qu'à Pierre.