Discussion :

[eddie.d]

Bonjour Gentlemen,

Je voudrai vous demander deux lignes de code.
Je voudrais que cette petite formule insert la date dans de cellules sélectionnées et pas seulement dans active cell.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub insert_date()
'
' insert_date Macro
' Macro enregistrée le 01/11/2011 par Jeremy
'
 
'
    ActiveCell.FormulaR1C1 = "=TODAY()-1"
End Sub

Merci d'avance pour votre aide.

[mercatog]

Au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.formula...

utilise (Vivement déconseillé de travailler avec les Selection)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Formula=...

ou sans formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub insert_date()
 
Selection = Date - 1
End Sub

[eddie.d]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub insert_date()
'
Selection.Formula = "=TODAY()-1"
'
 
End Sub

Merci pour la reponse rapide.
Je pense que je suis trop bête mais ça ne fonctionne pas... ou est l'erreur?

[mercatog]

Et comment ça ne fonctionne pas?

Tu sélectionne des cellules et tu lance la macro.

[eddie.d]

La ça marche.
J'ai redémarré vb et ça marche.

Merci beaucoup pour ton aide!

Je connais rien mais je bricole je sais même pas de ou je prends la courage

Peut être la j’abuse.. mais il n'y a pas moyen de faire une msgbox dans quelle on mettes la date et le macro insert cette date?

Pour moi ce vachement compliqué mais pour quelqu’un qui connais bien j'imagine que c'est pas trop difficile..

Respectueusement.

[mercatog]

Une proposition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub insert_date()
Dim Cr As String
 
Cr = InputBox("Entrez la date")
On Error Resume Next                             'Au cas où l'information entrée n'est pas valide, on surpasse l'erreur
Selection = DateValue(Cr)
End Sub

[eddie.d]

Senior... Mille merci.