VBA EXCEL erreur de compilation

Résolu

micheldu52 Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
micheldu52 Messages postés 5 Date d'inscription Statut Membre Dernière intervention - 26 oct. 2019 à 19:55

Bonjour,
J'a un soucis : le message
"erreur de compilation : fonction ou variable attendu"
et "selection" (en dessous de rows("5:5) est en surbrillance
Voici le code :

Sub REPORT()
'
' REPORT Macro
'
'
  Sheets("base Faits Etablissement").Select
  Rows("5:5").Select
  selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  Range("A6:EZ6").Select
  selection.AutoFill Destination:=Range("A5:EZ6"), Type:=xlFillDefault
  Sheets("saisie simplifiée").Select
  Range("A26:BZ26").Select
  selection.Copy
  Sheets("base Faits Etablissement").Select
  Range("G5").Select
  selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
  Sheets("saisie simplifiée").Select
  Range( _
  "A2:B2,F2:G2,A7:D7,H6,A12:C12,E12:I12,K12:M12,O12:V12,X12:AA12,AC12,A17,D17:K18,L18,N17:P17,R17:S17,X17:AB17" _
  ).Select
  Range("X17").Activate
  Application.CutCopyMode = False
  selection.ClearContents
End Sub

Pourtant sur des essais simplifiés le même code marche…..
Help !

Le but est d'insérer une ligne 5 (par tassement vers le bas des autres lignes), de récupérer toutes les formules des cellules (entre A et EZ) et de mettre à jour certaines (à partir de G)
Débutant en VBA je ne trouve pas ce qu'il faut faire !

Merci d'avance pour vos lumières.

Michel

A voir également:

Erreur de compilation vba
Erreur 0x80070643 - Accueil - Windows
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
Erreur 4101 france tv - Forum Lecteurs et supports vidéo
Erreur 4201 france tv ✓ - Forum Réseaux sociaux
J'aime par erreur facebook notification - Forum Facebook

1 réponse

Réponse 1 / 1

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

Bonjour,

Il ne semble y avoir aucun souci avec le code que tu nous montres.
Le classeur ne serait pas protégé ?
Il y a des cellules verrouillées ?

Difficile de répondre sans avoir le fichier sous la main,

micheldu52 Messages postés 5 Date d'inscription Statut Membre Dernière intervention

Bonjour,
Merci pour ta réponse rapide!
Le classeur n'est pas protégé, les cellules ne sont (plus) verrouillées.
Les données sont "sensibles". J'ai dégradé un fichier que je peux te donner : il a toujours le même symptôme qui se produit…. (mais les données sensibles ont été modifiées)
Question (très) bête du débutant sur ce forum: je fais comment pour te le donner?

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

Tu peux le déposer sur un site comme celui là :
https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers

micheldu52 Messages postés 5 Date d'inscription Statut Membre Dernière intervention

https://wetransfer.com/downloads/ac7f910b36596c9a4fbc0cf5e4c7b54720191025210036/f445730472c895417c657d26ece1785920191025210036/e15289

va dans l'onglet "saisie simplifiée" et clique sur "mise à jour" cela devrait renvoyer les informations dans l'autre onglet

Ce fichier est fortement dégradé, mais j'ai laissé la structure "qui coince" (macro "report")

Merci d'avance pour ton aide !

Michel

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour a vous deux,

Le probleme vient de selction, le s n'est pas en majuscule!!!!!
J'ai recupere votre fichier, meme avec l'enregistreur de macro le probleme existe!!!!!

Suite:
Ai trouve, vous avez une procedure qui s'appelle selection dans le Module1

Sub selection()
'
' selection Macro
'

'
    Sheets("Selection").Select
End Sub

Suite:
Apres avoir renommer, toujours de meme!!

Suite:
Ma faute, avais vire deux sélections (a eviter, mais petite modif des lignes precedentes) et pas mis en commentaire les lignes selection.
Par contre le s de selection toujours en minuscule mais ca marche!!!
Bien renommer la procedure selection sinon plante
Remarque: tres lent en excecution!!

micheldu52 Messages postés 5 Date d'inscription Statut Membre Dernière intervention

un grand MERCI à vous deux !

J'étais focalisé sur la procédure qui s'arrêtait mais je n'avais pas pensé qu'un onglet nommé "selection" et une macro nommée "selection" entreraient en conflit avec la fonction selection d'excel….

En la renommant ("choix" en l'occurrence) ca marche impec ! Je comprends maintenant pourquoi mes tests simplifiés marchaient…. il n'y avait pas l'onglet et la macro évoquées plus haut!

Première utilisation de ce forum, solution en 24h, encore MERCI !!!!

PS: l'exécution est lente, car il y a (dans le fichier réel) pas loin de 100 000 calculs en réalité et qui doivent être relancés en fonction des saisies faites et des requêtes de l'utilisateur. Je vais d'ailleurs maintenant reprendre cela pour voir si certains calculs peuvent être optimisés et moins gourmand en "prise d'information" dans toute la base de données, et s'il n'y a pas des "calculs doublonnés" ce qui n'est pas impossible. Je devrais arriver à l'accélérer (ou du moins à la ralentir moins!).

Je reprends mon développement du "vrai" outil !

Michel

"ils ne savaient pas que c'était impossible alors ils l'ont fait" (Marx Twain)

Discussions similaires

Erreur 3005 sur France TV

Erreur d'exécution 13 Incompatibilité de type

Erreur de lecture sur iptv smarters

Code erreur 3000

Panne T32 sur telecommande Orange

Votre réponse

Discussions similaires