mettre une date sur la ligne copié/collé

[pierro77]

Bonjour à tous,

Je butte actuellement sur un petit problème dans ma macro. Je vous explique :
Je souhaite copier/coller des valeurs de la feuille "BDD 2012" (colonnes B à D) dans la feuille suivi test (colonne A à C) suivant la condition "sélectionné" dans la colonne AE de la feuille BDD 2012. Jusqu'ici tout se passe bien.
Je voudrais maintenant qu'a chaque fois qu'une ligne se copie/colle, cela mette la date dans la colonne D. Je n'arrive pas à mettre l'instruction de la date dans la boucle (j'ai essayé avec "now" mais sans succès).

Voici mon code :

Sub envoiproduit() 'bouton "envoi produit"
Dim oc As Worksheet 'déclare la variable oc (Onglet Cible)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dest As Range 'déclare la variable dest (DESTination)


Set oc = Sheets("suivi test") 'définit l'onglet cible

For Each cel In Range("AE3:AE65536") 'boucle sur toutes les cellules cel de la plage AE3:AE65536
    
    If cel.Value = "sélectionné" Then 'condition : si la cellule est sélectionné
        
        Set dest = oc.Range("A65536").End(xlUp).Offset(1, 0) 'définit la destination
        
        With Range(Cells(cel.Row, 2), Cells(cel.Row, 5)) 'prend en compte la ligne correspondante
            .Copy 'copie la ligne
            dest.PasteSpecial (xlPasteValues) 'colle les valeurs
            
        End With
    
    End If 'fin de la condition
    
    If cel.Value = "sélectionné" Then
        cel.Value = "en test depuis le " & Now
    End If

Next cel 'prochaine cellule de la boucle

Application.CutCopyMode = False
        
        Sheets("suivi test").Columns("A:Z").EntireColumn.AutoFit
        Sheets("suivi test").Rows("2:65536").EntireRow.AutoFit
        Sheets("suivi test").Columns("A:Z").HorizontalAlignment = xlCenter
        Sheets("suivi test").Rows("2:65536").VerticalAlignment = xlCenter

Application.ScreenUpdating = True

End Sub

 

[ralph45]

Re : mettre une date sur la ligne copié/collé

Bonjour pierro77,

A tout hasard, au lieu de :

    If cel.Value = "sélectionné" Then
        cel.Value = "en test depuis le " & Now

Essaie avec :

    If cel.Value = "sélectionné" Then
        cel.Value = "en test depuis le " & Date

Ou...

    If cel.Value = "sélectionné" Then
        cel.Value = "en test depuis le " & CDate

A+