Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro et dates

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion tyrann
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

tyrann

Guest
Hello,

J'avais besoin de pouvoir récupérer la valeur d'une cellule de la page précédente, j'ai donc fait une petite recherche sur le forum et j'ai trouvé mon bonheur ICI

Le bonheur est presque a son summum car en fait la valeur qui est dans la cellule est une date...

Donc, feuille1 A2 = 1/01/2007
feuille2 A2 = MaFeuille("A2") = 2/01/2011

Vous y comprenez quelque chose vous?
 
Trier par date Trier par votes
Re : macro et dates

Hello,

Merci de la réponse rapide...

Alors dans un nouveau classeur, pas de soucis...
Par contre dans celui dans lequel je bosse, pas moyen...

J'ai attaché le classeur (enfin je pense...)

Merci
 

Pièces jointes

Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : macro et dates

re,

Je viens de regarder et effectivement, c'est bizarre cette histoire !!! Il passe bien la bonne date dans la fonction, par contre, lorsqu'il copie le résultat, il rajoute 4 ans et 1 jour. J'ai beau chercher, je ne vois pas pourquoi, mais je ne m'avoue pas vaincue 😉
Il doit y avoir un problème de date, mais alors lequel ??? Si une ame charitable passe par la, un coup de main serai le bienvenue...

@+

Edition : Et bien voila l'ame charitable, merci Pascal, je me doutais bien que c'a n'etait pas grand chose... 🙄
 
Vote positif 0 Vote négatif
Re : macro et dates

RE

Bon c'esrt de la bricole mais si tu fais ceci ça à l'air de marcher

Code: 
Function MaFeuille(MaRange As String)
Application.Volatile
If Application.Caller.Parent.Index > 1 Then MaFeuille = DateAdd("d", -1462, Sheets(Application.Caller.Parent.Index - 1).Range(MaRange))
End Function
 
Vote positif 0 Vote négatif
Re : macro et dates

Je suis en train de m'arracher les cheveux :-(

Ce que tu m'as donné fonctinone à merveille Pascal.

Maintenant j'essaye de faire en sorte que chaque nouvelle feuille commence par un lundi.
Donc si on reprend le classeur, feuille 1 (janvier) nous sommes le premier janvier (et tout va bien 😛) et nous sommes donc lundi.
Dans la feuille 2, j'ai mis pour la premiere cellule de date la fonction suivante:
Code: 
Function MaFeuille(MaRange As String)
Application.Volatile
If Application.Caller.Parent.Index > 1 Then
    MaFeuille = DateAdd("m", 1, DateAdd("d", -1462, Sheets(Application.Caller.Parent.Index - 1).Range(MaRange)))
End If
End Function
Et il me retourne le 1er février (normal)

Donc, comme je voudrais avoir le 29 janvier comme date (c'est impératif) je cherchais donc à savoir quel jour on est... Donc j'ai utilisé weekday et j'espérais qu'en déduisant le nombre de jour entre le lundi que je veux et le jeudi 1er fév j'aurais un nombre à soustraire au fameux jeudi 1 février... Vous suivez ou vous pataugez dans la semoule? 😛

Bref... Weekday m'envoi ch** et je n'y arrive pas :-(
Il me retourne n'importe quoi... Je lui dis que le lundi est le premier jour de la semaine et quand je lui donne le 1er janvier il me répond 6 😡

Donc si deux paragraphes plus hauts vous ne pataugiez pas, j'ai l'honneur de vous dire que c'est moi qui patauge 😀

Merci d'avance ;-)
 
Vote positif 0 Vote négatif
Re : macro et dates

Re

essaies en modifiant ainsi si j'ai bien compris

Code: 
Function MaFeuille(MaRange As String)
Application.Volatile
If Application.Caller.Parent.Index > 1 Then
    madate = DateAdd("m", 1, Sheets(Application.Caller.Parent.Index - 1).Range(MaRange))
    monjour = Weekday(madate, vbMonday)
    madate = DateAdd("d", 1 - monjour, madate)
    MaFeuille = DateAdd("d", -1462, madate)
End If
End Function
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

U
  • Question Question
Autres [RÉSOLU] Macro qui bug et je ne sais pas la corriger!!!
Réponses
7
Affichages
449
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Peut-on arriver à "schunter" la difficulté que j'ai crée moi-même?
Réponses
14
Affichages
459
un internaute
U
D
  • Résolu(e)
Microsoft 365 vba récupérer valeur cellule d'une autre feuille
Réponses
3
Affichages
358
Diane272727
D
  • Question Question
XL 2021 FINDXTREME: Je compte sur vos avis sur ce projet … Par avance MERCI
Réponses
10
Affichages
356
p'tit vieux
K
  • Résolu(e)
XL 2010 Roulement automatique
Réponses
9
Affichages
353
komarlehomard
K
  • Résolu(e)
XL 2019 Définition des fonctions volatiles et propriété Saved
Réponses
13
Affichages
403
job75
Y
  • Résolu(e)
XL 2013 Bloquer la saisie dans une plage selon un critère
Réponses
6
Affichages
685
TooFatBoy
M
  • Question Question
Microsoft 365 Chercher dernière valeur d'une ligne mais avec une particularité
Réponses
4
Affichages
338
Marie.
M
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
515
sousou
M
  • Question Question
Microsoft 365 [Résolu] Date 00/01/1900
Réponses
3
Affichages
402
Marboi
M
D
  • Résolu(e)
Microsoft 365 Récupérer la valeur d'une cellule d'un autre fichier
Réponses
7
Affichages
621
Diane272727
D
E
  • Question Question
Microsoft 365 Formule excel pour utiliser la dernier donnée d'une ligne dans une formule
Réponses
8
Affichages
568
emmanuel.conche
E
A
  • Résolu(e)
XL 2021 Combinaison formules grande.valeur(si index equiv
Réponses
13
Affichages
404
Cousinhub
M
  • Résolu(e)
XL 2021 Verrouillage de cellules après exécution d'une macro
2
Réponses
23
Affichages
1 K
MATLEA
M
T
  • Question Question
XL pour MAC Accès à des dossiers via la fonction LIEN_HYPERTEXTE
2
Réponses
18
Affichages
422
patricktoulon
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
705
jeff1494
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
896
picc
P
  • Question Question
XL 2019 Macro bloque en court de travail
Réponses
4
Affichages
340
fanch55
  • Résolu(e)
Microsoft 365 Controler un format specifique
Réponses
6
Affichages
279
eric57
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…