Bonjour =E0 tous,
J'ai des difficult=E9s =E0 r=E9aliser un truc simple. Ds mon=20
classeur de 365 feuilles je souhaiterais que sur chaque=20
feuille la cellule M2 reprenne la valeur de la cellule=20
M66 de la feuille pr=E9c=E9dente. Une macro est-elle=20
n=E9cessaire ou simplement une formule?
Merci de votre aide.
JCF
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
popi
Salut Félix, avec une macro par ex :
Sub ito() Application.ScreenUpdating = False On Error Resume Next For Each s In Worksheets s.Activate Range("m2") = Sheets(ActiveSheet.Previous.Name).Range("m66") Application.ScreenUpdating = True Next s End Sub
@+ popi
"Félix" a écrit dans le message de news: 08fd01c34ac7$103916b0$ Bonjour à tous, J'ai des difficultés à réaliser un truc simple. Ds mon classeur de 365 feuilles je souhaiterais que sur chaque feuille la cellule M2 reprenne la valeur de la cellule M66 de la feuille précédente. Une macro est-elle nécessaire ou simplement une formule? Merci de votre aide. JCF
Salut Félix, avec une macro par ex :
Sub ito()
Application.ScreenUpdating = False
On Error Resume Next
For Each s In Worksheets
s.Activate
Range("m2") = Sheets(ActiveSheet.Previous.Name).Range("m66")
Application.ScreenUpdating = True
Next s
End Sub
@+
popi
"Félix" <jcfelix@worldonline.fr> a écrit dans le message de news:
08fd01c34ac7$103916b0$a601280a@phx.gbl...
Bonjour à tous,
J'ai des difficultés à réaliser un truc simple. Ds mon
classeur de 365 feuilles je souhaiterais que sur chaque
feuille la cellule M2 reprenne la valeur de la cellule
M66 de la feuille précédente. Une macro est-elle
nécessaire ou simplement une formule?
Merci de votre aide.
JCF
Sub ito() Application.ScreenUpdating = False On Error Resume Next For Each s In Worksheets s.Activate Range("m2") = Sheets(ActiveSheet.Previous.Name).Range("m66") Application.ScreenUpdating = True Next s End Sub
@+ popi
"Félix" a écrit dans le message de news: 08fd01c34ac7$103916b0$ Bonjour à tous, J'ai des difficultés à réaliser un truc simple. Ds mon classeur de 365 feuilles je souhaiterais que sur chaque feuille la cellule M2 reprenne la valeur de la cellule M66 de la feuille précédente. Une macro est-elle nécessaire ou simplement une formule? Merci de votre aide. JCF
popi
Oups ! comme çà c'est plus propre..;-)
Next s Application.ScreenUpdating = True
"Félix" a écrit dans le message de news: 08fd01c34ac7$103916b0$ Bonjour à tous, J'ai des difficultés à réaliser un truc simple. Ds mon classeur de 365 feuilles je souhaiterais que sur chaque feuille la cellule M2 reprenne la valeur de la cellule M66 de la feuille précédente. Une macro est-elle nécessaire ou simplement une formule? Merci de votre aide. JCF
Oups !
comme çà c'est plus propre..;-)
Next s
Application.ScreenUpdating = True
"Félix" <jcfelix@worldonline.fr> a écrit dans le message de news:
08fd01c34ac7$103916b0$a601280a@phx.gbl...
Bonjour à tous,
J'ai des difficultés à réaliser un truc simple. Ds mon
classeur de 365 feuilles je souhaiterais que sur chaque
feuille la cellule M2 reprenne la valeur de la cellule
M66 de la feuille précédente. Une macro est-elle
nécessaire ou simplement une formule?
Merci de votre aide.
JCF
"Félix" a écrit dans le message de news: 08fd01c34ac7$103916b0$ Bonjour à tous, J'ai des difficultés à réaliser un truc simple. Ds mon classeur de 365 feuilles je souhaiterais que sur chaque feuille la cellule M2 reprenne la valeur de la cellule M66 de la feuille précédente. Une macro est-elle nécessaire ou simplement une formule? Merci de votre aide. JCF
popi
Et la même en conservant le lien:
Sub ito_avec_lien() Application.ScreenUpdating = False On Error Resume Next For Each s In Worksheets s.Activate Range("m2").FormulaR1C1 = "=" & ActiveSheet.Previous.Name & "!R[64]C" Next s Application.ScreenUpdating = True End Sub
"Félix" a écrit dans le message de news: 08fd01c34ac7$103916b0$ Bonjour à tous, J'ai des difficultés à réaliser un truc simple. Ds mon classeur de 365 feuilles je souhaiterais que sur chaque feuille la cellule M2 reprenne la valeur de la cellule M66 de la feuille précédente. Une macro est-elle nécessaire ou simplement une formule? Merci de votre aide. JCF
Et la même en conservant le lien:
Sub ito_avec_lien()
Application.ScreenUpdating = False
On Error Resume Next
For Each s In Worksheets
s.Activate
Range("m2").FormulaR1C1 = "=" & ActiveSheet.Previous.Name &
"!R[64]C"
Next s
Application.ScreenUpdating = True
End Sub
"Félix" <jcfelix@worldonline.fr> a écrit dans le message de news:
08fd01c34ac7$103916b0$a601280a@phx.gbl...
Bonjour à tous,
J'ai des difficultés à réaliser un truc simple. Ds mon
classeur de 365 feuilles je souhaiterais que sur chaque
feuille la cellule M2 reprenne la valeur de la cellule
M66 de la feuille précédente. Une macro est-elle
nécessaire ou simplement une formule?
Merci de votre aide.
JCF
Sub ito_avec_lien() Application.ScreenUpdating = False On Error Resume Next For Each s In Worksheets s.Activate Range("m2").FormulaR1C1 = "=" & ActiveSheet.Previous.Name & "!R[64]C" Next s Application.ScreenUpdating = True End Sub
"Félix" a écrit dans le message de news: 08fd01c34ac7$103916b0$ Bonjour à tous, J'ai des difficultés à réaliser un truc simple. Ds mon classeur de 365 feuilles je souhaiterais que sur chaque feuille la cellule M2 reprenne la valeur de la cellule M66 de la feuille précédente. Une macro est-elle nécessaire ou simplement une formule? Merci de votre aide. JCF
