Date d’un changement de cellule VBA

Bonjour à tous

Voici un petit problème que je n’arrive pas à résoudre

Dans la cellule A1 j’ai une liste de données à menu déroulant de 4 choix

Je voudrais en b1 c1 d1 e1 la date de l’affichage du chois de la 1ère 2 eme etc. Cette date devrait être figée et ne plus bouger par après.

De plus ce code devrait se reporter sur les ligne suivante lorsque j’effectue ma macro ajout d’une ligne

Merci pour votre aide

Bonjour,

ric

Alors :

En cellule G8, j'ai mon menu déroulant

Lorsque l'on choisi "SUP" la date se met en AA8 et reste figée

Lorsque l'on choisi "REC1" la date se met en AB8 et reste figée

Lorsque l'on choisi "CLOS" la date se mets en AC8 et reste figée.

De plus lorsque je lance la macro Ajout_ligne via le bouton, l'opération se repporte sur les ligne ajoutée.

Merci

Bonjour,

Je reviens

ric

Bonjour,

La macro "Ajout_ligne" > elle vide une partie du contenu du range("A8:Z15") avant de copier au bas ...

Ce faisant > tu perds les infos ...

Ne serait-il pas préférable de vider la plage de ses infos seulement après l'avoir copiée au bas ?

Sinon, c'est prêt > j'attends ta réponse pour te donner le fichier avec le bon fonctionnement ...

ric

Bonjour,

En fin de compte > j'ai opté pour vider les infos après avoir copiée la plage > macro "ajout_ligne" ...

Si tu préfères vider les infos avant de copier la plage > macro "ajout_ligne2" ...

En espérant que cela convienne ...

ric

Bonjour

un grand merci ça avance, un seul point lorsque la date apparait en AA8, AB8 ou AC8 pour "SUP/REC1/CLOS", mais lorsque je change la valeur de la cellule à menu déroulant, la date disparait et je voudrais bien la garder active.

C'est pour calculer le temps qu'il a fallu pour le passage en SUP (date passage en sup - date production) afin de faire des KPI sur le temps qu'il a fallu pour passer les étapes à chaques étapes.

ex

SUP : 10 jours (date de mise en "sup" - date de production)

REC1 : 15 jours (date de mise en REC1 - date de production)

CLOS : 20 jours (date de mise en CLOS - date de production)

Bonjour,

Essai ainsi ...

Dans la feuille "Tracking BR" > change la macro pour celle-ci ...

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target.Columns, Columns(7)) Is Nothing Then

        Select Case Target.Value
        Case "SUP"
            If Cells(Target.Row, "AA") = "" Then Cells(Target.Row, "AA") = Date
        Case "REC1"
            If Cells(Target.Row, "AB") = "" Then Cells(Target.Row, "AB") = Date
        Case "CLOS"
            If Cells(Target.Row, "AC") = "" Then Cells(Target.Row, "AC") = Date
        Case Else

        End Select
    End If
End Sub

ric

Bonjour

Magnifique un grand merci