Recopier une date avec code dans la feuille

[eduraiss]

Bonjour le forum

Voila je suis toujours avec mes tableaux, je voudrais recopier une date qui est en B5 dans le tableaux ci-dessous

La methode par formule que j'utilise aujourd'hui me pose porbléme lorsque je trie les tableau par raport au noms

je joins un fichier

Cordialement

 

[Catrice]

Re : Recopier une date avec code dans la feuille

Bonjour,

Il suffit de taperr =B5 dans les cellules destination ...
Je n'ai pas compris le probleme lié au tri des tableaux.

 

[eduraiss]

Re : Recopier une date avec code dans la feuille

bonjour

Merci catrice pour ta réponse

Je trie ses tableaux par ordre croissant par le bier d'un code et la j'efface la formule =$B$5 qui est reportée dans les tableaux ci-dessous

C'est pour cela que j'aurais aimé un code que lorsque je tape la date en B5 cela se reproduit dans les cellules ci-dessous

Cordialement

 

[Catrice]

Re : Recopier une date avec code dans la feuille

Re,

Pas tres bien compris ce que tu faisais. Si =$B$5 => ref absolue qui ne change pas en triant ...

Toujours est il que le code suivant recopie la date dans les cellules de la colonne B de "SEMAINE DU" :

Sub Test()
For i = 1 To Application.CountIf(Columns(1), "TOTAL") - 1
Cells(5 + (i * 29), 2) = Cells(5, 2).Value
Next
End Sub

 

[eduraiss]

Re : Recopier une date avec code dans la feuille

Bonsoir le forum

merci une nouvelle fois catrice

C'est ok cela fonctionne avec un bouton, mais peut t-on mettre ce code dans la feuille et lorsque je rentre une date en b5 en validant la macro se déclanche

merci encore

Cordialement

 

[Catrice]

Re : Recopier une date avec code dans la feuille

Bonsoir,

Tu peux le faire en rajoutant ce code dans la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$5" Then Test
End Sub

 

[eduraiss]

Re : Recopier une date avec code dans la feuille

Bonsoir le forum

Merci catrice c'est parfait.

Cordialement