Copier des cellules à certains emplacements (VBA)
Résolu
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 !
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 !
1 réponse
-
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-
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 :) -
-
