Discussion :

[pilounet54]

bonjour message d'erreur ! vous pouvez m'aider ?
message est le suivant argument non facultatif et il arrêt sur selection

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_Open()
 
Range("A1:C1").Select
For a = 1 To 2
selection.Interior.ColorIndex = 6
Application.Wait (Now + TimeValue("0:00:01"))
selection.Interior.ColorIndex = xlNone
Application.Wait (Now + TimeValue("0:00:01"))
Next a
 
End Sub

[spookyz]

Bonjour à tous,
pilounet54 j'ai testé ton code sur XL-2007 et cela fonctionne lorsque j'ouvre le classeur, a quel moment a tu le message d'erreur ?

[pilounet54]

c'est un bouton qui se créé à cette place l'erreur se fait pas sur tous les fichiers ?
et l'erreur se produit à l'ouverture

il ne reconnait pas selection? bisard es que en déclarant quelque chose cela serai mieux et quoi ?

[illight]

Quelle version d'Excel tu utilises ?

Avec 2010, j n'ai pas non plus de message d'erreur..

[pilounet54]

version 2013