Menu

Coller valeur [Résolu]

Messages postés
88
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
10 mai 2019
- - Dernière réponse : juer31
Messages postés
88
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
10 mai 2019
- 10 mai 2019 à 19:08
Bonjour,

J'ai ce code qui met en historique des donné d'une feuille à l'autre mais je n'arrive pas a faire copier et coller les valeur seulement.

Actuellement ça copie aussi les formule et comme seulement une partie est mise en historique ça me donne des valeur faussé dans mon historique.

Quelqu'un peux m'aider?

Sub historique()
x = 0
With Sheets("BL")
ligne = .Columns(3).Find("*", , , , xlByColumns, xlPrevious).Row
For n = ligne To 11 Step -1
If Not IsEmpty(.Range("A" & n)) Then
x = x + 1
.Range("A" & n & ":L" & n).Select
Selection.Copy
Sheets("Histo Cde").Select
ligne2 = Sheets("Histo Cde").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 1
Sheets("Histo Cde").Range("A" & ligne2).Select
ActiveSheet.Paste
.Select
.Range("C" & n & ":E" & n).Select
Selection.ClearContents
End If
Next

End With

End Sub

Merci

Configuration: Windows / Chrome 74.0.3729.131
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
Messages postés
16889
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
10 mai 2019
5119
1
Merci
Bonjour,

remplace
ActiveSheet.Paste

par
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 39171 internautes nous ont dit merci ce mois-ci

juer31
Messages postés
88
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
10 mai 2019
2 -
Merci
Commenter la réponse de Mike-31