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 :
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 :
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