addition de date et entier et retour de type date

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

nsqualli

Guest
bonsoir,

dans ma feuille excel je dois faire le traitement suivant:

- faire l'addition d'une cellule de la colonne AI qui de type entier (exemple 1.2 en sachant que 0.1 = 45min) avec la date d'aujourd'hui

- le resultat obtenu je dois le comparer avec la cellule de la colonne k qui est de type date.

SVP comment je peux faire cela?

Merci
 
Trier par date Trier par votes
Re : addition de date et entier et retour de type date

Bonsoir,

Je crains ne pas tout comprendre.

Dans une cellule la date d'aujourd'hui : 20/11/2008
En format date/heure cela donne :20/11/2008 00:00:00

Tu y additionnes 1.2/0.1*"00:45:00", soit 09:00:00.
Le résultat sera 20/11/2008 09:00:00

Puis tu veux comparer ce résultat avec une autre cellule.
Mais comparer quoi, additionner, soustraire, ... ?

abcd
 
Vote positif 0 Vote négatif
Re : addition de date et entier et retour de type date

Bonjour

Ci dessous une formule par macro

Code: 
Function calculdate(valeur_a_ajouter As Range, Date_debut As Range, coefficient As Date)
Application.Volatile
calculdate = DateAdd("n", valeur_a_ajouter * coefficient, Date_debut)


End Function
valeur_a_ajouter = 1.2
Date_debut 20/11/2008 00:00:00
coefficient 450

Résultat obtenu : 20/11/08 9:00

A tester

JP

Ci joint le fichier à terminer pour la comparaison
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : addition de date et entier et retour de type date

abcd à dit:
Bonsoir,

Je crains ne pas tout comprendre.

Dans une cellule la date d'aujourd'hui : 20/11/2008
En format date/heure cela donne :20/11/2008 00:00:00

Tu y additionnes 1.2/0.1*"00:45:00", soit 09:00:00.
Le résultat sera 20/11/2008 09:00:00

Puis tu veux comparer ce résultat avec une autre cellule.
Mais comparer quoi, additionner, soustraire, ... ?

abcd
Cliquez pour agrandir...

non pas ça, je viens de mettre les colonnes avec quoi je dois travailler
ce que je veux faire en fait RAF ANA est le temps qui reste pour terminer une procedure, c'est un entier qui represente le temps en jour/homme par exemple (1.2 = une journée de 8h et 90min), cela je dois l'addition a la date d'aujourd'hui c-a-dire que si aujourd'hui est le 20/11/2008, je dois faire 20/11/2008 + une journée de 8heures et 90min, le resultat je dois le comparer avec le jalon de livraion qui est de type date jj/mm/aaaa.

Je galereeeeeeeeee😡
 
Vote positif 0 Vote négatif
Re : addition de date et entier et retour de type date

Bonsoir,

Il fallait préciser que l'entier représentait des jours !

AJ2 : =K2+ENT(AI2)+MOD(AI2;1)*10/32
formule au format jj/mm/aaa hh:mm:ss, à copier vers le bas.

Résultats
AJ2 : 12/11/2008 00:45:00
AJ3 : 16/02/2008 00:01:30

abcd
 
Vote positif 0 Vote négatif
Re : addition de date et entier et retour de type date

Bonjour,

Pour la macro, il te suffit de l'enrigistrer puisque tu as la formule.

J'ai aussi un petite remarque à formuler.
exemple 1.2 en sachant que 0.1 = 45min

10*"00:45:00"=450 min, mais une journée comporte 480 min (8 hrs*60 min)
Il n'est donc pas possible d'additionner une valeur dans la tranche 450/480.
Les 45 min ne devraient-il pas être 48 min ?

abcd
 
Vote positif 0 Vote négatif
Re : addition de date et entier et retour de type date

abcd à dit:
Bonjour,

Pour la macro, il te suffit de l'enrigistrer puisque tu as la formule.

