Macro pointant cellule source

[TUCSON]

Bonsoir à tous,

Veritablement novice en vba, je suis confronté au probleme suivant:
j'ai dans des cellules coller des valeurs d'autres cellules en copiant avec liaison, exemple en A1 la formule suivante: =prod!$A$2.

Je voudrais avoir la possibilité avec une macro qu'en selectionnant cette cellule A1 j'active le feuille nommée "prod" et activer la cellule A2.

est possible?
merci pour votre aide

 

[youky(BJ)]

Re : Macro pointant cellule source

Bonsoir,
la formule en A1
Bruno

k = Split([A1].Formula, "!")(0)
Sheets(Right(k, Len(k) - 1)).Select
k = Split([A1].Formula, "!")(1)
Application.Range(k).Select

 

[TUCSON]

Re : Macro pointant cellule source

merci youki (b)
mais ca ne fonctionne pas, j'ai pour les besoins de ma procedure modifier t'a macro comme ceci:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
k = Split([ActiveCell].Formula, "!")(0)
Sheets(Right(k, Len(k) - 1)).Select
k = Split([ActiveCell].Formula, "!")(1)
Application.Range(k).Select

et j'ai comme message "l'indice n'appartient pas a la selection"

mes cellules sont dans une feuille A elles contiennent des formules copier coller avec liaison venant d' une feuille B. je voudrais qu'en selectionnent les cellules contenant ces formules selectionner la feuille et les cellules source

merci

 

[TUCSON]

Re : Macro pointant cellule source

Aprés modif de nouveau :
rivate Sub Worksheet_SelectionChange(ByVal Target As Range)



k = Split([ActiveCell].Formula, "!")(0)
k = (Right(k, Len(k) - 1))
x = Split([ActiveCell].Formula, "!")(1)

Application.Sheets(k).Select
Range(x).Select

la procedure fonctionne jusqu'a selectionner la feuille des donnees source mais echoue a la selection de la cellule : "Range(x).Select"

la variable x renvoie pourtant la valeur "$A$2"

 

[youky(BJ)]

Re : Macro pointant cellule source

Fait comme cela...
Bonne journée
Bruno

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo fin 'au cas ou pas de "!"
k = Split(Target.Formula, "!")(0)
Sheets(Right(k, Len(k) - 1)).Select
k = Split(Target.Formula, "!")(1)
Application.Range(k).Select
fin:
End Sub

 

[TUCSON]

Re : Macro pointant cellule source

Merci pour ton aide ça fonctionne!!!