K
katial
Guest
Bonjour,
Tout d'abords je remercie toute personne qui prendra la peine de lire ce message.
Je tien à préciser que ej ne suis pas du tout douée en macro 🙁
voila je présente mon problème:
J'ai fait un début de macro:
'je sélectionne la case b2 puis je la copie
Range("b2").Select
Application.CutCopyMode = False
Selection.Copy
'je change de feuille ou la je la colle
'un calcul sur cette feuille se fait automatiquement
Windows("Etude mutation.xls").Activate
Range("$P$10").Select
ActiveSheet.Paste
'je copie sur cette même feuille l'ensemble des résultats
Range("$J$20:$J$60").Select
Application.CutCopyMode = False
Selection.Copy
'je retourne dans ma feuille d'origine ou je copie les résultats a partir de la cellule b3
Windows("transfo sous chargés.xls").Activate
Range("b3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
le problème est que je veux que ces calcul se fasse pour c2, d2,e2... jusqu'à la cellule ?2 soit vide
et que les résultats se colle respectivement en c3,d3,e3,... .
Je vous remercie par avance
Tout d'abords je remercie toute personne qui prendra la peine de lire ce message.
Je tien à préciser que ej ne suis pas du tout douée en macro 🙁
voila je présente mon problème:
J'ai fait un début de macro:
'je sélectionne la case b2 puis je la copie
Range("b2").Select
Application.CutCopyMode = False
Selection.Copy
'je change de feuille ou la je la colle
'un calcul sur cette feuille se fait automatiquement
Windows("Etude mutation.xls").Activate
Range("$P$10").Select
ActiveSheet.Paste
'je copie sur cette même feuille l'ensemble des résultats
Range("$J$20:$J$60").Select
Application.CutCopyMode = False
Selection.Copy
'je retourne dans ma feuille d'origine ou je copie les résultats a partir de la cellule b3
Windows("transfo sous chargés.xls").Activate
Range("b3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
le problème est que je veux que ces calcul se fasse pour c2, d2,e2... jusqu'à la cellule ?2 soit vide
et que les résultats se colle respectivement en c3,d3,e3,... .
Je vous remercie par avance