J'ai aussi un petite remarque à formuler.
exemple 1.2 en sachant que 0.1 = 45min

10*"00:45:00"=450 min, mais une journée comporte 480 min (8 hrs*60 min)
Il n'est donc pas possible d'additionner une valeur dans la tranche 450/480.
Les 45 min ne devraient-il pas être 48 min ?

abcd
Cliquez pour agrandir...

je crois qu'on peut le faire
 
Vote positif 0 Vote négatif
Re : addition de date et entier et retour de type date

bon voila ce que j'ai fais:

Code: 
Sub demandeARisque() 

Dim dateJalon As Date 
Dim DerLig As Long, Lig As Long 

Dim FeuilDstRDJA As Worksheet, DerLD1 As Long 
Dim FeuilDstDaR As Worksheet, DerLD2 As Long 
  
Sheets.Add 
        ActiveSheet.Name = "RDJA" 
        Set FeuilDstRDJA = ActiveSheet 
        Call ecrire2 
        
Sheets.Add 
        ActiveSheet.Name = "Demandes a risques" 
        Set FeuilDstDaR = ActiveSheet 
        Call ecrire3 

With Sheets("Suivi des demandes") 
    
    ' Trouver la dernière ligne 
    DerLig = .Range("A" & Rows.Count).End(xlUp).Row 
    
    ' Pour chaque ligne 
    For Lig = 3 To DerLig 
      
      Select Case .Range("T" & Lig).Value 
        
        Case "ANA", "RET ANA" 
        
        dateJalon = [COLOR="Red"]calculdate(.Range("AI" & Lig).Value, Date, 480) [/COLOR]
        
        If [COLOR="Blue"]dateJalon > .Range("K" & Lig).Value[/COLOR] Then 
        
        .Range("B" & Lig).Font.ColorIndex = 18 
        .Range("B" & Lig).Font.Bold = True 
        
        Set FeuilDstRDJA = Sheets("RDJA") 
        
        DerLD1 = FeuilDstRDJA.Range("A" & Rows.Count).End(xlUp).Row 
        
        'Inscription 
        FeuilDstRDJA.Range("A" & DerLD1 + 1).Value = .Range("A" & Lig).Value 
        FeuilDstRDJA.Range("B" & DerLD1 + 1).Value = .Range("B" & Lig).Value 
        FeuilDstRDJA.Range("C" & DerLD1 + 1).Value = .Range("K" & Lig).Value 
        FeuilDstRDJA.Range("D" & DerLD1 + 1).Value = .Range("AI" & Lig).Value 
        FeuilDstRDJA.Range("E" & DerLD1 + 1).Value = .Range("R" & Lig).Value 
        FeuilDstRDJA.Range("F" & DerLD1 + 1).Value = .Range("I" & Lig).Value 
        
        End If 
        
            Case "REA / TST", "VAL REA", "VAL BL", "VAL REC" 
            
            .Range("B" & Lig).Font.ColorIndex = 46 
            .Range("B" & Lig).Font.Bold = True 
            
            Set FeuilDstDaR = Sheets("Demandes a risques") 
            
            DerLD2 = FeuilDstDaR.Range("A" & Rows.Count).End(xlUp).Row 
            
                'Inscription 
        FeuilDstDaR.Range("A" & DerLD2 + 1).Value = .Range("A" & Lig).Value 
        FeuilDstDaR.Range("B" & DerLD2 + 1).Value = .Range("B" & Lig).Value 
        FeuilDstDaR.Range("C" & DerLD2 + 1).Value = .Range("AJ" & Lig).Value 
        FeuilDstDaR.Range("D" & DerLD2 + 1).Value = .Range("R" & Lig).Value 
        FeuilDstDaR.Range("E" & DerLD2 + 1).Value = .Range("S" & Lig).Value 
        
                Case Else 
                      
      End Select 
            'Else 
            'rien faire 
            
      'End If 
            
    Next Lig 
    
  End With 

