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

aide sur dtpicker

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion fr832
  • 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

fr832

XLDnaute Occasionnel
Bonsoir une petite aide au sujet de dtpicker

J'ai un petit userform avec un dtpicker associé à ce code
Code: 
Range("E15").Value = Me.DTPicker_Tir

Le problème c'est que dans la cellule E15 ça me met comme résultat
00/01/1900

Le code est il bon ?
Faut il le modifier?

par avance merci à tous
 
Trier par date Trier par votes
Re : aide sur dtpicker

rebonsoir voici mon code

Code: 
Private Sub Image1_Click()


'impose une sélection de l'option button auparavant
If (OptionButtonHK = False) And (OptionButtonFAMAS = False) Then
   msgbox "Vous avez oublié de sélectionner soit HK, soit FAMAS"
   Exit Sub
   End If
   

'si sélection optionbuttonHK
If OptionButtonHK = True Then
    Call remplir_feuille_de_tir_HK
Else
End If

  'range les dates dans les feuilles de tir
    Range("E15").Value = Me.DTPicker_Tir

'ferme l'userform
Unload Me


'si sélection optionbuttonFAMAS
If OptionButtonFAMAS = True Then
    Call remplir_feuille_de_tir_FAMAS
Else
End If

  'range les dates dans les feuilles de tir
    'Range("E15").Value = Me.DTPicker_Tir


'ferme l'userform
Unload Me

End Sub

en fait si je désactive ce qui est en rouge et que je selectionne optionbuttonHK alors la date s'affiche comme il faut,
si je sélectionne l'optionbuttonFAMAS alors la date s'affiche 00/01/1900 en E15.

Merci pour vos lumières
 
Vote positif 0 Vote négatif
Re : aide sur dtpicker

oups effectivement voila en rouge ce que je désactive

Code: 
Private Sub Image1_Click()

'impose une sélection de l'option button auparavant
If (OptionButtonHK = False) And (OptionButtonFAMAS = False) Then
   msgbox "Vous avez oublié de sélectionner soit HK, soit FAMAS"
   Exit Sub
   End If
   

'si sélection optionbuttonHK
If OptionButtonHK = True Then
    Call remplir_feuille_de_tir_HK
Else
End If

  'range les dates dans les feuilles de tir
    Range("E15").Value = Me.DTPicker_Tir

'ferme l'userform
Unload Me


'si sélection optionbuttonFAMAS
If OptionButtonFAMAS = True Then
    Call remplir_feuille_de_tir_FAMAS
Else
End If

 [COLOR="Red"] 'range les dates dans les feuilles de tir
    'Range("E15").Value = Me.DTPicker_Tir[/COLOR]
'ferme l'userform
Unload Me

End Sub

J'ai bien essayé de déplacer le dtpicker dans le code , essayer un format cdate mais rien y fait, je ne trouve pas

merci d'avance pour les lumières

amitiés
 
Vote positif 0 Vote négatif
Re : aide sur dtpicker

re j'ai oublié d'affiché l'appel que je lance

Code: 
Sub remplir_feuille_de_tir_FAMAS()

'Affiche la feuille FAMAS et purge son contenu
 Sheets("FAMAS").Visible = True
    Range("D18:J53").Select
    Selection.ClearContents
    
    'pour remplir la feuille Base pour ordres de circonstances, appel la macro extraction FAMAS
Call extraction_FAMAS

   
' pour remplir feuille de tir FAMAS Macro
Sheets("Base pour OC tir").Select
    Range("F4:H19").Select
    Selection.Copy
    Sheets("FAMAS").Select
    Range("D18").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D18").Select
    
   
    'pour décharger les zones de sélection
    Application.CutCopyMode = False
End Sub

merci
 
Vote positif 0 Vote négatif
Re : aide sur dtpicker

re

réorganise ton code
Code: 
Private Sub Image1_Click()

'impose une sélection de l'option button auparavant
If (OptionButtonHK = False) And (OptionButtonFAMAS = False) Then
   msgbox "Vous avez oublié de sélectionner soit HK, soit FAMAS"
   Exit Sub
   End If
   

'si sélection optionbuttonHK
If OptionButtonHK = True Then
    Call remplir_feuille_de_tir_HK
'Else
End If

  'range les dates dans les feuilles de tir
    'Range("E15").Value = Me.DTPicker_Tir

'si sélection optionbuttonFAMAS
If OptionButtonFAMAS = True Then
    Call remplir_feuille_de_tir_FAMAS
'Else
End If

  'range les dates dans les feuilles de tir
    Range("E15").Value = Me.DTPicker_Tir

'ferme l'userform
Unload Me



'ferme l'userform
'Unload Me

End Sub
 
Vote positif 0 Vote négatif
Re : aide sur dtpicker

Bonjour à tous,

petit suggestion au passage, pour tester un code, l'exécuter pas à pas..

*** Mettre un point d'arrêt en début de procédure, touche F9 une fois positionné sur la 1ère ligne du code.

ensuite :

***Touche F8 dans l'éditeur vba, pour l'exécuter ligne par ligne...

cela te permet de suivre les différentes phases et de voir les tenants et les aboutissants...

bonne journée
@+
 
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

X
  • Question Question
Microsoft 365 compte à rebours avec application.OnTime (Résolu)
Réponses
9
Affichages
351
xabino
X
M
  • Question Question
Microsoft 365 [Résolu] Date 00/01/1900
Réponses
3
Affichages
398
Marboi
M
P
  • Résolu(e)
XL 2021 Formule avec SI ET et si possible plusieurs ET
Réponses
4
Affichages
296
PR.
P
E
  • Résolu(e)
XL 2010 Affichage d'un USF sans module mais avec du code inscrit dans le VBE de la feuille1
2
Réponses
16
Affichages
1 K
ericcool
E
  • Question Question
XL 2019 Application.Run
Réponses
3
Affichages
253
Atiom
  • Question Question
XL 2019 Faire référence au nom de la feuille active ( ActiveSheet )
2
Réponses
15
Affichages
578
Dranreb
  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
226
pascal21
G
  • Question Question
Autres excel vba cellule aléatoires non vides
Réponses
3
Affichages
192
danielco
D
C
  • Question Question
Microsoft 365 Formules ne se calculent pas (résolu)
Réponses
2
Affichages
174
Cougar
C
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
454
juju91
J
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
559
mikeduff
M
C
  • Question Question
Microsoft 365 Combobox sans doublon et avec auto complétion et liée à une autre combobox
2
Réponses
24
Affichages
889
Dranreb
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
519
TooFatBoy
J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
508
job75
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
119
Eric 888
  • Question Question
XL 2019 Gestion de 4 sources de revenu (A, B, C et D). Et rajout du jour en cours et MEFC qui doit varier selon le mois en cours...
Réponses
8
Affichages
260
sylvanu
C
  • Résolu(e)
XL 2021 Reporter la valeur d'une cellule dans le pied de page.
2
Réponses
17
Affichages
290
sylvanu
M
  • Question Question
Microsoft 365 macro en fct de l'état d'une autre (boucle)
Réponses
3
Affichages
313
sylvanu
  • Résolu(e)
XL 2010 soustraction ou addition date et heure
Réponses
2
Affichages
382
jeanmi
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
479
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…