Suivi du curseur

[asset]

Bonsoir à tous,

J'aimerais lié par une macro, plusieur onglet qui ont la meme dimension, c'est a dire si je travail via l'onglet A en cellule C3 et que je me met sur l'onglet B je voudrais que le curseur ce met directement en C3 comme l'onglet B aussi.

Je vous joint un excemple


Je vous remercie par avance de votre aide

 

[Fred0o]

Re : Suivi du curseur

bonsoir asset,

Le code ci-dessous est à placer dans chacune des tes worksheets.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim sh, sho
    Application.ScreenUpdating = False
    sho = ActiveSheet.Name
    For Each sh In ThisWorkbook.Sheets
        sh.Select
        ActiveSheet.Range(Target.Address).Select
        Sheets(sho).Select
    Next
End Sub

A+

 

[JNP]

Re : Suivi du curseur

Bonsoir le fil 🙂,
Ou, uniquement dans ThisWorkbook

Dim MaCellule As String
Private Sub Workbook_Open()
MaCellule = ActiveCell.Address
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range(MaCellule).Select
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
MaCellule = Target.Address
End Sub

Bonne soirée 😎

 

[asset]

Re : Suivi du curseur

Merci de vos réponse, ca ne marche pas tout a fais comme je le voudrais, c'est a dire que par rapport à l'onglet A et que le curseur est en cellule D3 et que je me met sur les onglet B et C ca fonction bien, Mais si dans mon onglet C et que je change la position de mon curseur en position F4 et je me remet sur mon onglet A le curseur n'a pas changer de place est reste en position D3 et non comme je voudrais en position F4.

En gros pour mes onglet A B C, a partir du moment que je change la position du curseur je voudrais qu'elle ce suivent tout le temps.

Encore merci de vos réponse.

 

[asset]

Re : Suivi du curseur

Par ailleur j'ai omis de vous dire aussi, que dans mon fichier normal je travail sur 20 onglets et je voudrais je faire des bloc de 3 ou 4 onglet que le curseur qui puisse ce suivre, et non pour tous les onglets qui sont dans mon classeur.

 

[James007]

Re : Suivi du curseur

Bonsoir,

Autre petit test ...


A +

 

[JNP]

Re : Suivi du curseur

Re 🙂,
Tu n'as pas du utiliser mon code correctement car il répond parfaitement à ta première question 🙄...
Pour la seconde

[COLOR=blue]Option Explicit[/COLOR]
[COLOR=blue]Dim[/COLOR] MaCellule [COLOR=blue]As String[/COLOR]
[COLOR=blue]Private Sub[/COLOR] Workbook_Open()
MaCellule = ActiveCell.Address
[COLOR=blue]End Sub[/COLOR]
[COLOR=blue]Private Sub[/COLOR] Workbook_SheetActivate([COLOR=blue]ByVal[/COLOR] Sh [COLOR=blue]As Object[/COLOR])
[COLOR=blue]Select Case[/COLOR] Sh.Name
[COLOR=blue]Case[/COLOR] "A", "B", "C"
Range(MaCellule).Select
[COLOR=blue]End Select[/COLOR]
[COLOR=blue]End Sub[/COLOR]
[COLOR=blue]Private Sub[/COLOR] Workbook_SheetSelectionChange([COLOR=blue]ByVal[/COLOR] Sh [COLOR=blue]As Object[/COLOR], [COLOR=blue]ByVal[/COLOR] Target [COLOR=blue]As[/COLOR] Range)
[COLOR=blue]Select Case[/COLOR] Sh.Name
[COLOR=blue]Case[/COLOR] "A", "B", "C"
MaCellule = Target.Address
[COLOR=blue]End Select[/COLOR]
[COLOR=blue]End Sub[/COLOR]

te permet de ne le faire fonctionner que sur les onglets A, B et C 😀.
Voir PJ.
Je jettes un oeil au code de 007 que je salue et qui postais pendant que je rédigeais 😛...
Bonne soirée 😎

 

[asset]

Re : Suivi du curseur

James je viens de test ton fichier, le VBA m'annonce une erreur d'exécution 1004 😕

 

[asset]

Re : Suivi du curseur

Un grand Merci à JNP pour ta réponse, ca marche nickel.

 

[James007]

Re : Suivi du curseur

James je viens de test ton fichier, le VBA m'annonce une erreur d'exécution 1004 😕

Désolé, il manquait un test d'initialisation ...

Mais la solution de JNP est beaucoup plus élégante ...

A +