Discussion :

[Dereck07]

Bonjour,

Je viens juste de m'initier a VBA. J'ai reussi a faire quelques macros comme par exemple:

Code :

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

1
2
3
4
5
6
 
Private Sub CommandButton1_Click()  
  Rows("5:5").Select       'se placer au debut du tableau Linge5
  Selection.Insert Shift:=xlDown    'inserer une nouvelle ligne
  ActiveCell.FormulaR1C1 = Date    'Mettre la date d'aujourd'hui dans A5
End Sub

Cette macro ajoute insert une date a ma liste de date:


Comme cette macro marche bien j'ai essayé d'aller un peu plus loin en inserant la date d'aujourd'hui que si elle n'est pas deja presente en debut de liste.
Voici le code que j'ai mis:

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub CommandButton1_Click()   
    If Range(A5).Value <> Date Then
        Rows("5:5").Select            
        Selection.Insert Shift:=xlDown    
        ActiveCell.FormulaR1C1 = Date  
   End If
End Sub

Lorsque j'exectue cette macros j'ai le droit a un joli message d'erreur.

C'est clairement dans le if que ca cloche mais je vois pas pourquoi...
quelqu'un peut il m'aider?