Modification d’une macro

[Chasse]

Bonsoir (bonjour) le forum

Cette macro, qui me été fournie par Pierrjean, et qui fonctionne bien, me renvoie "#REF" depuis que j’ y ai mit dans certaines cellules des formules

Sub recap()
If Feuil7.Range("A65536").End(xlUp).Row > 3 Then Feuil7.Range("A3:AE" & Feuil7.Range("A65536").End(xlUp).Row).ClearContents
If Feuil7.Range("A65536").End(xlUp).Row > 3 Then Feuil7.Range("A3:AE" & Feuil7.Range("A65536").End(xlUp).Row).ClearFormats
Application.ScreenUpdating = False
For n = 1 To Sheets.Count
If Right(Sheets(n).Name, 3) = "ARR" Then
   x = Feuil7.Range("A65536").End(xlUp).Row + 1
   [COLOR="Orange"]Sheets(n).Range("C5:AG35").Copy Destination:=Feuil7.Range("A65536").End(xlUp).Offset(2, 0)[/COLOR]
 End If
Next n
For n = Feuil7.Range("A65536").End(xlUp).Row To 3 Step -1
  For m = 2 To 30
    ligne = ligne & Cells(n, m)
  Next m
   If ligne = "" Then Rows(n).Delete
  ligne = ""
Next n
Application.ScreenUpdating = True
End Sub

La macro récupère les données d’une plage de cellules des feuilles "Arr"

Seulement je voudrais qu’elle ne colle que les valeurs sans les formules

Merci de votre aide

 

[soenda]

Re : Modification d’une macro

Bonsoir le fil, Chasse

tu peux remplacer la ligne en orange par:

    Sheets(n).Range("C5:AG35").Copy
    Feuil7.Range("A65536").End(xlUp).Offset(2, 0).PasteSpecial , xlValue

A plus

 

[Chasse]

Re : Modification d’une macro

Bonsoir Seonda
Merci de ton aide
mais se n’est toujours pas ça
Dans la colonne A les cel sont au format date

La formule est =DATE(NoAn;$A$1;B5) =DATE(NoAn;$A$1;B6) etc.

Toute les cellules renvoie la même date et la formule est changée =0+(DATE(NoAn;$A$1;IV4))

 

[soenda]

Re : Modification d’une macro

Re,

Pour être sûr d'avoir le format date en colonne G de la feuille 7,
tu peux écrire (avant la copie)

Feuil7.[G:G].NumberFormat = "mm/dd/yyyy"

A plus