Copie d'une valeur sur une autre feuille via macro
Bonjour à tous,
J'ai un petit problème concernant la copie d'une valeur sur une autre feuille.
J'ai crée une macro permettant de copier la feuille existante vers un nouvelle onglet tout en conservant les valeurs de certaines cellules.
Par contre, cela s'arrête à une copie. Quand je continue de copier les feuilles, il continue de me copier la valeur de la première page copiée, et non celle de la page précédente (Ex: au lieu de copier la valeur de la "cellule 05" de la feuille 3 dans la cellule "O4" de la nouvelle feuille 4, il me copie les données de la feuille 1...)
Je ne connais pas la fonction qui correspond à cela.
A savoir que les feuilles sont renommées après création.
J'espère avoir été assez compréhensible ???
voici le code que j'ai : "='FEUILLE SOURCE'!R5 "
Je ne sais pas quel code mettre pour qu'il m'indique de recopier l'information de la page que je viens de dupliquer. C'est toujours "Feuille source"
Macro: un peu long car je ne l'ai pas fait à la main, j'ai enregistré ce que je faisais !
Sub Feuille()
'
' Feuille Macro
'
'
Sheets("FEUILLE SOURCE").Select
Sheets("FEUILLE SOURCE").Copy Before:=Sheets(3)
Range("A4:G600").Select
Selection.ClearContents
Range("O4").Select
ActiveCell.FormulaR1C1 = "='FEUILLE SOURCE'!R[1]C"
Range("R4").Select
ActiveCell.FormulaR1C1 = "='FEUILLE SOURCE'!R[1]C"
Range("N34").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
Range("U4").Select
ActiveCell.FormulaR1C1 = "='FEUILLE SOURCE'!R[1]C"
Range("X4").Select
ActiveCell.FormulaR1C1 = "='FEUILLE SOURCE'!R[1]C"
Range("X5").Select
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
Range("AA4").Select
ActiveCell.FormulaR1C1 = "='FEUILLE SOURCE'!R[1]C"
Range("AD4").Select
ActiveCell.FormulaR1C1 = "='FEUILLE SOURCE'!R[1]C"
Range("AG4").Select
ActiveCell.FormulaR1C1 = "='FEUILLE SOURCE'!R[1]C"
Range("AG5").Select
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
Range("AJ4").Select
ActiveCell.FormulaR1C1 = "='FEUILLE SOURCE'!R[1]C"
Range("AM4").Select
ActiveCell.FormulaR1C1 = "='FEUILLE SOURCE'!R[1]C"
Range("AM5").Select
End Sub
Merci.
bonjour
dans le cadre d'une bonne gestion de données, on ne "recopie" pas de valeurs
on fait par exemple des extractions, des tris, des filtres, des TCD, des queries etc.
le plus simple étant des "=" pour afficher des valeurs d'une feuille à une autre
à quoi te servent ces copies ?
à quoi sert tout ton classeur (et les autres classeurs qui lui sont liés ?
100% de chances qu'il n'y ait pas besoin de VBA