Copier des cellules à certains emplacements (VBA)

Résolu/Fermé

Prrdl - 12 févr. 2016 à 17:09
Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 - 15 févr. 2016 à 09:50

Bonjour,
Je débute en VBA et un peu d’aide ne serait pas de refus ^^

Mon classeur contient 118 feuilles, j’aimerais une macro permettant de copier les cellules de la première feuille (« Synthèse ») dans les mêmes emplacements pour les 117 autres, de telle sorte que le contenu des cellules B2, C2, D2 de « Synthèse » soit collé respectivement en D38, D39 et K34 de la feuille « 1 » ; que B3, C3, D3 soit collés en D38, D39, K34 de la feuille « 2 », ainsi de suite jusqu’à B118, C118, D118 collés en D38, D39, K34 de la feuille 117.

Merci de votre aide !

A voir également:

Copier des cellules à certains emplacements (VBA)
Formule excel pour additionner plusieurs cellules - Guide
Verrouiller des cellules excel - Guide
Comment copier une vidéo youtube - Guide
Super copier - Télécharger - Gestion de fichiers
Excel compter cellule couleur sans vba - Guide

1 réponse

Réponse 1 / 1

Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31
Modifié par Theo.R le 12/02/2016 à 17:21

le code suivant doit faire l'affaire :)

Sub test()

For i = 2 To 118

Sheets(i).Cells(38, 4).Value = Sheets("Synthèse").Cells(i, 2).Value
Sheets(i).Cells(39, 4).Value = Sheets("Synthèse").Cells(i, 2).Value
Sheets(i).Cells(34, 11).Value = Sheets("Synthèse").Cells(i, 2).Value

Next i

End Sub

Prrdl
Modifié par Prrdl le 12/02/2016 à 18:36

Merci infiniment ! Mon problème se résout avec (i,2) (i, (i,4) :

Sub test()

For i = 2 To 118

Sheets(i).Cells(38, 4).Value = Sheets("Synthèse").Cells(i, 2).Value
Sheets(i).Cells(39, 4).Value = Sheets("Synthèse").Cells(i, 3).Value
Sheets(i).Cells(34, 11).Value = Sheets("Synthèse").Cells(i, 4).Value

Next i

End Sub

Merci encore Theo.R :)

Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31 > Prrdl
15 févr. 2016 à 09:50

Hmm oui je ne sais pas pourquoi j'ai oublié d'incrémenter ^^'

Bonne continuation

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type