Ajouter un délai à une date

bbobb · 20 Octobre 2013

Bonjour à tous,
Je dois faire un fichier pour planifier des visites d'entretiens avec la date du dernier passage, la date du futur passage en fonction d'un délai...
J'y suis presque sauf que mon résultat s'affiche au format mm/jj/aaaa

Je met un bout du fichier pour plus de clarté...

Merci d'avance pour votre aide

Bbobb

R@chid · 20 Octobre 2013

Re : Ajouter un délai à une date

Bonjour,
Tu peux essayer avec,

Code:

=C3+A3*CHOISIR(EQUIV(B3;{"année";"mois";"jour"};0);365;30;1)

@ tirer vers le bas
@ + +

bbobb · 20 Octobre 2013

Re : Ajouter un délai à une date

Bonjour R@chid,
Merci pour ta solution qui fonctionne très bien.
Néanmoins je cherche une solution par macro... si possible...

Bonne journée
Bbobb

JBARBE · 20 Octobre 2013

Re : Ajouter un délai à une date

Bonjour à tous,

Pour une année supplémentaire :

Code:

=DATE(ANNEE(C3)+1;MOIS(C3);JOUR(C3))

R@chid · 20 Octobre 2013

Re : Ajouter un délai à une date

Re,
Salut JBARBE,
Malheureusement je ne sais pas faire des macros..
Une autre formule ,

Code:

=DATE(ANNEE(C3)+(B3="année")*A3;MOIS(C3)+(B3="mois")*A3;JOUR(C3)+(B3="jour")*A3)

@ + +

bbobb · 20 Octobre 2013

Re : Ajouter un délai à une date

Re,
J'ai vraiment besoin d'une solution par macro.
Merci d'avence aux "pros" de la VBA...

Bbobb

JBARBE · 20 Octobre 2013

Re : Ajouter un délai à une date

Pour année(s) supplémentaire(s) ou jour (s) supplémentaire (s) :

Code:

Sub essai()
Dim i As Long
For i = 3 To 65536
if cells(i, 2)="" then exit for
If Cells(i, 2) = "années" Then Cells(i, 4).FormulaR1C1 = DateSerial(Year(Cells(i, 3)) + Cells(i, 1), Month(Cells(i, 3)), Day(Cells(i, 3)))
If Cells(i, 2) = "jour" Then Cells(i, 4).FormulaR1C1 = DateSerial(Year(Cells(i, 3)), Month(Cells(i, 3)), Day(Cells(i, 3)) + Cells(i, 1))
Next i
End Sub

bonne journée

Modeste geedee · 20 Octobre 2013

Re : Ajouter un délai à une date

Bonsour®

bbobb à dit:
Re,
J'ai vraiment besoin d'une solution par macro.
Bbobb

procédure événementielle concernant les colonnes 1 à 3
à placer dans le module de feuille correspondant

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne As Integer
If Target.Column < 4 Then
ligne = Target.Row
If Cells(ligne, 3) <> "" Then
Select Case Cells(ligne, 2)
Case "jour"
Cells(ligne, 4) = Cells(ligne, 3) + Cells(ligne, 1)
Case "mois"
Cells(ligne, 4) = WorksheetFunction.EDate(Cells(ligne, 3), Cells(ligne, 1))
Case "année"
Cells(ligne, 4) = WorksheetFunction.EDate(Cells(ligne, 3), 12 * Cells(ligne, 1))
Case Else
End Select
Else
Cells(ligne, 4) = ""
End If
End If
End Sub

Ajouter un délai à une date

bbobb

XLDnaute Occasionnel

Pièces jointes

R@chid

XLDnaute Barbatruc

bbobb

XLDnaute Occasionnel

JBARBE

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

bbobb

XLDnaute Occasionnel

JBARBE

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

Discussions similaires