Discussion :

[jess59]

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 :

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

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

[Nad-Dan]

Bonjour

Essaye ce code :

Code :

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

1
2
3
4
5
6
7
 
Private Sub CommandButton1_Click()
With Sheets("Feuil2")
.Activate
.Range("B1").Activate
End With
End Sub

Amicalement
Nad

[jess59]

Bonjour

Essaye ce code :

Code :

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

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!

[PUARAI]

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

[PUARAI]

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

Code :

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

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

[PUARAI]

Bonjour le forum,

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

Code :

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

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

A +++


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

[jess59]

Bonjour le forum,

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

Code :

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

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

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