Compteur de clic-lien

Bonjour,

J'ai pour mon entreprise crée un INDEX excel de nos plans de tôlerie les plus simple réalisé eux-même sur excel.

Dans cet INDEX j'ai en colonne 4 les liens ouvrant les plans excel.

J'ai donc écrit un macro qui par sélection dans la colonne 4 me désélectionne en premier la cellule en me décalant de cellule vers la droit puis ajout 1 à la valeur de cet cellule qui me sers ainsi de compteur d'utilisation.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 4 Then
        ActiveCell.Offset(0, 1).Select
        For Each cell In Selection
        cell.Value = cell.Value + 1
        Next cell
    End If
End Sub

Mon souci est que le lien s'ouvre avant le décalage et l'ajout de valeur, c'est deux dernière s’exécutant dans le nouveau classeur ouvert vue qu'il s'agit de la nouvelle cellule active. Hors je pensais que cela se limiterais à mon INDEX mon macro étant placer directement dans la feuille de celui-ci.

Merci par avance pour vos retour,

Je tacherais de refaire un INDEX en guise d'exemple si j'ai le temps aujourd'hui.

bonjour,

une proposition

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 4 Then
        Target.Offset(0, 1) = Target.Offset(0, 1) + 1
        Target.Offset(0, 1).Select
    End If
End Sub

Rebonjour,

Tous d'abord merci pour cet réponse extrêmement rapide !

En effet Target est tellement plus logique... je m'en veux de ne pas y avoir déjà penser

cependant il reste toujours un probleme que je ne comprend pas :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 4 Then
        Target.Offset(0, 1) = Target.Offset(0, 1) + 1
        Target.Offset(0, 1).Select  ' pose problème bien que tous ce déroule correctement !
    End If
End Sub

J'ai donc réduit au minimum mon dossier que voici ci-joint en Rar.

Cela devrais facilité l'échange

Bonjour toutes et tous

Coucou H2s04 et merci @ toi

@ tester j'ai juste rajouter 'on error resume next' et 'on error goto 0'

note: enregistrement du clic s'effectue correctement

ci-joint

crdlt,

André