Copier des cellules à certains emplacements (VBA)

Résolu
Prrdl -  
Theo.R Messages postés 575 Date d'inscription   Statut Membre Dernière intervention   -
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:

1 réponse

Réponse 1 / 1
Theo.R Messages postés 575 Date d'inscription   Statut Membre Dernière intervention   31
 
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
0
Prrdl
 
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 :)
0
Theo.R Messages postés 575 Date d'inscription   Statut Membre Dernière intervention   31 > Prrdl
 
Hmm oui je ne sais pas pourquoi j'ai oublié d'incrémenter ^^'

Bonne continuation
0

Discussions similaires

dessin avec symbole clavier
JSS -
Adraen -

79 réponses
VBA Excel : sélection d'une plage variable
Pyanitsa -
Mima -

20 réponses