Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

figer cellules selon date

4 réponses
Avatar
Marc T
Bonjour =E0 tous,
je cherche =E0 figer un r=E9sultat obtenu selon la date.
je m'explique, je fais des calculs pour des cong=E9s. j'ai une formule
avec NB.JOURSOUVRES qui prends aussi une plage nomm=E9e f=E9rie. Ces
f=E9ri=E9s changent bien sur tous les ans et j'aimerais que dans mon
r=E9cap' annuel le r=E9sultat trouv=E9 en 2009 ne change pas quand en 2010
les f=E9ri=E9s ont chang=E9s.
Suis-je clair ????????? pas sur !!!!
pas simple =E0 expliquer en fait !!!
si =E7a ne vous parle pas je veux bien envoyer un fichier
merci d'avance
@ bient=F4t
Cordialement
MarcT

4 réponses

Avatar
michdenis
Bonjour,

Tu fais un copier-coller spécial -> valeur seulement
de la cellule contenant l'information sur elle-même.

En vba, ça donne quelque chose comme :
En supposant que ton information est contenue dans la
cellule A1 de la feuil1
'-------------------------
With Worksheets("Feuil1")
With .Range("A1")
.Value = .value
end with
end with
'-------------------------


"Marc T" a écrit dans le message de groupe de discussion :

Bonjour à tous,
je cherche à figer un résultat obtenu selon la date.
je m'explique, je fais des calculs pour des congés. j'ai une formule
avec NB.JOURSOUVRES qui prends aussi une plage nommée férie. Ces
fériés changent bien sur tous les ans et j'aimerais que dans mon
récap' annuel le résultat trouvé en 2009 ne change pas quand en 2010
les fériés ont changés.
Suis-je clair ????????? pas sur !!!!
pas simple à expliquer en fait !!!
si ça ne vous parle pas je veux bien envoyer un fichier
merci d'avance
@ bientôt
Cordialement
MarcT
Avatar
Marc T
On 30 jan, 19:34, "michdenis" wrote:
Bonjour,

Tu fais un copier-coller sp cial -> valeur seulement
de la cellule contenant l'information sur elle-m me.

En vba, a donne quelque chose comme :
En supposant que ton information est contenue dans la
cellule A1 de la feuil1
'-------------------------
With Worksheets("Feuil1")
        With .Range("A1")
                .Value = .value
        end with
end with
'-------------------------

"Marc T" a crit dans le message de groupe de disc ussion :

Bonjour tous,
je cherche figer un r sultat obtenu selon la date.
je m'explique, je fais des calculs pour des cong s. j'ai une formule
avec NB.JOURSOUVRES qui prends aussi une plage nomm e f rie. Ces
f ri s changent bien sur tous les ans et j'aimerais que dans mon
r cap' annuel le r sultat trouv en 2009 ne change pas quand en 2010
les f ri s ont chang s.
Suis-je clair ????????? pas sur !!!!
pas simple expliquer en fait !!!
si a ne vous parle pas je veux bien envoyer un fichier
merci d'avance
@ bient t
Cordialement
MarcT



Bonjour MichDenis,
merci de ton aide.
je réussi ligne à ligne en mettant ton code dans une macro à figer la
ligne.
Par contre je n'arrive pas à l'automatiser pour que celle-ci se fige
automatiquement lors du changement d'année.
je joins mon fichier http://cjoint.com/?bFiFQXepOw
peut-être ainsi ma demande sera plus claire !!!
@ bientôt
cordialement
MarcT
Avatar
michdenis
A ) D'abord, si tu veux mettre en ligne, une copie d'un fichier
si ce dernier est créé par Excel 2007, tu dois zipper ton fichier
sinon il est impossible de l'ouvrir. Fais le test toi-même en
téléchargeant un exemplaire !

B ) Pour faire ce que tu demandes, il n'y a pas de trucs miracles.
Excel ne possède aucune procédure événementielle lors du
passage à la nouvelle année. On doit créer une petite macro
qui sied bien avec la gestion appliquée pour s'occuper
des fichiers de l'année précédente...

Une suggestion :

C ) Tu crées un "NOM" dont le but sera de contenir l'année de la prochaine année.
Tu peux le faire manuellement et en utilisant cette macro. L'exécution
de celle-ci est unique (une fois). Ce NOM ne sera pas visible par
l'interface de calcul.
'--------------------------------
Sub Créer_Le_Nom()
ThisWorkbook.Names.Add Name:="AnnéeEnCours", _
RefersTo:=Year(Date)+1, Visible:úlse
End Sub
'--------------------------------

Dans un module standard, tu copies cette procédure.
En auPourvules macros sont soientvées à l'ouverture du fichier,
lorsque le fichier sera ouvert le premier janvier ou plus tard
l'année suivante, la cellule transformera la formule en
un ntenu fixe.
'--------------------------------
Sub auto_Open()

If Date >= DateSerial([AnnéeEnCours], 1, 1) Then
With Feuil1 'propriété Name de l'objet (non le nom de l'onglet)
With .Range("A1") 'la cellule de la formule
.Value = .Value
End With
End With
'Mise à jour du NOM
ThisWorkbook.Names.Add Name:="AnnéeEnCours", _
RefersTo:=Year(Date)+1, Visible:úlse
End If
End Sub
'--------------------------------




"Marc T" a écrit dans le message de groupe de discussion :

On 30 jan, 19:34, "michdenis" wrote:
Bonjour,

Tu fais un copier-coller sp cial -> valeur seulement
de la cellule contenant l'information sur elle-m me.

En vba, a donne quelque chose comme :
En supposant que ton information est contenue dans la
cellule A1 de la feuil1
'-------------------------
With Worksheets("Feuil1")
With .Range("A1")
.Value = .value
end with
end with
'-------------------------

"Marc T" a crit dans le message de groupe de discussion :

Bonjour tous,
je cherche figer un r sultat obtenu selon la date.
je m'explique, je fais des calculs pour des cong s. j'ai une formule
avec NB.JOURSOUVRES qui prends aussi une plage nomm e f rie. Ces
f ri s changent bien sur tous les ans et j'aimerais que dans mon
r cap' annuel le r sultat trouv en 2009 ne change pas quand en 2010
les f ri s ont chang s.
Suis-je clair ????????? pas sur !!!!
pas simple expliquer en fait !!!
si a ne vous parle pas je veux bien envoyer un fichier
merci d'avance
@ bient t
Cordialement
MarcT



Bonjour MichDenis,
merci de ton aide.
je réussi ligne à ligne en mettant ton code dans une macro à figer la
ligne.
Par contre je n'arrive pas à l'automatiser pour que celle-ci se fige
automatiquement lors du changement d'année.
je joins mon fichier http://cjoint.com/?bFiFQXepOw
peut-être ainsi ma demande sera plus claire !!!
@ bientôt
cordialement
MarcT
Avatar
Marc T
Merci,
effectivement j'ai testé le téléchargement ... je ne savais pas je
zipperai dorénavant.
je vais tenter de mettre en application et reviens te dire.
en tout cas merci pour l'aide
@ bientôt
Cordialement
MarcT