vba / changer valeur cellule DATE + 1

[cheyenne63]

Bonjour,

Je bug, je cherche dans le forum, je ne trouve pas…
Un fichier exemple très simplifié.
Sur feuille 1, les valeurs de B3 à B10 varient selon la date sélectionnée en B2. Ces valeurs sont issues de la feuille BD.
Le bouton "Export" copie les valeurs B3 à B10 vers la feuille 2 en A3:A10.
Ce que je voudrais en plus : que la macro, à la suite du traitement précedent, ajoute 1 jour à la date de B2 de la feuille 1 et copie les valeurs qui en découlent dans la feuille 2 à la suite du copiage précédent c'est-à-dire en A13:A22.
J'espère avoir été claire.
Merci d'avance et bonne journée.

 

[Softmama]

Re : vba / changer valeur cellule DATE + 1

Bonjour,

Cette petite macro devrait convenir :

Sub Bouton4_QuandClic()

'Simplification de ton code :
    Range("B3:B12").Copy
    Sheets("Feuil2").Range("A3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'La 2nde partie :
    Range("B1") = Range("B1") + 1
    Range("B3:B12").Copy
    Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub

cf. fichier joint

 

[cheyenne63]

Re : vba / changer valeur cellule DATE + 1

Merci,
Ça marche super.
Je vais plancher là-dessus et tenter de l'adapter.
@+

 

[pierrejean]

Re : vba / changer valeur cellule DATE + 1

Bonjour cheyenne63

Vois si cela te convient

Edit: A la bourre moi
Salut softmama