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 !

Soleil972

XLDnaute Nouveau
Bonjour,
Ma présentation :
Soleil972, c'est mon pseudo, pour dire que j'habite le département 972 (Martinique) où j'y travaille en tant qu'administrateur de bases de données et responsable tarification dans un grande entreprise française dont le siège est à Paris, je ne suis pas expert en vba ni en Excel d'ailleurs, mais j'aime bien chercher et trouver des solutions lorsqu'elles sont blocantes, histoire de prouver que celui qui cherche trouve, peu importe le temps que çà prendra. C'est à cette occasion, en surfant sur le net, que j'ai eu la joie de tomber sur votre équipe bien sympatique, en espérant pouvoir apprendre avec vous.
Ma question :
Nous venons de migrer vers office 365 et je tombe sur un os pour l'insertion d'un calendrier dans une application vba destinée à créer des devis.
Le code DTPicker ne passe plus et je cherche le code compatible qui remplacerait DTPicker pour l'affichage de mon calendrier. Quelqu'un peut-il m'aider svp ?
Avec mes remerciements anticipés.
 
j'ai juste omis de joindre le code actuel qui dysfonctionne, que voici :

Sub Rectangle2_Cliquer()
Dim DTPicker21 As Object
Application.ScreenUpdating = False
Range("F9").Activate
Range("F9:F16").Value = ""
Range("G12").Value = ""
'Range("F14:F15").Value = ""
Range("F18:F21").Value = ""
Range("F18:F21").Value = ""
Feuil8.DTPicker21.Value = Now
Feuil1.Range("M2") = Now
Range("F22") = 0
Range("P9😛16").Value = ""
'Range("P26").Value = ""
Range("N41") = ""
Range("N45") = "Formule1"
Range("N46") = "Sans"
Range("N47") = "Sans"
Range("F28") = ""
Range("C44:C94") = ""
Range("E44:E94") = "non"
Range("F44:F94") = 0
Range("G44:G94") = "non"
Range("H44:H94") = "non"
Range("F9").Activate
Application.ScreenUpdating = True
End Sub
 
- 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

  • Question Question
Microsoft 365 Calendrier vba
Réponses
14
Affichages
3 K
Retour