bonjour
je cherche a copier des cellules vers d'autres dans l'ordre (les unes en dessous des autres :
Sub validation()
'
' validation Macro
'
'
With Sheets("Feuil1").Range("a13")
.Copy Destination:=Sheets("reg 10 a 50").Range("a65536").End(xlUp)(2)
.Copy Destination:=Sheets("reg 1 a 5").Range("a65536").End(xlUp)(2)
.Copy Destination:=Sheets("reg 5 a 50").Range("a65536").End(xlUp)(2)
.Copy Destination:=Sheets("reg 6 a 80").Range("a65536").End(xlUp)(2)
.ClearContents
End With
le probleme est que cela me copie la formule qui est dans la cellule et non le texte
auriez vous une modification afin de prendre que l'interieur et non la formule
merci d'avance
je cherche a copier des cellules vers d'autres dans l'ordre (les unes en dessous des autres :
Sub validation()
'
' validation Macro
'
'
With Sheets("Feuil1").Range("a13")
.Copy Destination:=Sheets("reg 10 a 50").Range("a65536").End(xlUp)(2)
.Copy Destination:=Sheets("reg 1 a 5").Range("a65536").End(xlUp)(2)
.Copy Destination:=Sheets("reg 5 a 50").Range("a65536").End(xlUp)(2)
.Copy Destination:=Sheets("reg 6 a 80").Range("a65536").End(xlUp)(2)
.ClearContents
End With
le probleme est que cela me copie la formule qui est dans la cellule et non le texte
auriez vous une modification afin de prendre que l'interieur et non la formule
merci d'avance