Discussion :

[marco858]

Bonjour,

J'ai le code suivant qui ne fontionne pas avec le bouton :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Worksheets("BL CLIENT").Select
Worksheets("PRODUITS").Visible = True
Worksheets("BL CLIENT").Activate
Sheets("PRODUITS").Select
Worksheets("PRODUITS").Cells(1, 1) = 1
Range("A2:B3").Select
Range("B1").Activate

Par contre, lorsque je le teste dans un module à part, il fonctionne.
Pourquoi ?
Merci d'avance
Cordialement

[zyhack]

Bonjour

personellement je ne garderais que ça

Code :

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

1
2
Private Sub CommandButton1_Click()
Worksheets("PRODUITS").Cells(1, 1) = 1

le reste ne sert à rien !

[marco858]

Le problème vient par la suite. Visual basic me met une "erreur d'éxécution 1004" lorsqu' il passe au range.
Merci

Code :

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

1
2
3
Worksheets("PRODUITS").Cells(1, 1) = 1
Range("A1:C65000").Select
Selection.ClearContents

[zyhack]

bonjour

Tant que possible il faut éviter les .Select, Selection ...

De plus, à mon avis il faut que tu précise la feuille

Code :

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

Worksheets("Nom de la feuille").Range("A1:C65000").ClearContents