Copie sans les formules

[AL]

Bonjour le forum

J' ai récupéré une macro sur le Net de fery.john@teledisnet.be qui convient exactement à ce que je souhaite faire c' est à dire la recopie d' une plage de céllules sur une autre feuille. Mais dans cette plage il y a des céllules qui ont des formules et le résultat génére des erreurs avec les céllules à formule. N' étant pas un pro d' Excel, Est ce que l' on peut modifier cette macro afin qu' il fasse la recopie des céllues à formules en affichant le résultat.

Voici la macro
Private Sub CommandButton1_Click()
'fery.john@teledisnet.be
Dim cpt, coller As Integer
Application.ScreenUpdating = False
Range("A5:G25").Select
Selection.Copy
cpt = 1
coller = 0
Do
If Sheets("Archives").Cells(cpt, 1).Value = "" Then
Sheets("Archives").Cells(cpt, 1).PasteSpecial
coller = 1
Else
cpt = cpt + 21
End If
Loop Until coller = 1
Sheets("Journée l").Select
Range("A2").Select
Application.CutCopyMode = False
End Sub

 

[Creepy]

Salut,

Modifie cette ligne : Sheets("Archives").Cells(cpt, 1).PasteSpecial
comme ci après :

Sheets("Archives").Cells(cpt, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= False, Transpose:=False

++

Creepy

 

[AL]

Re bonjour le forum

Merci Creepy, j' ai fait la modif et j' obtient le résultat que je voulais.


Al