Autres Excel 2007 - VBA - Y a t'il une incompatibilité entre commandbutton click et select ?

[Marcham]

Bonjour
Voici ce que j'ai fais dans un classeur vierge
* En feuille 1, saisir n'importe quoi dans les cellules A1 à D10 (par exemple)
Enregistrer une macro - que voici : Elle supprime une ligne entière
Sub Macro1()
' Macro1 Macro
Sheets("Feuil1").Select
Rows("3:3").Select
Selection.Delete Shift:=xlUp
End Sub

* En feuille 2 (ou dans la même feuille)
Insérer un commandbutton (activeX), puis cliquer dedans afin d'ouvrir le "Private Sub CommandButton1_Click()"
Lui adjoindre les 3 lignes de commande de la Macro1.
Private Sub CommandButton1_Click()
Sheets("Feuil1").Select
Rows("10:10").Select
Selection.Delete Shift:=xlUp
End Sub

* Fermer le mode création et cliquer sur le bouton.
J'ai alors le message : Erreur '1004: La méthode Select de la classe Range a échoué.

* Effacer les 3 lignes de commande du bouton et mettre à la place l'appel à la procédure Macro1
Private Sub CommandButton1_Click()
Macro1
End Sub
Et tout se passe à merveille.

Est-ce que c'est vrai chez vous aussi ?
Si oui, quelqu'un sait-il pourquoi ?
Je n'ai rien trouvé là-dessus sur internet.

Merci d'avance

 

[M12]

Bonjour,

Ta macro du CommandButton se trouve sur la feuille2 et ta macro demande d'aller sur la Feuille1 et de supprimer la ligne 10
OK mais la ligne 10 de la feuille 2

comme ceci cela fonctionne

Private Sub CommandButton1_Click()
Sheets("Feuil1").Select
Sheets("Feuil1").Rows("10:10").Select
Selection.Delete Shift:=xlUp
End Sub

Et surtout éviter les SELECT
une ligne suffit

Private Sub CommandButton1_Click()
Sheets("Feuil1").Rows("10:10").Delete Shift:=xlUp
End Sub

 

[Marcham]

Je vous remercie, je connaissais ta 2éme proposition mais si j'en suis à poser cette question, c'est que je montrais à un copain comment utiliser l'enregistrement de macro afin de commencer à mettre les doigts dans VBA et de fil en aiguille j'ai découvert cette originalité.
Donc vous me dîtes qu'il est possible de sélectionner une feuille à partir des lignes de commande d'un commandButton_click situé sur une autre feuille, mais par contre on ne peut pas le faire (ainsi) avec une ligne ou une cellule et que ceci est normal.
Connaissez vous d'autre trucs comme ça ? Ou un site (en français) qui en parle.

 

[Staple1600]

Bonsoir le fil

Une seule ligne suffit (et on peut même (selon conditions) la raccourcir un chouia )

Private Sub CommandButton1_Click()
Me.Rows(10).Delete
End Sub