Positionnement !

Salut Maximus !

Dans Worsheet :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").Value = Left$(ActiveCell.Address(0, 0), (ActiveCell.Column < 27) + 2) & ActiveCell.Row
End Sub

Et tu auras en A1, l'adresse de la cellule active.

@ +

Moa

Bonjour
Cette info étant déjà indiquée dans la barre de formule quel est l'objectif en fait ?
Chris

Salut Chris !

Tout à fait, mais si dans ton appli tu as choisi de masquer la barre de formule...héhé !

@ +

Moa

En fait l'objectif est très différent !

AU fait merci pour la réponse !

L'objectif c'est qu'il sagit d'un planning, et je souhaite creer des boutons qui correspondent à des tâches bien precises. En cliquant sur un bouton l'utilisateur rentrera une info precise dans la cellule qu'il a selectionné auparavant.

Exemple : le lundi matin une personne doit etre a l'accueil. L'utilisateur va selectionner la cellule qui correspond au lundi matin et va cliquer sur le bouton accueil. La cellule contiendra exactement l'information acc par exemple.

L'intêret de faire cela est d'obliger l'utilisateur à utiliser toujours les mêmes sigles.

J'espère que je me suis fait bien comprendre.

Dans tous les cas merci pour vos réponses et en espérant que cela marche.

Maximus.

Merci merci merci Moa !!!!!!

Cela marche très bien c super !!!

Vraiement merci du fond du coeur !!!!!