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

[Caninge]

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]

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]

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

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]

Bonsoir
Essaye avec

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

@ plus

 

[Caninge]

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]

@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 :

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]

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