lien entre les cellules

[Ilino]

Bonsoir forum

peut on avoir un code VAB qui fait un lien entre les cellules du meme classeur.

Example ci joint : saisier un numero dans une cellue de la colonne CEL et quand je cilic sur ce dernier je rejoind le meme numero dans la colonne NUM et etc .... EST IL POSSIBLE???

merci par avance

 

[job75]

Re : lien entre les cellules

Bonsoir Ilino,

Plutôt qu'un cilic, double-cilic :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 5 Or Target = "" Then Exit Sub
Dim cible As Range
Cancel = True
Set cible = [A:A].Find(Target, LookIn:=xlValues, LookAt:=xlWhole)
If Not cible Is Nothing Then cible.Select
End Sub

Fichier joint.

A+

 

[Gorfael]

Re : lien entre les cellules

Salut Ilino et le forum

peut on avoir un code VAB qui fait un lien entre les cellules du meme classeur.

Non, mais un code VBA...
Plutôt que sur sélection, je préfère sur double-clic (ou clic-droit), pour éviter les problème

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range([E2], Cells(Rows.Count, "E").End(xlUp))) Is Nothing Or _
    Target = "" Then Exit Sub
    Cancel = True
Columns(1).Find(Target).Activate
End Sub

Lors d'un double-clic
si la cellule est vide ou n'appartient pas à la colonne E, on sort
Cancel=True, bien inutile puisque sélectionne une autre cellule, c'est pour empêcher l'action normale du double-clic
activer la cellule de même valeur en A
A+

 

[Ilino]

Re : lien entre les cellules

Bonsoir JOB, Bonsoir Gordael
Merci beaucoup (Molte grazie ) pour vos reponses rapide , les deux sont Intéressantes, mais si vous permettez j'ai essayé les deux reponse mais cette fois avec autre format de la cellule ça n'as pas fonctionné!!!!!!
ci joint le fichier avec les 3 cas ( mon souci est dans le 3eme cas)
THINKS

 

[jetted]

Re : lien entre les cellules

Ce n'est pas parfait mais....

 

[job75]

Re : lien entre les cellules

Re,

ci joint le fichier avec les 3 cas ( mon souci est dans le 3eme cas)

Je suis sur Excel 2010, le fichier du post #4 fonctionne aussi sur le 3ème cas chez moi...

A+

 

[Ilino]

Re : lien entre les cellules

Re,



Je suis sur Excel 2010, le fichier du post #4 fonctionne aussi sur le 3ème cas chez moi...

A+

Salut Job

Moi non plus et je l’ai essayé avec les deux code …il se bloque (bloccarsie)

si il fonctionne en 2010ce n'est pas évidant qu'il fonctionne en 2007???

 

[job75]

Re : lien entre les cellules

Re,

La méthode Find pose parfois problème en effet.

Dans ce cas on essaye avec la fonction Application.Match :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 5 Or Target = "" Then Exit Sub
Dim lig As Long
Cancel = True
lig = Application.Match(Target, [A:A], 0)
If IsNumeric(lig) Then Cells(lig, "A").Select
End Sub

Votre fichier joint.

Edit important : en fait votre problème avec Find ne vient pas de la version Excel.

Ma macro du post #2 ne fonctionne pas en effet sur votre fichier du post #4.

Mais elle fonctionnera si l'on remplace LookIn:=xlValues par LookIn:=xlFormulas. Essayez...

A+

 

[Ilino]

(RESOLU): lien entre les cellules

Re,

La méthode Find pose parfois problème en effet.

Dans ce cas on essaye avec la fonction Application.Match :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 5 Or Target = "" Then Exit Sub
Dim lig As Long
Cancel = True
lig = Application.Match(Target, [A:A], 0)
If IsNumeric(lig) Then Cells(lig, "A").Select
End Sub

Votre fichier joint.

Edit important : en fait votre problème avec Find ne vient pas de la version Excel.

Ma macro du post #2 ne fonctionne pas en effet sur votre fichier du post #4.

Mais elle fonctionnera si l'on remplace LookIn:=xlValues par LookIn:=xlFormulas. Essayez...

A+

Bonsoir job
super ça fonctionne maintenant ..merci
bon debut de semaine

 

[job75]

Re : lien entre les cellules

Bonjour Ilino, le forum,

Grossière erreur de ma part il faut déclarer lig As Variant !

Ci-joint le fichier (2) pour tester les 3 macros.

Vous noterez qu'avec une formule en A9 la macro JOB(1) (avec Find...xlFormulas) ne peut pas trouver la valeur 12.

La macro (2) avec Application.Match fonctionne par contre dans tous les cas.

A+