décaler des dates

[962]

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]

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.

 

[962]

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

 

[962]

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

 

[job75]

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]

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]

Bonsoir 962,

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

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+