End Sub

la function en rouge fait le calcul voulu ( additionner la date du jour [type date] + RAF ANA [long] )
la ligne en bleu fait la comparaison entre la date de retour de la function en rouge et le jalon de livraison K[date]

voila function calculdate:

Code: 
Function calculdate(valeur_a_ajouter As Long, Date_debut As Date, coefficient As Date) 


Application.Volatile 
calculdate = DateAdd("n", valeur_a_ajouter * coefficient, Date_debut) 

End Function

la macro est dans la feuille1 "suivi des demandes" et la fonction calculdate est dans le module1


MAIS ça me donne l'erreur "imcompatibilité de type"

est ce que vous pouvez m'aidez?
merci
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : addition de date et entier et retour de type date

bon j'ai trouvé la solution et sa marche tres bien maintenant, voila le code si sa peut aider:

Code: 
Sub demandeARisque()

Dim dateJalon As Date
Dim DerLig As Long, Lig As Long

Dim FeuilDstRDJA As Worksheet, DerLD1 As Long
Dim FeuilDstDaR As Worksheet, DerLD2 As Long
  
Sheets.Add
        ActiveSheet.Name = "RDJA"
        Set FeuilDstRDJA = ActiveSheet
        Call ecrire2
        
Sheets.Add
        ActiveSheet.Name = "Demandes a risques"
        Set FeuilDstDaR = ActiveSheet
        Call ecrire3

With Sheets("Suivi des demandes")
    
    ' Trouver la dernière ligne
    DerLig = .Range("A" & Rows.Count).End(xlUp).Row
    
    ' Pour chaque ligne
    For Lig = 3 To DerLig
      
      Select Case .Range("T" & Lig).Value
        
        Case "ANA", "RET ANA"
        
        dateJalon = calculdate(.Range("AI" & Lig).Value, Date, 480)
        
        If Not (IsDate(.Range("K" & Lig).Value)) Then
        ElseIf dateJalon > .Range("K" & Lig).Value Then
        
        .Range("B" & Lig).Font.ColorIndex = 18
        .Range("B" & Lig).Font.Bold = True
        
        Set FeuilDstRDJA = Sheets("RDJA")
        
        DerLD1 = FeuilDstRDJA.Range("A" & Rows.Count).End(xlUp).Row
        
        'Inscription
        FeuilDstRDJA.Range("A" & DerLD1 + 1).Value = .Range("A" & Lig).Value
        FeuilDstRDJA.Range("B" & DerLD1 + 1).Value = .Range("B" & Lig).Value
        FeuilDstRDJA.Range("C" & DerLD1 + 1).Value = .Range("K" & Lig).Value
        FeuilDstRDJA.Range("D" & DerLD1 + 1).Value = .Range("AI" & Lig).Value
        FeuilDstRDJA.Range("E" & DerLD1 + 1).Value = .Range("R" & Lig).Value
        FeuilDstRDJA.Range("F" & DerLD1 + 1).Value = .Range("I" & Lig).Value
        
        End If
        
            Case "REA / TST", "VAL REA", "VAL BL", "VAL REC"
            
            dateJalon = calculdate(.Range("AJ" & Lig).Value, Date, 480)
        
            If Not (IsDate(.Range("L" & Lig).Value)) Then
            ElseIf dateJalon > .Range("L" & Lig).Value Then
            
            .Range("B" & Lig).Font.ColorIndex = 46
            .Range("B" & Lig).Font.Bold = True
            
            Set FeuilDstDaR = Sheets("Demandes a risques")
            
            DerLD2 = FeuilDstDaR.Range("A" & Rows.Count).End(xlUp).Row
            
                'Inscription
                FeuilDstDaR.Range("A" & DerLD2 + 1).Value = .Range("A" & Lig).Value
                FeuilDstDaR.Range("B" & DerLD2 + 1).Value = .Range("B" & Lig).Value
                FeuilDstDaR.Range("C" & DerLD2 + 1).Value = .Range("AJ" & Lig).Value
                FeuilDstDaR.Range("D" & DerLD2 + 1).Value = .Range("L" & Lig).Value
                FeuilDstDaR.Range("E" & DerLD2 + 1).Value = .Range("R" & Lig).Value
                FeuilDstDaR.Range("F" & DerLD2 + 1).Value = .Range("S" & Lig).Value
            End If
            
                Case Else
                     
      End Select
            'Else
            'rien faire
            
      'End If
            
    Next Lig
    
  End With

