XL 2019 Cliquer sur une cellule pour se rendre à une autre.

Caninge · 9 Avril 2021

Bonsoir à tous,

j'ai pourtant cherché comme je fais à chaque fois, mais je n'ai pas trouver mon bonheur.
Comme il faut une macro pour faire cela, c'est encore plus compliqué pour moi !
En cliquant sur une des cellules C2:C19 de la feuille "Tableau", je voudrais me rendre à la cellule concernée dans la feuille "Les Individus)
ou plutôt positionner mon curseur sur cette cellule. Je ne sais pas faire, pouvez-vous m'aider ?
Merci.
CANINGE

Caninge · 9 Avril 2021

Je viens de trouver un code qui marche. Je n'ai pas assez cherché.
Par contre comment faire pour se rendre sur les noms seulement dans la ligne 6

soan · 9 Avril 2021

Bonsoir Caninge,

ton fichier en retour.

sur la feuille "Tableau", clique sur :

* B5 : ça fait rien du tout, car c'est pas en ligne 6

* B7 : ça fait rien du tout, car c'est pas en ligne 6

* B6 : ça va sur le Henri fond jaune de la 2ème feuille, en F6

* E6 : ça va sur le Michel fond jaune de la 2ème feuille, en C6

* H6 : ça va sur le Pierre fond jaune de la 2ème feuille, en H6

VB:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim cel As Range, vx$
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Row <> 6 Then Exit Sub
    vx = .Value: If vx = "" Then Exit Sub
  End With
  Set cel = Worksheets("Les individus").Rows(6).Find(vx, , -4163, 1, 1)
  If Not cel Is Nothing Then Application.Goto cel, False
End Sub

soan

CISCO · 9 Avril 2021

Bonsoir
Essaye avec

Set Cel = .Rows(6).Find(Valeur, MatchCase:=False)

@ plus

Caninge · 9 Avril 2021

Bonsoir soan, CISCO

Je veux cliquer uniquement dans la plage de cellule D3 : D512.
Et chercher et se positionner dans la ligne 6 uniquement.
J'ai modifié le code : If .Row <> 6 Then Exit Sub en If .Column <> 4 Then Exit Sub
C'est un peu un miracle pour moi. Ca marche.
Je voudrais savoir si ma modification est bonne.
Je vous remercie.

soan · 9 Avril 2021

@Caninge

ton fichier en retour.

j'ai seulement remplacé If .Column <> 4 Then Exit Sub

par If Intersect(Target, [D3:D512]) Is Nothing Then Exit Sub

d'où ce code VBA complet :

VB:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim cel As Range, vx$
  With Target
    If .CountLarge > 1 Then Exit Sub
    If Intersect(Target, [D3:D512]) Is Nothing Then Exit Sub
    vx = .Value: If vx = "" Then Exit Sub
  End With
  Set cel = Worksheets("Les individus").Rows(6).Find(vx, , -4163, 1, 1)
  If Not cel Is Nothing Then Application.Goto cel, False
End Sub

soan

Caninge · 9 Avril 2021

Bonsoir soan,
merci pour ton intervention. Bien Sympa.
Je peux continuer mon arbre généalogique. C'est compliqué à faire, je vais perdre la tête.
Bon weekend.
CANINGE

XL 2019 Cliquer sur une cellule pour se rendre à une autre.

Caninge

XLDnaute Accro

Pièces jointes

Caninge

XLDnaute Accro

Pièces jointes

soan

XLDnaute Barbatruc

Pièces jointes

CISCO

XLDnaute Barbatruc

Caninge

XLDnaute Accro

Pièces jointes

soan

XLDnaute Barbatruc

Pièces jointes

Caninge

XLDnaute Accro

Discussions similaires