OVH Cloud OVH Cloud

récupérer données cellules

5 réponses
Avatar
Pascale
Bonjour à toutes et à tous

je travaille sur excel97

Dans un classeur j'ai des feuilles de salaires d'une personne.

mon problème se situe au niveau des congés :

col D Col E
Droit du mois 2.5
Droit antérieurs 9
Droits utilisés 3
Droit à ce jour 8.5

Je souhaiterais, qu'à chaque ajout de feuille exemple : Janvier, une formule
ou macro me permette de récupérer le "Droit à ce jour" ici 8.5 de la feuille
décembre dans la cellule "Droits antérieurs" de la feuille janvier.

Je précise que j'ai une macro qui copie le modèle du bulletin de salaire :

Sub copier_modèle_salaire()

' copier_modèle_salaire Macro

Sheets("modèle").Select
Sheets("modèle").Copy After:=Worksheets(Worksheets.Count)
End Sub

Merci

Meilleurs voux à toutes et à tous !

5 réponses

Avatar
isabelle
bonjour Pascale,

peut être par une founction personnalisé,

Function DroitsAntérieurs(DroitÀceJour As String)
DroitÀceJour = Sheets(ActiveSheet.Previous.Name).Range(DroitÀceJour)
End Function

isabelle


Bonjour à toutes et à tous

je travaille sur excel97

Dans un classeur j'ai des feuilles de salaires d'une personne.

mon problème se situe au niveau des congés :

col D Col E
Droit du mois 2.5
Droit antérieurs 9
Droits utilisés 3
Droit à ce jour 8.5

Je souhaiterais, qu'à chaque ajout de feuille exemple : Janvier, une formule
ou macro me permette de récupérer le "Droit à ce jour" ici 8.5 de la feuille
décembre dans la cellule "Droits antérieurs" de la feuille janvier.

Je précise que j'ai une macro qui copie le modèle du bulletin de salaire :

Sub copier_modèle_salaire()

' copier_modèle_salaire Macro

Sheets("modèle").Select
Sheets("modèle").Copy After:=Worksheets(Worksheets.Count)
End Sub

Merci

Meilleurs voux à toutes et à tous !


Avatar
isabelle
oup's correction,
suposons que Droit à ce jour est toujours situé sur le cellule A4

Function DroitsAntérieurs()
DroitsAntérieurs = Sheets(ActiveSheet.Previous.Name).Range("A4")
End Function

isabelle


Bonjour à toutes et à tous

je travaille sur excel97

Dans un classeur j'ai des feuilles de salaires d'une personne.

mon problème se situe au niveau des congés :

col D Col E
Droit du mois 2.5
Droit antérieurs 9
Droits utilisés 3
Droit à ce jour 8.5

Je souhaiterais, qu'à chaque ajout de feuille exemple : Janvier, une formule
ou macro me permette de récupérer le "Droit à ce jour" ici 8.5 de la feuille
décembre dans la cellule "Droits antérieurs" de la feuille janvier.

Je précise que j'ai une macro qui copie le modèle du bulletin de salaire :

Sub copier_modèle_salaire()

' copier_modèle_salaire Macro

Sheets("modèle").Select
Sheets("modèle").Copy After:=Worksheets(Worksheets.Count)
End Sub

Merci

Meilleurs voux à toutes et à tous !


Avatar
Pascale
Merci beaucoup Isabelle cela fonctionne mais lorsque je lance la fonction un
message m'indique que cette fonction n'a pas d'argument, j'avoue ne pas
comprendre

Merci encore et tous mes voeux pour 2004 !
"Pascale" a écrit dans le message de news:


Bonjour à toutes et à tous

je travaille sur excel97

Dans un classeur j'ai des feuilles de salaires d'une personne.

mon problème se situe au niveau des congés :

col D Col E
Droit du mois 2.5
Droit antérieurs 9
Droits utilisés 3
Droit à ce jour 8.5

Je souhaiterais, qu'à chaque ajout de feuille exemple : Janvier, une
formule

ou macro me permette de récupérer le "Droit à ce jour" ici 8.5 de la
feuille

décembre dans la cellule "Droits antérieurs" de la feuille janvier.

Je précise que j'ai une macro qui copie le modèle du bulletin de salaire :

Sub copier_modèle_salaire()

' copier_modèle_salaire Macro

Sheets("modèle").Select
Sheets("modèle").Copy After:=Worksheets(Worksheets.Count)
End Sub

Merci

Meilleurs voux à toutes et à tous !





Avatar
isabelle
bonjour Pascale,

les arguments sont les références mit entre les paranthèses de la
fonction.
pour =somme(A1:A2) l'argument est A1:A2
pour celle que j'ai fait on a qu'à écrire =DroitsAntérieurs()

isabelle


Merci beaucoup Isabelle cela fonctionne mais lorsque je lance la fonction un
message m'indique que cette fonction n'a pas d'argument, j'avoue ne pas
comprendre

Merci encore et tous mes voeux pour 2004 !
"Pascale" a écrit dans le message de news:


Bonjour à toutes et à tous

je travaille sur excel97

Dans un classeur j'ai des feuilles de salaires d'une personne.

mon problème se situe au niveau des congés :

col D Col E
Droit du mois 2.5
Droit antérieurs 9
Droits utilisés 3
Droit à ce jour 8.5

Je souhaiterais, qu'à chaque ajout de feuille exemple : Janvier, une
formule

ou macro me permette de récupérer le "Droit à ce jour" ici 8.5 de la
feuille

décembre dans la cellule "Droits antérieurs" de la feuille janvier.

Je précise que j'ai une macro qui copie le modèle du bulletin de salaire :

Sub copier_modèle_salaire()

' copier_modèle_salaire Macro

Sheets("modèle").Select
Sheets("modèle").Copy After:=Worksheets(Worksheets.Count)
End Sub

Merci

Meilleurs voux à toutes et à tous !







Avatar
Pascale
Merci beaucoup Isabelle et Bonne journée

Pascale
-----Message d'origine-----
bonjour Pascale,

les arguments sont les références mit entre les
paranthèses de la

fonction.
pour =somme(A1:A2) l'argument est A1:A2
pour celle que j'ai fait on a qu'à écrire
=DroitsAntérieurs()


isabelle


Merci beaucoup Isabelle cela fonctionne mais lorsque je
lance la fonction un


message m'indique que cette fonction n'a pas
d'argument, j'avoue ne pas


comprendre

Merci encore et tous mes voeux pour 2004 !
"Pascale" a écrit dans le
message de news:




Bonjour à toutes et à tous

je travaille sur excel97

Dans un classeur j'ai des feuilles de salaires d'une
personne.




mon problème se situe au niveau des congés :

col D Col E
Droit du mois 2.5
Droit antérieurs 9
Droits utilisés 3
Droit à ce jour 8.5

Je souhaiterais, qu'à chaque ajout de feuille
exemple : Janvier, une



formule
ou macro me permette de récupérer le "Droit à ce
jour" ici 8.5 de la



feuille
décembre dans la cellule "Droits antérieurs" de la
feuille janvier.




Je précise que j'ai une macro qui copie le modèle du
bulletin de salaire :




Sub copier_modèle_salaire()

' copier_modèle_salaire Macro

Sheets("modèle").Select
Sheets("modèle").Copy After:=Worksheets
(Worksheets.Count)



End Sub

Merci

Meilleurs voux à toutes et à tous !



.