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