Autres Modif sur macro archivage, pour ne copier que les valeurs...

J

jmfmarques

XLDnaute Accro

• 10 Mars 2020

• #2

Bonjour
Utilise alors la méthode pastespecial (rubrique de ton aide interne VBA) avec l'argument xlPasteValues

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 10 Mars 2020

• #3

Re, le forum, jmfmarques,

Merci, jmfmarques, pour ton aide, oui mais je n'arrive pas à l'intégrer à la macro.

Bien à toi,
Christian

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Mars 2020

• #4

Bonjour le fil,
Essayez ça :

VB:

Sub essai2()
If IsEmpty(Feuil3.Range("H5")) Then MsgBox "Il faut entrer au moins un acte...": Exit Sub
Feuil3.Range("B5:L8").Copy
Feuil5.Range("B" & Rows.Count).End(xlUp)(2).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 10 Mars 2020

• #5

Re, le forum, sylvanu

Merci beaucoup, sylvanu, c'est impec.

Bien à toi,
Christian

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Mars 2020

• #6

Bonsoir le fil

J'aime pas copier
J'aime pas le Paste
J'aime pas les huitres
Alors je biaise 😉

VB:

Sub Valeur_Seule_Only()
Dim A_Copier As Range
Set A_Copier = Feuil3.Range("B5:L8"): x = A_Copier.Rows.Count: y = A_Copier.Columns.Count
Feuil5.Cells(Rows.Count, 2).End(3)(2).Resize(x, y) = A_Copier.Value
End Sub

 

Vote positif 0 Vote négatif