Ajouter la date sur une autre feuille

[iguan]

Bonjour,

Je voudrais ajouter la date du jour sur une autre feuille à l'aide d'un bouton.
La mise en forme est la même sur chaque feuille.
En faite je voudrais ajouter la date sur la feuille+1 à la même ligne et à la même colonne.
Tout ceci doit se faire avec une selection de plusieurs cellule choisit par l'utilisateur.

Voici mon bout de code que j'ai pu faire mais qui ne fonctionne pas:

Private Sub CommandButton1_Click()

Dim d As Range
For Each d In Selection
d.Feuil6(0, 0).Value = Date
d= ""
Next
End Sub

Merci d'avance

 

[Pierrot93]

Re : Ajouter la date sur une autre feuille

Bonjour,

peut être, si j'ai bien compris, pas sûr...

Sheets(ActiveSheet.Index + 1).Range(ActiveCell.Address).Value = Date

bonne journée
@+

 

[Dranreb]

Re : Ajouter la date sur une autre feuille

Bonjour.
À tester

Private Sub CommandButton1_Click()
Sheets(ActiveSheet.Index + 1).Range(Selection.Address).Value = Date
End Sub

Cordialement

 

[iguan]

Re : Ajouter la date sur une autre feuille

Re,

Je viens de tester les 2 codes que vous m'avez envoyé, je vous remercie par avance.

Pierrot93 le problème sur ta ligne de code, est qu'il s'exécute que sur la dernière cellule sélectionner.

Dranreb le problème sur ta ligne de code, est lorsque je sélectionne plusieurs cellule avec la touche "ctrl" de mon clavier il me marque "erreur d'exécution 1004", j'aimerai pouvoir selectionner plusieurs cellule si c'est possible.

Cordialement

 

[Dranreb]

Re : Ajouter la date sur une autre feuille

Private Sub CommandButton1_Click()
Dim FCbl As WorkSheet, Z as range, C as Range
Set FCbl = Sheets(ActiveSheet.Index + 1)
For Each Z in Selection.Areas
    For Each C in Z.Cells
        FCbl.Cells(C.Row,C.Column).Value = Date
        Next C
    Next Z
End Sub

 

[Pierrot93]

Re : Ajouter la date sur une autre feuille

Re,

Dim c As Range
With Sheets(ActiveSheet.Index + 1)
    For Each c In Selection
        .Range(c.Address).Value = Date
    Next c
End With

 

[iguan]

Re : Ajouter la date sur une autre feuille

Merci Dranreb tout marche à merveille.

 

[iguan]

Re : Ajouter la date sur une autre feuille

Je n'avais pas encore vu ta réponse Pierrot93, ton code aussi marche parfaitement.
Il est plus compréhensible pour moi qui ne connais pas trop le VBA
Merci beaucoup à tout les deux.

Cordialement