RESOLU macro ne prend pas le resutat de la formule

[Mitch]

Bonjour, voila j'ai cette macro qui fonctionne très bien mais je vient de mettre une formule (Feuil1,colonne T) est la macro ne prend pas le resultat de la cellule 😕
quelqu'un a une idée
Merci

Sub Copier()
Dim i As Long, fin As Long, a As Integer
Feuil2.Range("A2:XFD1048576").Clear
fin = Feuil3.Range("B65000").End(xlUp).Row
For i = 2 To fin
For a = 1 To Feuil3.Cells(i, 2)
Feuil1.Range("A" & i).Copy Feuil2.Range("A65000").End(xlUp).Offset(1, 0)
Feuil1.Range("M" & i).Copy Feuil2.Range("C65000").End(xlUp).Offset(1, 0)
Feuil1.Range("T" & i).Copy Feuil2.Range("K65000").End(xlUp).Offset(1, 0)
Next a
Next i
End Sub

 

[Mitch]

Re : macro ne prend pas le resutat de la formule

Personne pour m'aider, la ligne Feuil1.Range("T" & i).Copy Feuil2.Range("K65000").End(xlUp).Offset(1, 0) me renvoi #REF! car le chiffre dans la colonne T est issu d'une formule, mais si je tape le chiffre manuellement ça marche

 

[mécano41]

Re : macro ne prend pas le resutat de la formule

Bonjour,

Peut-être avec :

Feuil2.Range("A65000").End(xlUp).Offset(1, 0).Value = Feuil1.Range("A" & i).Value

etc...

Cordialement

 

[Mitch]

Re : macro ne prend pas le resutat de la formule

Bonjour mécano41 excuse moi de ne pas avoir répondu plus tot j'ai du m'absenter , ton bout de code marche nickel j'ai juste modifier les colonnes
Je te remercie et te souhaite une bonne fin de journée

Feuil2.Range("K65000").End(xlUp).Offset(1, 0).Value = Feuil1.Range("T" & i).Value