aide sur dtpicker

[fr832]

Bonsoir une petite aide au sujet de dtpicker

J'ai un petit userform avec un dtpicker associé à ce 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

 

[fr832]

Re : aide sur dtpicker

merci vais continuer à chercher, amitiés

 

[fr832]

Re : aide sur dtpicker

rebonsoir voici mon 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

 

[fr832]

Re : aide sur dtpicker

Bravo requi un peu d'humour dans ce monde de brute 🙂

 

[Banzai64]

Re : aide sur dtpicker

bonsoir

Une piste ?
regarde ta routine

remplir_feuille_de_tir_FAMAS

Au fait

en fait si je désactive ce qui est en rouge

l'option Rouge n'est pas passée
Rien de rouge dans ton code

 

[fr832]

Re : aide sur dtpicker

oups effectivement voila en rouge ce que je désactive

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

 

[fr832]

Re : aide sur dtpicker

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

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

 

[Banzai64]

Re : aide sur dtpicker

re

réorganise ton 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

 

[fr832]

Re : aide sur dtpicker

super banzai et merci j'ai cherché et pas trouvé un coup c'était un optionbutton qui fonctionné un coup l'autre.

Toutes mes amitiés et bonne soirée😕

 

[Pierrot93]

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
@+