Erreur d'exécution '1004'

Résolu

aminesc Messages postés 70 Date d'inscription Statut Membre Dernière intervention -
aminesc Messages postés 70 Date d'inscription Statut Membre Dernière intervention - 7 juin 2016 à 13:18

Bonjour,

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 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
J'aime par erreur facebook notification - Forum Facebook
Code erreur f3500-31 ✓ - Forum Bbox Bouygues
Java code erreur 1603 ✓ - Forum Windows

3 réponses

Réponse 1 / 3

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

Bonjour,

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 ?

aminesc Messages postés 70 Date d'inscription Statut Membre Dernière intervention

Bonjour jordane45,

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 :

Rows(debut_brouillard & ":" & DernLigne_brouillard).Delete Shift:=xlUp

aminesc Messages postés 70 Date d'inscription Statut Membre Dernière intervention

Toujours pas de solution

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752 > aminesc Messages postés 70 Date d'inscription Statut Membre Dernière intervention

Je n'ai pas eu le temps de reagarder.
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à.

Réponse 2 / 3

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

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"?

Sheets("Brouillard_Caisse").Select
ActiveSheet.Unprotect ' "motdepasse" éventuel

aminesc Messages postés 70 Date d'inscription Statut Membre Dernière intervention

Bonjour pijaku,

et oui , et oui

ta raison mon pote les pages étais verrouiller .

merci a toi et a tous

Réponse 3 / 3

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention

Bonjour,
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

aminesc Messages postés 70 Date d'inscription Statut Membre Dernière intervention

Bonjour michel_m,
Toujours sa marche pas voici le message qui apparais
:impossible d'utiliser cette commande sur des sélections qui se superposent.

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752 > aminesc Messages postés 70 Date d'inscription Statut Membre Dernière intervention

Je répète au cas où :

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.

aminesc Messages postés 70 Date d'inscription Statut Membre Dernière intervention > jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention

Bonjour,
l'erreur indique est dans la ligne :

Rows(debut_brouillard & ":" & DernLigne_brouillard).Delete Shift:=xlUp

je vois pas comment faire un arrêt , pour les valeurs debut_brouillard=10
DernLigne_brouillard=12.

Discussions similaires

Erreur 3005 sur France TV

Code erreur 3000

Panne T32 sur telecommande Orange

Problème streaming France 2

impossible lire vidéos france 2

Votre réponse

Discussions similaires