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

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais, à nouveau, votre aide afin de modifier cette macro pour que celle ci ne copie que les valeurs…

la macro :

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)

Application.CutCopyMode = False Merci pour votre aide. Bien amicalement, Christian

 

[jmfmarques]

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

 

[Christian0258]

Re, le forum, jmfmarques,

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

Bien à toi,
Christian

 

[sylvanu]

Bonjour le fil,
Essayez ça :

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

 

[Christian0258]

Re, le forum, sylvanu

Merci beaucoup, sylvanu, c'est impec.

Bien à toi,
Christian

 

[Staple1600]

Bonsoir le fil

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

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