problème avec les macros vba

bonjour,
J'ai créé un bouton excel et lui ai associé un code lorsque l'on clic dessu. Au départ mon code faisait "pleins" de choses mais blloqué sur un simple changement de feuil et sélection d'une cellule. Pour voir si le problème ne venait pas du code précédemment exécuté j'ai réduit tou mon code a cette simpl écriture :

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() Sheets("feuil2").Select Range("B1").Select End Sub

---

Le problème c'est que je bascule bien sur la feuille 2 (le bouton est sur la feuille 1) mais lors de la sélection de B1 j'ai ce message :
Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet

En gros, dès que je change de feuil je ne peux plus rien faire (ni séléctioner de cellule, ni les activer, ni coller une sélection prise dans la feuille 1, ni importer des données...)
Par contre si je reste sur la feuille 1 je peux par exemple sélectionner la cellule A1 ou encore importer des données...

D'où peut venir le problème?

Merci pour votre aide

Bonjour

Essaye ce code :

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() With Sheets("Feuil2") .Activate .Range("B1").Activate End With End Sub

---

Amicalement
Nad

Bonjour le forum,

essaie deja de réduire ton code en fesant comme ça

Code:

---

Sheets("Feuil2").[B2].Select

---

A +++


Oups , quel horeur je me suis tremper je m'escuse avoir un peu la tete ailleurs:oops:

Citation:

---

Envoyé par PUARAI

Bonjour le forum,

essaie deja de réduire ton code en fesant comme ça

Code:

---

Sheets("Feuil2").[B2].Select

---

---

Je viens d'essayer et j'obtien exactement le même type d'erreur

Citation:

---

Envoyé par Nad-Dan

Bonjour

Essaye ce code :

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() With Sheets("Feuil2") .Activate .Range("B1").Activate End With End Sub

---

Amicalement
Nad

---

Merci beaucoup cela fonctionne!!
Pourriez-vous m'expliquer pourquoi il faut passer par cette forme la? Je ne me suis jamais servie de cette formule sur les autres pc que j'utilise mais toujours de celle citée dans mon premier message sans souci!

Citation:

---

Oups , quel horeur je me suis tremper je m'escuse avoir un peu la tete ailleurs

---

C'est pour ça que j'ai ecrit ça juste au dessus

A +++ et bon courage pour la suite

Si tu veux le même écriture mais en une seule ligne

Code:

---

1 2 3

Private Sub CommandButton1_Click() With Sheets("Feuil2"): .Activate: .Range("A1").Activate: End With End Sub

---