SVP je veux donné des reference lord de la sélection d'une cellu

Bonjour,

Sur quoi bloques tu ?

Pour le déclenchement dans la feuille ... regarde la méthode Worksheet_SelectionChange

Le paramètre "target" contient les coordonnées de la cellule selectionnée..
Tu peux donc regarder si tu es dans la colonne A

Par exemple :

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
    MsgBox "Click on " & Target.Address
    End If
    End Sub

Pour avoir l'année en cours : Year(Date)
Le mois : MONTH(date)
Le jour : DAY(date)

Pour concaténer du texte avec des variables .. il faut utiliser le symbole &
par exemple

unevariable  = "qqchose"
uneautrevariable = 2017
toto = unevariable & "-du_texte" & uneautrevariable

Pour mettre une valeur dans une cellule :

'cellule étant un objet range
cellule.value = unevaleur
'Ou
Range("A1").value = unevaleur
'Ou encore
Cells(1,1).value = unevaleur

A utiliser avec le Target de la méthode Worksheet_SelectionChange

Target.value = unevariable

Cordialement, 
Jordane                                                                 

Bonjour Haitam_mhamdi,

Tu as très bien fait d'ouvrir un 2ème sujet, comme Vaucluse
te l'avait demandé dans son message du 15 août à 19:49 ;
c'est exceptionnel car d'habitude, c'est à éviter !  ;)

Je te dois des excuses, car ton exercice est plus simple que
je le pensais et donc tu avais bien donné toutes les infos
nécessaires (je croyais qu'il en manquait).

Fichier Excel 2007 : https://mon-partage.fr/f/TLUm3r67/

Tu as juste à te placer sur une cellule de la colonne A.

Alt F11 pour voir le code de Feuil1
Alt F11 pour revenir sur Excel

Merci de me donner ton avis.

Cordialement
 

Bonjour à tous
Merci bcp pour votre aide

Bonjour le forum,

J'ajoute mon code VBA (à placer dans le code de la feuille) :

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Application.Intersect(Target, Columns("A")) Is Nothing _
  Then ActiveCell = "MCSH-" & Format(Day(Date), "00") _
     & Format(Month(Date), "00") & "-L-" & Year(Date)
End Sub

 Cordialement