Macro

Bonjour

J’aurai besoin d’une macro qui :

Lorsque j’active une cellule dans laquelle il y à une date , je voudrais que cette cellule soit copiée 23 fois avec cette même date dans la colonne et pour la 24 èmes cellules date + 1

Merci

Bonjour,

Essaie avec ce code à placer dans la feuille concernée par ta demande. La colonne choisie ici est la colonne A. La cellule contenant la date de départ est la cellule A1.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Macro Dan pour subfestivus le 11/01/11
If Not Intersect(Target, Range("A1")) Is Nothing Then
With Target
    .Copy Range("A" & .Row + 1 & ":A" & .Row + 24)
Range("A" & .Row + 24) = Range("A" & .Row + 24) + 1
End With
End If
Cancel = True
End Sub

Si ok, n'oublie pas de cliquer sur le V vert pour cloturer le fil.

Amicalement

Bonjour , c'est bien ce que je voulais , seulement j'ai besoin de pouvoir répéter cette apllication à volonté sur la dernière cellule ici A25, en faite je cherche à incréménter une date avec condition

MERCI

Re,

Dans le code, remplace

range("A1")

par

Columns("A")

Amicalement

RE

Super ,

Encore et comme toujours un grand merci ....