décaler des dates

962

XLDnaute Junior
Bonjour,

Sur mon fichier en colonne E j'ai tout une série de date au format " 13/11/2018" et je souhaite remplacer cette date - 2 jours pour chaque ligne.

Je pense qu'une macro bouton serai top mais je ne sais pas comment la faire

Quelqu'un à une idée ?

Cdt
 

Victor21

XLDnaute Barbatruc
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:

job75

XLDnaute Barbatruc
Bonsoir 962, Patrick,

Pour des résultats en colonne F mettez la colonne F au format Date, ou par exemple "jjjj jj/mm/aaaa".
Vous avez pas une solution pour éviter le samedi et dimanche ?
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+
 

962

XLDnaute Junior
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
 

job75

XLDnaute Barbatruc
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+
 

Discussions similaires