Recopier une date avec code dans la feuille

C

Catrice

XLDnaute Barbatruc

• 10 Juin 2009

• #2

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.

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 10 Juin 2009

• #3

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

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 10 Juin 2009

• #4

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

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 10 Juin 2009

• #5

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

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 10 Juin 2009

• #6

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

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 10 Juin 2009

• #7

Re : Recopier une date avec code dans la feuille

Bonsoir le forum

Merci catrice c'est parfait.

Cordialement

 

Vote positif 0 Vote négatif