Effacer contenu des cellule a l'ouverture Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
a
abdernino
Membre dévoué
Membre dévoué
Messages : 632
Appréciations reçues : 2
Inscrit le : 19 mars 2018
Version d'Excel : 2007

Message par abdernino » 17 janvier 2020, 11:11

bonjour,
je souhaiterais effacer le contenu des cellules a l'ouverture pour le 1 onglet ça marche très bien mais l'autre non peut-être le problème vient des cellules fusionnées sur modéle_sinistre je veux effacer c8: C11 et F8: F9, C17, F17, E18: E30 a l'ouverture du fichier choisir perte partielle
Autorisation V8.xlsm
(169.34 Kio) Téléchargé 8 fois
Avatar du membre
GVIALLES
Membre dévoué
Membre dévoué
Messages : 815
Appréciations reçues : 73
Inscrit le : 28 novembre 2017
Version d'Excel : 2016, 360
Téléchargements : Mes applications

Message par GVIALLES » 17 janvier 2020, 15:15

Bonjour Abdernino,

Peux-tu préciser le nom de la feuille pour laquelle l'effacement de se produit pas?
Cordialement,

Gérard
a
abdernino
Membre dévoué
Membre dévoué
Messages : 632
Appréciations reçues : 2
Inscrit le : 19 mars 2018
Version d'Excel : 2007

Message par abdernino » 17 janvier 2020, 15:24

Bonjourdans thisworkbook
Avatar du membre
GVIALLES
Membre dévoué
Membre dévoué
Messages : 815
Appréciations reçues : 73
Inscrit le : 28 novembre 2017
Version d'Excel : 2016, 360
Téléchargements : Mes applications

Message par GVIALLES » 17 janvier 2020, 16:29

Abdernino,

Je te propose de remplacer dans le module "Workbook_ Open" la ligne :
Sheets("Modèle_Sinistre").Cells("C8").MergeArea.ClearContents
par
Sheets("Modèle_Sinistre").Range("C8").MergeArea.ClearContents
Je profite de l'occasion pour te faire les 2 remarques suivantes :
-Tu utilises en début de module l'instruction "On error Resume Next". Cette instruction est à utiliser avec prudence : elle a pour effet de masquer toutes les erreurs d'exécution pouvant se produire par la suite.
Il y a quelques cas où on est contraint d'y avoir recours mais en prenant soin de l'annihiler dès que possible par un "On Error Goto 0" par exemple.
En tout état de cause, je ne vois pas de nécessité de l'utiliser ici.
Si tu la supprimes, tu pourras te rendre compte compte que la ligne suivant celle que je te propose de modifier génère, elle aussi une erreur à l'exécution :
Sheets("Base_Epave").Range("F9:F12,F14,F17").ClearContents
-Tu dois prendre la précaution de compiler ton code VBA dès que tu fais une modification pour te rendre compte des erreurs de syntaxe ou d'appellation que nous commettons tous plus ou moins.
En procédant de la sorte, tu seras sûr d'avoir un code "propre" avant de sauvegarder ton projet.
Si tu compiles ton projet, tu vas trouver une erreur d'appellation dans le module "Bt1_Click()" de la feuille 3 "Autorisation"...
Cordialement,

Gérard
a
abdernino
Membre dévoué
Membre dévoué
Messages : 632
Appréciations reçues : 2
Inscrit le : 19 mars 2018
Version d'Excel : 2007

Message par abdernino » 17 janvier 2020, 19:32

Bonjour ,
Merci beacuoup mais mon probleme quand je mets
Sheets("Modèle_Sinistre").Range("C8").MergeArea.ClearContents ca marche trés bien mais je mets ca
Sheets("Modèle_Sinistre").Range("C8:C11").MergeArea.ClearContents ca marche pas
Avatar du membre
GVIALLES
Membre dévoué
Membre dévoué
Messages : 815
Appréciations reçues : 73
Inscrit le : 28 novembre 2017
Version d'Excel : 2016, 360
Téléchargements : Mes applications

Message par GVIALLES » 24 janvier 2020, 10:12

Bonjour Abdernino,

Je te propose de remplacer :
Sheets("Modèle_Sinistre").Range("C8:C11").MergeArea.ClearContents
par :
Sheets("Modèle_Sinistre").Range("C8").MergeArea.ClearContents
Sheets("Modèle_Sinistre").Range("C9").MergeArea.ClearContents
Sheets("Modèle_Sinistre").Range("C10").MergeArea.ClearContents
Sheets("Modèle_Sinistre").Range("C11").MergeArea.ClearContents
Cordialement,

Gérard
a
abdernino
Membre dévoué
Membre dévoué
Messages : 632
Appréciations reçues : 2
Inscrit le : 19 mars 2018
Version d'Excel : 2007

Message par abdernino » 24 janvier 2020, 10:14

Bonjour ,
Merci beaucoup pour ton aide
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message