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

XL 2016 Date à intégrer dans un code vba

Créer une discussion

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

La Vouivre

XLDnaute Occasionnel
Bonjour amies, amis d’Excel

Je viens vous demander de l’aide pour intégrer la valeur d’une cellule format date dans une ligne de code

Je m’explique, je voudrais avoir deux dates de validité pour un fichier, une date de départ et une date de fin de validité.

Sur le fichier ci-joint une macro donne un message par MsgBox soit si le fichier n’est pas encore valide avant la date définie ou un message de non validité si la deuxième date et dépassée

Je voudrais que le fichier soit valide du premier janvier de l’année en « D4 » de la « feuil1 » au 31 décembre de l’année en « B4 » de la « feuil1

La ou je bloque c’est cette ligne de code qui faut apparemment modifier et que je n’arrive pas

Datedebut = DateSerial(2018, 2, 31)

Comment mettre la valeur de la cellule « D4 » de la « feuil1 » a la place de (2018, 2, 31)

Merci à tous de votre aide

Bonne soirée à tous
 

Pièces jointes

Trier par date Trier par votes
Bonjour

En guise d'inspiration, vois si cela peut t'aider 😉
VB: 
Sub test()
MsgBox Format(CDate("1/1/" & Year([B4])), """Fichier valide du: ""dddd d mmmm yyyy") & Format(CDate("31/12/" & Year([D4])), """ au ""dddd d mmmm yyyy")
End Sub
 
Vote positif 0 Vote négatif
Bonsoir Ce lien n'existe plus
Bonne soirée
Merci beaucoup de vous intéresser à mon projet
Je viens d’essayer votre code, le message s’affiche avec les dates en 1905 , ça ne me rajeuni pas tout ça

En plus j’aimerais conserver les macros car je pourrais par la suite les modifiés pour par exemple ne plus donner accès aux autre feuil que la première
 
Vote positif 0 Vote négatif
« B4 » contient la formule aujourd’hui

C’est la date en « D4 » qu’il faut prendre en compte, je change de date à chaque année afin que le fichier soit valide seulement une année, ensuite je ne veux plus pouvoir modifier ce fichier il en faudra une copie avec une nouvelle année
 
Vote positif 0 Vote négatif
Re

J'ai suivi tes directives 😉
Je voudrais que le fichier soit valide du premier janvier de l’année en « D4 » de la « feuil1 » au 31 décembre de l’année en « B4 » de la « feuil1
Cliquez pour agrandir...
Et donc j'ai mis des dates dans ces deux cellules pour tester
Il suffit d'inverser dans le code B4 et D4 pour coller à ton desiderata 😉

RAPPEL: comme je le précisais
En guise d'inspiration, vois si cela peut t'aider
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Bonsoir les amis
Je reviens vers vous pour que vous m’aidiez à trouver le bon code
Je reprends le même fil comme c’est la continuité du fichier je ne crée pas de nouvelle discussion j’espère être en conformité avec le forum
Voila le problème
Sur la feuille 1 dans la cellule « D4 » selon l’année j’ai un message qui me dit
Pour 2017 « Ce fichier n'est plus valide » et masque toutes les feuilles
Pour 2018 « Ce fichier est valide » et affiche toutes les feuilles
Pour 2019 « Ce fichier n'est pas encore valide » et masque toutes les feuilles

Pour 2017 et 2019 j’ai le bon code, mais je n’arrive pas à l’adapter pour 2018 soit l’année en cour, le but du fichier et qu’il doit être valide l’année en cour, plus une fois la date passée, et pas encore valide avant
J’espère avoir été suffisamment clair dans ma description, si vous avez besoin de plus de détail demander moi
Essayer le fichier en changeant la date en « D4 » avec la liste
2017 et 2019 fonctionne bien mais pas 2018 , j’ai volontairement mis en commentaire la partie du code pour ne pas perturber le déroulement de la macro
Merci pour votre aide
Bonne soirée à tous
 

Pièces jointes

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

Discussions similaires

R
  • Question Question
Microsoft 365 Formule Outlook,
Réponses
8
Affichages
191
fanch55
I
  • Résolu(e)
XL 2021 msgbox : timer vbyes
2 3
Réponses
40
Affichages
830
isandre
I
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
312
thunder23
P
  • Question Question
XL 2021 dans une vba, la date automatique mais de la veille.
Réponses
6
Affichages
155
Patrick BRZ
P
K
  • Question Question
XL 2016 VBA: Selection Date renvoie copier/coller
Réponses
8
Affichages
862
Krome36
K
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
135
sylvanu
A
  • Résolu(e)
Microsoft 365 Formule : identifier si une date est dépassée par rapport à une autre date (sur TCD)
Réponses
2
Affichages
289
Alstroemeria
A
M
  • Question Question
Microsoft 365 Décaler une date au premier jour ouvré suivant si le résultat tombe un samedi, dimanche ou un jours férié
Réponses
14
Affichages
486
mapomme
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
243
PHIL37
P
T
  • Résolu(e)
Microsoft 365 Déverrouiller un projet VBA par code
2
Réponses
20
Affichages
511
ThierryP
T
  • Résolu(e)
XL 2016 Erreur dans code VBA
4 5 6
Réponses
76
Affichages
3 K
patricktoulon
O
  • Question Question
Autres recopie de cellules selon la date
Réponses
3
Affichages
222
olivier Clech
O
E
  • Résolu(e)
XL 2019 chercher une date dans une colonne vba
Réponses
12
Affichages
677
sylvanu
G
  • Question Question
Microsoft 365 vba intégrer réf onglet dans code sauvegarde
Réponses
2
Affichages
540
patricktoulon
  • Question Question
XL 2021 Enregistrer un fichier selon date valeur cellule
Réponses
4
Affichages
135
fenec
K
  • Question Question
Microsoft 365 création mot passe classique avec un code
Réponses
1
Affichages
333
Gégé-45550
S
  • Question Question
Microsoft 365 Publipostage selon une date à saisir
Réponses
8
Affichages
194
Phil69970
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
471
desto
D
M
  • Résolu(e)
XL 2021 Récupérer la valeur d’une cellule dans un classeur fermé
Réponses
5
Affichages
152
patricktoulon
F
  • Question Question
XL pour MAC Exception Code: KERN_INVALID_ADDRESS
Réponses
3
Affichages
158
mapoire
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…