Excel / VBA
Résolu
Cheeko
-
Cheeko -
Cheeko -
Bonjour a tous,
J'ai un petit soucis qui me prend la tete depuis ce matin.
En fait j'ai un classeur excel comportant 3 feuilles.
Feuil1 : plusieurs lignes avec du texte quelconque
Feuil2 : La cellule A1 peut avoir comme texte "oui" ou "non"
(le reste est vide)
Feuil3 : un bouton de commande qui doit effacer la ligne 2 de la feuil1 si la cellule A1 de la feuil2 = "oui"
J'ai tapé ce code pour le bouton de commande :
Private Sub CommandButton1_Click()
If Feuil2.Range("A1") = "oui" Then
Feuil1.Range("B1").EntireRow.Delete Shift:=xlUp
End If
End Sub
Et la c'est le drame,
erreur d'exécution '1004'
la méthode delete de la classe range a échoué !
J'ai testé tout ce que j'ai pu trouver comme code sur les forums mais rien n'y fait !
Pouvez vous m'aider !
merci d'avance
J'ai un petit soucis qui me prend la tete depuis ce matin.
En fait j'ai un classeur excel comportant 3 feuilles.
Feuil1 : plusieurs lignes avec du texte quelconque
Feuil2 : La cellule A1 peut avoir comme texte "oui" ou "non"
(le reste est vide)
Feuil3 : un bouton de commande qui doit effacer la ligne 2 de la feuil1 si la cellule A1 de la feuil2 = "oui"
J'ai tapé ce code pour le bouton de commande :
Private Sub CommandButton1_Click()
If Feuil2.Range("A1") = "oui" Then
Feuil1.Range("B1").EntireRow.Delete Shift:=xlUp
End If
End Sub
Et la c'est le drame,
erreur d'exécution '1004'
la méthode delete de la classe range a échoué !
J'ai testé tout ce que j'ai pu trouver comme code sur les forums mais rien n'y fait !
Pouvez vous m'aider !
merci d'avance
A voir également:
- Excel / VBA
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
Je viens de tester ton code, plus de message d'erreur mais la ligne ne se supprime pas ! :(
mais le meme problème survient !
je comprend pas pourquoi ça ne fonctionne pas !