calcul dans une cellule ou non suivant dtpicker

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

nrdz83

XLDnaute Impliqué
bonsoir à tous
voila j'aiun dtpicker_hdebut et dtpicker_hfin qui me range les données dans les colonnes D et E dans ma base de données et le calcul de la duréee est fait lors de la saise via ce code

Code: 
If Me.DTPicker2 <> "" Then
      .Cells(DerLig, 4).Value = DTPicker_HDebut
      .Cells(DerLig, 5).Value = DTPicker_HFin
      .Cells(DerLig, 6).FormulaR1C1 = "=RC[-1]-RC[-2]"
    Else
     .Cells(DerLig, 6).Value = DTPicker2
     
    End If

et via une case à cocher je choisi donc soit le calcul de la durée soit la saisie directement de la durée.

Et c'est là que ça bugg. Par le code si dessus la durée (dtpicker2)ne se range pas dans ma base de donnée.

Comment dois je modifier ce code afin que je puisse soit saisir la durée directement soit un calcul via les dtpicker début et fin.

Par avance merci pour vos lumières amitiés
 
Trier par date Trier par votes
Re : calcul dans une cellule ou non suivant dtpicker

bonsoir voila j'ai mis le code de ma validation

Code: 
Private Sub BTN_Saisie_Click()
' Mise en place des valeurs saisies
  Dim DerLig As Long
  ' Avec la feuille Dossiers_Mandats
  With Sheets("Base de données")
    ' Récupérer la dernière ligne de cette feuille grace au "." point
    DerLig = .Range("A" & Rows.Count).End(xlUp).Row + 1
    .Cells(DerLig, 1).Value = Combo_CDC
    .Cells(DerLig, 2).Value = DTPicker1
    '.Cells(DerLig, 4).Value = DTPicker_HDebut
    '.Cells(DerLig, 5).Value = DTPicker_HFin
    .Cells(DerLig, 7).Value = Combo_TypeActivite
    .Cells(DerLig, 8).Value = Combo_Activité
    .Cells(DerLig, 9).Value = Combo_SousActivité
    .Cells(DerLig, 10).Value = Combo_Action
    .Cells(DerLig, 11).Value = UCase(Txt_Nom)
    '.Cells(DerLig, 12).Value = Combo_Fonctions
    '.Cells(DerLig, 12).Value = Txt_Fonction
    .Cells(DerLig, 13).Value = Combo_Entité
    .Cells(DerLig, 14).Value = Combo_Service
    .Cells(DerLig, 15).Value = Combo_Pool
    .Cells(DerLig, 16).Value = Txt_OBS
    .Cells(DerLig, 17).Value = Combo_Dossier
    .Cells(DerLig, 18).Value = Txt_2
    .Cells(DerLig, 19).Value = Txt_3
    .Cells(DerLig, 20).Value = Txt_4
    .Cells(DerLig, 21).Value = Txt_5
    .Cells(DerLig, 22).Value = Txt_1
    
    'Saisie de la fonction suivant le choix
    
    If Me.DTPicker2 <> "" Then
      .Cells(DerLig, 4).Value = DTPicker_HDebut
      .Cells(DerLig, 5).Value = DTPicker_HFin
      .Cells(DerLig, 6).FormulaR1C1 = "=RC[-1]-RC[-2]"
    Else
     .Cells(DerLig, 6).Value = DTPicker2
     
    End If

merci pour vos lumières
 
Vote positif 0 Vote négatif
Re : calcul dans une cellule ou non suivant dtpicker

bonsoir,

il est vrai que sans bout de code ce n'est pas très compréhensible !

mais...

If Me.DTPicker2 <> "" Then
.Cells(DerLig, 4).Value = DTPicker_HDebut
.Cells(DerLig, 5).Value = DTPicker_HFin
.Cells(DerLig, 6).FormulaR1C1 = "=RC[-1]-RC[-2]"
Else
.Cells(DerLig, 6).Value = DTPicker2
End If

c'est quoi > Me.DTPicker2 !?
et > DTPicker2
 
Vote positif 0 Vote négatif
Re : calcul dans une cellule ou non suivant dtpicker

Bonsoir DTPicker2 c'est si je veux saisir la durée manuellement.
sinon dtpicker_hdebut et dtpicker_hfin c'est la saisie si j'ai des heures de ce fait je demande le calcul de la durée

merci
 
Vote positif 0 Vote négatif
Re : calcul dans une cellule ou non suivant dtpicker

re

ta réponse ne dit toujours pas ce que représente Me.DTPicker2 et DTPicker2 ...

DTPicker2 <<<<< !? il s'agit de DTPicker2.Quoi ? ou alors c'est une variable date ou il manque Me. ? c'est bizarre !?

Me.DTPicker2 <<< !? il s'agit d'un userform ? Me.DTPicker2, vu comme ça, ne signifie rien !