End Sub

Code: 
Function calculdate(valeur_a_ajouter As Double, Date_debut As Date, coefficient As Date)

Application.Volatile
calculdate = DateAdd("n", (valeur_a_ajouter * coefficient) + 960, Date_debut)

End Function

Bon courage
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Titof06
  • Question Question
XL 2019 Copier des fichiers ".txt" selon la date de modification ou création
Réponses
10
Affichages
432
fanch55
fanch55
C
  • Résolu(e)
XL 2019 User Form qui renvoi dans un tableau avec celulle fusionnée
2
Réponses
16
Affichages
380
Piment
P
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
333
Nico Gre
N
W
  • Question Question
XL 2013 Reporter valeur suivant date la plus ancienne
2
Réponses
15
Affichages
860
walki
W
F
  • Question Question
Microsoft 365 Problème RECHERCHEV avec plusieurs correspondances possibles pour une même valeur
2
Réponses
15
Affichages
813
floflatch22
F
N
  • Question Question
Microsoft 365 Calcul de prix moyen pondéré de recettes
2
Réponses
15
Affichages
857
Nino63
N
Titof06
  • Résolu(e)
XL 2019 Augmenter la vitesse de traitement
2 3
Réponses
37
Affichages
2 K
dysorthographie
dysorthographie
T
  • Question Question
Microsoft 365 Aide Excel formule
Réponses
4
Affichages
480
tntsatan
T
M
  • Question Question
XL 2016 Analyse prix suivant hypothèse QTT à produire volume annuel et date de démarrage fabrication
Réponses
4
Affichages
324
mam721
M
G
  • Question Question
Microsoft 365 Date en fonction de plusieurs critères
Réponses
2
Affichages
258
Gerantoine
G
S
  • Résolu(e)
Microsoft 365 [RESOLU] Excel : Calcul de prix en fonction d'un type
Réponses
4
Affichages
616
JHA
J
oguruma
POWERQUERY :: Combinaison de dossiers multiples non adjacents (non hiérarchiques) - Tables - Feuilles
Réponses
1
Affichages
258
oguruma
oguruma
D
  • Question Question
XL 2016 Future date la plus proche d'aujourd'hui + mise en forme conditionnelle
Réponses
8
Affichages
555
vgendron
vgendron
Lu76Fer
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
860
Lu76Fer
Lu76Fer
Raziel abel
  • Question Question
XL 2021 Calcul jours, TCD et outil de pilotage via TCD
Réponses
6
Affichages
614
Raziel abel
Raziel abel
P
  • Résolu(e)
Microsoft 365 Macro Excel pour effectuer des opérations sur les lignes et cellules adjacentes
2
Réponses
19
Affichages
758
Perceval973
P
A
  • Question Question
XL 2010 fusionner une date + une somme dans le resultat cellule excel
Réponses
6
Affichages
713
TooFatBoy
TooFatBoy
J
  • Résolu(e)
Microsoft 365 Problème de décompte avec PQ
Réponses
8
Affichages
574
José FELIX
J
S
  • Résolu(e)
Autres Categoriser par rapport à la date de naissance, année et categorie
Réponses
8
Affichages
338
Skippy
S
C
  • Question Question
XL 2016 Comment faire une fonction fréquence avec un critère de date
Réponses
3
Affichages
835
sylvanu
sylvanu
Retour