Automatisation affichage dates

[eduraiss]

Bonjour le forum

Je suis sur un projet, que je voudrais automatiser

Je rentre une semaine en B5? je voudrais que les jours de cette semaine s'affichent automatiquement en B13,B14 etc

je joins un fichier

Cordialement

 

[ROGER2327]

Re : Automatisation affichage dates

Re...

Un proposition par formules après une légère modification de la ligne 5.​

ROGER2327

 

[JCGL]

Re : Automatisation affichage dates

Bonjour à tous,

Modifie B5 et toute ta feuille suivra

A+ à tous

 

[jetted]

Re : Automatisation affichage dates

voici un peu de code qui pourrait t'aider

Sub test()
    sem = Range("B5").Value
    sem1 = Left(sem, 12)
    sem1 = Right(sem1, 8)
    sem1 = CDate(sem1)
    Range("b13").Select
    ActiveCell.Value = sem1
    Selection.AutoFill Destination:=Range("B13:B19"), Type:=xlFillDefault
End Sub

 

[pierrejean]

Re : Automatisation affichage dates

Bonjour eduraiss

Teste ceci

Entrez seulement la date de debut de semaine en B5 (et cellules similaires)

Edit: Bien a la bourre moi !!

Salut à tous

 

[vbacrumble]

Re : Automatisation affichage dates

Bonjour jetted, à tous , le fil, le peuple du forum

jetted
Pourquoi pas simplement ?

Sub test()
    With Range("b13")
        .Offset(-8, 2) = Range("B5").Value + 6
        .Value = Range("B5").Value
        .AutoFill Destination:=Range("B13:B19"), Type:=xlFillDefault
    End With
End Sub

Et surtout pourquoi ne pas privilégier les formules 😕

EDITION: bonjour eduraiss, ROGER2327, pierrejean, JCGL

 

[pierrejean]

Re : Automatisation affichage dates

Re
Salut vbacrumble

Version avec

Application.EnableEvents

afin que eduraiss ait le choix !!!

 

[jetted]

Re : Automatisation affichage dates

Wow vbacrumble

j'apprecie la simplicite de ton code.....

 

[eduraiss]

Re : Automatisation affichage dates

Bonsoir le forum

Merci a vous tous je regarde tout cela, mais je suis sur de retrouver mon bonheur

Merci beaucoup

Ps: il est vrai que je n'avais pas penseé au formule qui devrait suffir

Cordialement