et le test suivant, même s'il est valable, devrait être comme ceci:
If Me.DTPicker2 <> "" Then
.Cells(DerLig, 6).Value = DTPicker2
else
.Cells(DerLig, 4).Value = DTPicker_HDebut
.Cells(DerLig, 5).Value = DTPicker_HFin
.Cells(DerLig, 6).FormulaR1C1 = "=RC[-1]-RC[-2]"
End If

tu n'as pas un bout de fichier ?
 
Dernière édition:
Vote positif 0 Vote négatif
Re : calcul dans une cellule ou non suivant dtpicker

bonsoir oui un morceau de fichier serait mieux effectivement, voila :

j'ai beau chercher mais je n'y arrive pas. Si je saisie hdébut et hfin ça fonctionne, par contre si je met la saisie direct alors ça fonctionne pas.

Par avance merci pour votre aide bonne soirée
 

Pièces jointes

Vote positif 0 Vote négatif
Re : calcul dans une cellule ou non suivant dtpicker

re
essai ceci
car si tu prends manuellement donc CheckBox2 est cochée !
je l'ai fait est ça fonctionne !

'Saisie de la fonction suivant le choix

If CheckBox2.Value = True Then
.Cells(DerLig, 6).Value = DTPicker2.Value
Else
.Cells(DerLig, 4).Value = DTPicker_HDebut
.Cells(DerLig, 5).Value = DTPicker_HFin
.Cells(DerLig, 6).FormulaR1C1 = "=RC[-1]-RC[-2]"
End If

soit :
Code: 
Private Sub UserForm_Initialize()
DTPicker2.Enabled = False
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub CheckBox2_Click()
If CheckBox2 = True Then
    Me.DTPicker2.Enabled = True
    Me.DTPicker_HDebut.Enabled = False
    Me.DTPicker_HFin.Enabled = False
Else
    Me.DTPicker2.Enabled = False
    Me.DTPicker_HDebut.Enabled = True
    Me.DTPicker_HFin.Enabled = True
End If
End Sub

Private Sub BTN_Saisie_Click()
' Mise en place des valeurs saisies
  Dim DerLig As Long
  ' Avec la feuille Dossiers_Mandats
  With Sheets("Base de données")
    ' Récupérer la dernière ligne de cette feuille grace au "." point
    DerLig = .Range("A" & Rows.Count).End(xlUp).Row + 1
    .Cells(DerLig, 1).Value = TextBox1
    .Cells(DerLig, 2).Value = TextBox2
    .Cells(DerLig, 3).Value = TextBox3
    .Cells(DerLig, 7).Value = TextBox7
    .Cells(DerLig, 8).Value = TextBox8
    .Cells(DerLig, 9).Value = TextBox9
    
    'Saisie de la fonction suivant le choix
   If CheckBox2.Value = True Then
     .Cells(DerLig, 6).Value = DTPicker2.Value
   Else
     .Cells(DerLig, 4).Value = DTPicker_HDebut
     .Cells(DerLig, 5).Value = DTPicker_HFin
     .Cells(DerLig, 6).FormulaR1C1 = "=RC[-1]-RC[-2]"
    End If
End With
Unload Me
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
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

J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
456
juju91
J
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
561
mikeduff
M
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
732
kiki29
kiki29
P
  • Résolu(e)
Microsoft 365 Afficher ou masquer formes si une cellule est vide
Réponses
11
Affichages
643
pat66
P
Nicolas JACQUIN
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
Nicolas JACQUIN
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
797
Phil69970
Phil69970
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
879
GClaire
G
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
589
Francky79
F
B
  • Question Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
1 K
Compte Supprimé 979
C
E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
874
escudo
E
X
  • Résolu(e)
XL 2016 Souci pour mettre un nombre dans une cellule en croisant colonne et ligne.
2
Réponses
16
Affichages
1 K
Xender
X
Z
  • Question Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
651
ZiM
Z
M
  • Résolu(e)
Microsoft 365 Sélection ligne dans ListBox avec boutons précédent-suivant
4 5 6
Réponses
88
Affichages
5 K
meyscal
M
Dudu2
  • Suggestion Suggestion
Texte Définir les propriétés d'une cellule ou d'un Range (couleurs, fonte, ..., valeur) dans une formule
Réponses
0
Affichages
2 K
Dudu2
Dudu2
C
  • Question Question
XL 2019 Tableau- creation de lignes: probleme de hauteur de lignes
Réponses
6
Affichages
823
Cheyenne_2021
C
A
  • Question Question
XL 2019 Vérifier si une ligne existe dans un autre fichier
Réponses
7
Affichages
903
A-F
A
F
  • Question Question
Microsoft 365 Ecrire dans une cellule suivant une autre en VBA
Réponses
4
Affichages
857
Francky79
F
B
  • Question Question
XL 2016 Message d'alerte pour une cellule particuliere non renseigne
Réponses
3
Affichages
615
Compte Supprimé 979
C
Z
  • Question Question
XL 2010 tableau pour comparer deux colonnes et écrire le résultat dans une troisième colonne
2
Réponses
28
Affichages
3 K
zephir94
Z
Retour