décaler des dates

Victor21

XLDnaute Barbatruc

Supporter XLD

• 13 Novembre 2018

• #2

Bonjour 962.

Pas besoin de bouton :
Dans une cellule vierge, tapez -2, puis copiez (Ctrl+c)
Sélectionnez toutes les dates concernées par le changement, puis collage spécial, addition. (Ctrl+Alt+V, S, Entrée)
C'est tout, et vous économisez le clearasyl.

 

Dernière édition: 13 Novembre 2018

Vote positif 0 Vote négatif

9

962

Guest

• 21 Novembre 2018

• #3

Bonjour,
Désolé pour ma réponse tardive mais oui effectivement pourquoi faire simple quand on peut faire compliqué !
Merci !
Cdt

 

Vote positif 0 Vote négatif

9

962

Guest

• 23 Novembre 2018

• #4

Bonsoir,

Je reviens sur ce sujet car oui c'est ça fonctionne et c'est simple par contre c'est que je me retrouvre avec des samedi et des dimanche !!
Vous avez pas une solution pour éviter le samedi et dimanche ?

Cdt

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Novembre 2018

• #5

Bonsoir 962, Patrick,

Pour des résultats en colonne F mettez la colonne F au format Date, ou par exemple "jjjj jj/mm/aaaa".

962 à dit:

Vous avez pas une solution pour éviter le samedi et dimanche ?

Cliquez pour agrandir...

Les éviter en colonne E ou en colonne F ?

Pour les éviter en colonne E formule en F2 =SI(JOURSEM(E2;2)>5;"";E2-2)

Pour les éviter en colonne F formule en F2 =SI(JOURSEM(E2-2;2)>5;"";E2-2)

A+

 

Vote positif 0 Vote négatif

9

962

Guest

• 26 Novembre 2018

• #6

Bonsoir,
j'ai un souci en fait je viens coller dans ce fichier systématiquement toute les données du coup je suis obligé de coller et de refaire la formule à chaque fois.
Il n'y a pas moyen d’intégrer une ligne de commande de macro pour faire ça dans un module que j'ai créer pour la mise en page ?

Cdt

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Novembre 2018

• #7

Bonsoir 962,

Il suffit d'intégrer la formule du post #5 dans la macro :

Code:

Sub DecalerDate()
With Range("F2:F" & Range("E" & Rows.Count).End(xlUp).Row)
    .NumberFormat = "dd/mm/yyyy"
    .Formula = "=IF(WEEKDAY(E2-2,2)>5,"""",E2-2)"
    .Value = .Value 'supprime les formules
End With
End Sub

les dates étant toujours en colonne E.

A+

 

Vote positif 0 Vote négatif