Microsoft 365 Créer une macro qui fonctionne avec un Copié Collé

[Pernin]

Bonjour,
j'ai une macro qui me permet d'incrémenter une clé unique en utilisant la date et l'heure du moment où une cellule est remplie.

Voici le code :

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next
If Not Intersect(Target, [C1:C1000]) Is Nothing Then
Target(1, 0) = Format(Now(), "#,##0.00000")
Target(1, 19) = "Nouveau"
End If
End Sub

Il fonctionne parfaitement, sauf lorsque je réalise un copié collé de plusieurs lignes. Il ne s'active que sur la première ligne.

J'aimerai savoir si vous aviez une inspiration pour appliquer la macro sur toutes les lignes, et non pas juste la première en cas de copié collé de ligne s'il vous plaît.

Merci pour votre temps.

Passez une excellente journée.

CRDLT

Pernin Grégoire

 

[Wayki]

Bonjour,
Pouvez vous nous donner un fichier anonyme svp
Merci

 

[Pernin]

Bonjour,
je n'en ai pas mis car j'ai pensé que ce serait inutile, il n'y a pas vraiment d'informations supplémentaires.
Je vous en ajoute un tout de même.
Merci

 

[Hasco]

Bonjour,

Oui, sans doute une boucle sur chaque cellule contenue dans TARGET si c'est réellement ce que vous voulez, car lorsque vous copiez/collez normalement vos lignes devraient déjà avoir leur identifiant.

Target représente la plage de cellules modifiées.

N'oubliez pas non plus d’inhiber l'évènement Change à bon escient lorsque vous CHANGEZ quelque chose dans la feuille qui contient l'évènement. Sinon l'évènement s'appelle lui-même en boucle.

De plus le On Error resume next n'est pas d'une utilité flagrante ici mis à part celle de cacher des erreurs de programmation.

Si vous ne produisez pas plus d'un élément à la seconde vous pouvez pour des raisons de lisisbilité et de praticité de l'identifiant mettre un format tel que Format(Now(),"YYYYmmddhhnnss") qui vous donne un texte comme : "20220628163951" 4 chiffres pour l'année et 2 pour mois, 2 pour jours, 2 pour heure, 2 pour minute et 2 pour seconde. Vous pouvez rajouter des tirets égalements.

  Application.EnableEvents = False 'Inhiber la gestion des évènements

   For each c in Target.Columns(1) 'Pour chaque cellule de la première colonne de target.
        'Je fais ici ce qu'il y a à faire

   Next c

Application.EnableEvents = True

Cordialement

Oups! pas vu la venue du fichier...arf

 

[Hasco]

Re,

Voici une proposition :

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim c As Range, t As Double
    If Not Intersect(Target, [C1:C1000]) Is Nothing Then
    Application.EnableEvents = False
        t = Now
        For Each c In Target
            t = t + 1 / 10000 ' Peut être placé après la ligne ci-dessous
            c(1, 0) = Format(t, "#,##0.00000")
         c(1, 2) = "Nouveau"
        Next c
    Application.EnableEvents = True
    End If
End Sub

Cordialement

 

[Pernin]

Re,

Voici une proposition :

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim c As Range, t As Double
    If Not Intersect(Target, [C1:C1000]) Is Nothing Then
    Application.EnableEvents = False
        t = Now
        For Each c In Target
            t = t + 1 / 10000 ' Peut être placé après la ligne ci-dessous
            c(1, 0) = Format(t, "#,##0.00000")

[/QUOTE]
Salut, je te remercie sincèrement pour cette solution, tu m'enlèves une belle épine du pied ! :) 
je te souhaite de passer une très agréable journée !

 

[Hasco]

Bonjour,

????

Cordialement

 

[Pernin]

Bonjour,

????

Cordialement

Désolé, j'ai mal rédigé ma réponse, je l'ai insérée dans la vôtre..! Je vous remerciais de votre aide, et vous souhaitais une excellente journée

Bien Cordialement,

Grégoire