Mauvaise retranscription avec VBA pendant l'archivage

Bonjour à toutes et à tous;

J'aurais besoin de votre aide concernant VBA je suis novice dans le domaine.

J'ai réussi à écrire un code pour la gestion des archives d'une feuille à une autre, mais les deux premières colonnes m'affichent des mauvaises informations.

Colonne A. "vendeuse" quand j'archive il retranscrit par un nombre

Colonne C. "date" formule utilisé =aujourd'hui()

En pièce joint un fichier testé
D'avance merci pour vos aides et conseils

Cordialement

bonjour,

ton instruction d'archivage copie les cellules telles quelles, si elles contiennent une formule, c'est une formule qui est copiée, pas le résultat de la formule et c'est le problème que tu rencontres pour tes colonnes vendeuses et date dans ton archivage.

tout d'abord merci pour ta réponse rapide.

Je me suis douté que c'était un truc du genre.

Mais pour l'instant je ne sais pas comment remplacer mon coupé collé, par un collage spécial.

Cordialement

re,

essaie ceci (non testé)

Sub Test()
Dim DlgO As Integer, DlgA As Integer
Dim WO As Worksheet, WA As Worksheet
Dim X As Integer

   Set WO = Worksheets("Scanne et ventes")
   Set WA = Worksheets("Archivage des ventes")
   DlgO = WO.Cells(Rows.Count, "R").End(xlUp).Row

   For X = DlgO To 10 Step -1

      If WO.Cells(X, "R").Value Like "*Oui*" Then
         DlgA = WA.Cells(Rows.Count, "R").End(xlUp).Row + 1

         WO.Range("A" & X & ":R" & X).Copy
         WA.Range("A" & DlgA & ":R" & DlgA).PasteSpecial xlPasteValuesAndNumberFormats
         WO.Range("A" & X & ":R" & X).Delete Shift:=xlUp
      End If
   Next X
End Sub

Bonjour H2so4

J'ai essayé est c'est parfait cela fonctionne bien

Merci.