Erreur d'exécution '1004'
Résolu
aminesc
Messages postés
70
Statut
Membre
-
aminesc Messages postés 70 Statut Membre -
aminesc Messages postés 70 Statut Membre -
Bonjour,
je veux supprimer les donnes de plusieurs page , voici ce que j'ai fais :
voici le message qui excel me donne : Erreur d'exécution '1004' la méthode delete de la classe a échoué ??????????
je veux supprimer les donnes de plusieurs page , voici ce que j'ai fais :
Sub supClic()
If MsgBox("Confirmez-vous la suppression totale du Brouillard ?", vbYesNo, "Demande de confirmation de suppression") = vbYes Then
'supprimer tous les donnes de la feuille brouiard
Sheets("Brouillard_Caisse").Select
DernLigne_brouillard = Worksheets("Brouillard_Caisse").Range("B" & Rows.Count).End(xlUp).Row 'deteriner fin de ligne
debut_brouillard = 10
Rows(debut_brouillard & ":" & DernLigne_brouillard).Select
Selection.Delete Shift:=xlUp
'supprimer tous les donnes de la feuille pc compta
Sheets("PC_COMPTA").Select
DernLigne_COMPTA = Worksheets("PC_COMPTA").Range("A" & Rows.Count).End(xlUp).Row 'deteriner fin de ligne
debut_COMPTA = 2
Rows(debut_COMPTA & ":" & DernLigne_COMPTA).Select
Selection.Delete Shift:=xlUp
end if
end sub
| EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI Merci d'y penser dans tes prochains messages. |
voici le message qui excel me donne : Erreur d'exécution '1004' la méthode delete de la classe a échoué ??????????
A voir également:
- Erreur d'exécution '1004'
- Erreur 0x80070643 - Accueil - Windows
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- J'aime par erreur facebook notification - Forum Facebook
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
3 réponses
Bonjour,
Déjà.. tu n'es pas (il faut même éviter) obligé de faire un select ...puis un suppr...
ceci :
doit pouvoir s'écrire :
Ensuite... as tu essayé ton code en mode pas à pas histoire de voir si les variables debut_brouillard,DernLigne_brouillard ou celles de l'autre delete sont bonnes ?
Et puis.. sur laquelle des deux lignes exactement te met-il l'erreur ?
et vu que tu as debut_brouillard = 10
es tu sûr que DernLigne_brouillard est supérieur à 10 ?
Déjà.. tu n'es pas (il faut même éviter) obligé de faire un select ...puis un suppr...
ceci :
Rows(debut_brouillard & ":" & DernLigne_brouillard).Select Selection.Delete Shift:=xlUp
doit pouvoir s'écrire :
Rows(debut_brouillard & ":" & DernLigne_brouillard).Delete Shift:=xlUp
Ensuite... as tu essayé ton code en mode pas à pas histoire de voir si les variables debut_brouillard,DernLigne_brouillard ou celles de l'autre delete sont bonnes ?
Et puis.. sur laquelle des deux lignes exactement te met-il l'erreur ?
et vu que tu as debut_brouillard = 10
es tu sûr que DernLigne_brouillard est supérieur à 10 ?
Bonjour,
Et si, et si, et si...
Fouillons tous dans notre boule de cristal...
Mmmmhhh...
Et si...
Supposition 1 :
Et si tu déprotégeais ta feuille "Brouillard_Caisse"?
Et si, et si, et si...
Fouillons tous dans notre boule de cristal...
Mmmmhhh...
Et si...
Supposition 1 :
Et si tu déprotégeais ta feuille "Brouillard_Caisse"?
Sheets("Brouillard_Caisse").Select
ActiveSheet.Unprotect ' "motdepasse" éventuel
Bonjour,
essaies plutôt ceci
essaies plutôt ceci
With Sheets("Brouillard_Caisse")
dernligne = .Range("B" & Rows.Count).End(xlUp).Row 'deteriner fin de ligne
debut = 10
.Range("B" & debut & ":B" & dernligne).SpecialCells(xlCellTypeConstants, 23).EntireRow.Delete
End With
'...etc
Pour la dernière ligne c'est vérifier elle est toujours plus de 10 , j' ai essaye l'execution pas à pas le problème est dans cette ligne :
Déjà.. tu peux essayer de mettre un point d'arrêt sur ton code ( à la ligne indiquée par l'erreur) et de regarder, lorsque l'erreur se produit quelles sont les valeurs de tes différentes variables.
Ensuite, vérifie que tu n'as pas de lignes ou de colonnes fusionnées. Le souci peut venir de là.