Navigation Cellule Identique

[Manu62]

Bonjour,

Savez vous comment je peux faire :

Feuil 1 je suis en case B15
et je souhaite qu'en cliquant sur l'onglet feuil 2 j'arrive directement en B15 egalement.

Merci a tous

Manu62

 

[flo2002]

Re : Navigation Cellule Identique

bonjour,
à mettre sur ta feuille en VBA:

Private Sub worksheet_activate()

Range("B15").Select


End Sub

mais ceci me parais bizard.. que veux tu faire je ne vois pas l'utilité

 

[Manu62]

Re : Navigation Cellule Identique

re

Je pense que ne marche que pour b15

mais si je suis en a15, c16, r5.......

cela marche ??

Merci

 

[flo2002]

Re : Navigation Cellule Identique

Non en effet,
pour lui dire dele faire sur la meme cellule je ne vois pas comment faire, j'y travail.

 

[flo2002]

Re : Navigation Cellule Identique

Bonjour,
bizard ce que j'ai fait mais ca a le merite de fonctionner...

sur la feuil2 (celle ou tu veux aller mettre en VBA)

Private Sub worksheet_activate()



Dim lign As Long
Dim col As Long
Sheets("Feuil1").Select
lign = Selection.Row
col = Selection.Column
Sheets("Feuil2").Select

Sheets("Feuil2").Cells(lign, col).Select


End Sub

a mon humble avis cette macro peut etre optimiser....

 

[Pierrot93]

Re : Navigation Cellule Identique

Bonjour tout le monde

Florent, je viens de tester ton code mais chez moi, je boucle sur les evenements puisque quand tu fais

Sheets("Feuil2").Select

tu re déclanches l'évenement sauf erreur de ma part !!!

Du coup j ai essayé autre chose pour voir

variable ci dessous de niveau module
Public MonAdd As String

et l'evenement sur feuil1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MonAdd = Selection.Address
End Sub

et evenement sur feuil2

Private Sub Worksheet_Activate()
Range(MonAdd).Select
End Sub

a priori ca tourne, il existe sans une meilleure solution mais bon !!!

bonne fin de journée
@+

 

[flo2002]

Re : Navigation Cellule Identique

Oui Pierrot j'ai vu que dans ma macro ca tournait un peu en rond mais à un moment ca sort.

en effet, ta macro est plus belle sans aucun doute

 

[Pierrot93]

Re : Navigation Cellule Identique

Re Florent

en effet ca boucle un certain nombre de fois et puis ca s'arrete, je comprends pas pourquoi !!! pour moi ca devrait boucler tout le temps, enfin bon, quelqu un pourra peut etre nous dire le pouquoi du comment.

@+

 

[flo2002]

Re : Navigation Cellule Identique

Je crois que c'est dans les options, mais pas sure du tout....

 

[Pierrot93]

Re : Navigation Cellule Identique

tu dois avoir raison, dans excel / options / calcul "Nb maximal d'itération", chez moi réglé a 100

@+

 

[JeanMarie]

Re : Navigation Cellule Identique

Bonsoir

Je n'ai pas de code qui purrait remplacer le code fonctionnel de Pierrot.

Je voulais intervenir, sur le sujet de l'itération, ce n'est pas parce-que la valeur du nombre maximal d'itération est fixé dans Excel à 100, quelle est active. Pour que cette valeur soit prise en compte il faut que la CheckBox "Itération" soit validée. (1er point)

Si vous aviez mis un compteur, vous auriez vu que la sub était bouclée 248 fois, ce qui ne correspond pas au nb d'itération.(2ème point)

Pour finir, proposer des solutions aussi bâcler, ne met pas en valeur le site d'XLD ni les autres intervenants. Même si je fais des erreurs ou poste des "conneries" (plus que vous ne croyez), je m'attache à y remedier.

@+Jean-Marie

 

[Mytå]

Re : Navigation Cellule Identique

Salut le Forum

Et pourquoi pas ceci :
A insèrer dans ThisWorkBook

Du lien https://www.excel-downloads.com/threads/afficher-la-meme-ligne-en-changeant-de-feuille.57256/

Option Explicit
 
Public aRange As String
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Range(aRange).Select
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   aRange = Selection.Address
End Sub

Mytå