Bonjour,
j'ai besoin d'automatiser des copies avec liaison entre différents onglets d'un même fichier.
La construction du fichier est la suivante :
1er onglet :"Récapitulatif"
2è onglet : "1"
3è onglet : "2"
4è onglet : "3" et ainsi de suite jusqu'à 100.
Je souhaite pouvoir automatiser la copie avec liaison de 29 cellules (pas forcément contigues) présentes dans les onglets 1, 2 etc...vers l'onglet "récapitulatif".
Ma demande est de pouvoir avec une chaine (?) pour incrémenter les 100 feuilles et en fonction de cette donnée, incrémenter la cellule de destination
Exemple avec les 4 premières cellules à copier de la feuille "1" vers l'onglet "récapitulatif"
sub copieliaison()
Sheets("1").Select
Range("C24").Select
Selection.Copy
Sheets("RECAPITULATIF").Select
Range("C2").Select
ActiveSheet.Paste Link:=True
Sheets("1").Select
Range("C2").Select
Selection.Copy
Sheets("RECAPITULATIF").Select
Range("D2").Select
ActiveSheet.Paste Link:=True
Sheets("1").Select
Range("F2").Select
Selection.Copy
Sheets("RECAPITULATIF").Select
Range("E2").Select
ActiveSheet.Paste Link:=True
Sheets("1").Select
Range("C5").Select
Selection.Copy
Sheets("RECAPITULATIF").Select
Range("F2").Select
ActiveSheet.Paste Link:=True
End sub
Voici les correspondances entre les différentes cellules.
Merci d'avance
j'ai besoin d'automatiser des copies avec liaison entre différents onglets d'un même fichier.
La construction du fichier est la suivante :
1er onglet :"Récapitulatif"
2è onglet : "1"
3è onglet : "2"
4è onglet : "3" et ainsi de suite jusqu'à 100.
Je souhaite pouvoir automatiser la copie avec liaison de 29 cellules (pas forcément contigues) présentes dans les onglets 1, 2 etc...vers l'onglet "récapitulatif".
Ma demande est de pouvoir avec une chaine (?) pour incrémenter les 100 feuilles et en fonction de cette donnée, incrémenter la cellule de destination
Exemple avec les 4 premières cellules à copier de la feuille "1" vers l'onglet "récapitulatif"
sub copieliaison()
Sheets("1").Select
Range("C24").Select
Selection.Copy
Sheets("RECAPITULATIF").Select
Range("C2").Select
ActiveSheet.Paste Link:=True
Sheets("1").Select
Range("C2").Select
Selection.Copy
Sheets("RECAPITULATIF").Select
Range("D2").Select
ActiveSheet.Paste Link:=True
Sheets("1").Select
Range("F2").Select
Selection.Copy
Sheets("RECAPITULATIF").Select
Range("E2").Select
ActiveSheet.Paste Link:=True
Sheets("1").Select
Range("C5").Select
Selection.Copy
Sheets("RECAPITULATIF").Select
Range("F2").Select
ActiveSheet.Paste Link:=True
End sub
Voici les correspondances entre les différentes cellules.
Merci d'avance