Recuperer le clique sur toutes les feuilles

[faube]

Bonjour,

J'ai un fichier excel avec plusieurs feuilles. Je souhaite recuperer
l' evenement clique sur une cellule pour ouvrir un document word.Ca j'y suis arrivé en inserant du code vb dans le code source d'une feuille. Ce que je voudrais maintenant c'est appliquer mon code a toutes les cellules sans dupliquer n fois mon code dans chaque cellule.
Merci pour vos reponses.

 

[gbinforme]

Re : Recuperer le clique sur toutes les feuilles

bonjour,

il faut mettre ton code dans thisworkbook pour qu'il fonctionne sur toutes les feuilles.

 

[faube]

Re : Recuperer le clique sur toutes les feuilles

Merci pour ta réponse.

J'ai mis le code dans thisworkbook mais ça ne marche pas.

Voici mon code :

Sub message()
MsgBox ("lancemenfft de la macro")
End Sub

Sub RecupereValeurCellule()
'recupere l'adresse de la cellue
CelN = ActiveCell.Address
'MsgBox (CelN)
valeurDeLaCelluleCourante = Range(CelN)
'MsgBox (valeurDeLaCelluleCourante)
'recupere la ligne de la cellule
LigneCelluleSelectionne = ActiveCell.Row
'MsgBox (LigneCelluleSelectionne)
' recupere le numero de colonne de la cellule selectionne
ColonneCelluleSelectionne = ActiveCell.Column
'MsgBox (ColonneCelluleSelectionne)
If ColonneCelluleSelectionne = 3 Then
'recupere la valeur de la cellule en colonne B de la ligne courante
adr = "$B$" & LigneCelluleSelectionne
'MsgBox (adr)
valeurB = Range(adr)
'MsgBox (valeurB)

'recupere la valeur de la cellule en colonne A de la ligne courante
adr = "$A$" & LigneCelluleSelectionne
'MsgBox (adr)
valeurA = Range(adr)
'MsgBox (valeurA)

'construction du signet
signet = valeurA & "_" & valeurB & "_" & valeurDeLaCelluleCourante
'MsgBox (signet)
'ouverture document word
cheminDocWord = "D:\PUBLIC\Pleiades-HR\LienExcelWord\PE.doc#" & signet
ThisWorkbook.FollowHyperlink cheminDocWord
End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'message
RecupereValeurCellule
End Sub

 

[gbinforme]

Re : Recuperer le clique sur toutes les feuilles

bonsoir,


change ta fonction évenementielle : Private Sub Workbook_SelectionChange(ByVal Target As Range)

par celle-ci et cela fonctionnera :

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

En fait, comme cela fonctionne pour toutes les feuilles, l'événement te restitue aussi le nom de la feuille concernée pour utilisation éventuelle.

 

[faube]

Re : Recuperer le clique sur toutes les feuilles

Bonjour,

Merci pour ta réponse, en effet cela fonctionne.