excel 2016 erreur dans macro

excel 2016 erreur dans macro Sujet résolu

Ajouter un message à la discussion

TJA435

Posté le 01/06/2020 @ 14:41

Bonjour,

Dans une macro récupérée sur internet, en la recopiant, j' ai des erreurs que je n' arrive pas à corriger:

voici le code sous un autre forme:

https://www.cjoint.com/c/JFbmMrtLmBB

D' autre part peut-on lister les lignes de code d' une macro ?

Merci pour votre aide.

poussebois

Posté le 01/06/2020 à 16:08

Grand Maître astucien

Bonjour ,

Si tu pouvais joindre le fichier Excel avec la macro incluse, ce serait mieux !

Et en même temps le lien d'où tu as trouvé la macro.

Pour lister les lignes de code, je procède par un copié/collé dans Word et j'imprime.

@ +

TJA435

Posté le 01/06/2020 à 17:07

Merci pour ta réponse.

Fichier trouvé sur internet :

https://www.cjoint.com/c/JFbpbVyry8B

Fichier excel avec macro

https://www.cjoint.com/c/JFbpcz4caqB

Pour le copier/coller, on perd la couleur ?

poussebois

Posté le 02/06/2020 à 08:33

Grand Maître astucien

Bonjour ,

Oui, une seule instruction par ligne, c'est mieux !

Je te demandais le lien du site où tu avais trouvé cette macro pour voir le contexte. Au lieu de cela, tu envoies la macro sous forme de pavé illisible.

Heureusement qu'on la voit clairement dans la Feuil2 de VBA. En séparant les instructions comme l'a fait Debrief , les lignes rouges disparaissent.

Pour le copié/collé, je viens de vérifier, effectivement, on perd la couleur. Je n'avais jamais fait attention car j'imprime toujours en N&B.

@ +

TJA435

Posté le 02/06/2020 à 17:28

Merci pour vos réponses.

J 'ai envoyé la macro sous la forme que je l' ai trouvée sur internet (refaite par Myta), j' ai essayé de la remettre sous forme lisible et je n' y suis pas arrivé.

Ça marche après vos corrections.

J' ai eu de la peine avec : Date_Fmt = Application.International(xlDateOrder)

Merci pour votre aide.

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !

Les bons plans du moment PC Astuces

Tous les Bons Plans

Gratuit

Jeu PC Borderlands 3 gratuit
Valable jusqu'au 28 Mai

Epic Game Store offre actuellement le jeu PC Borderlands 3. Le jeu de tir de référence est de retour avec ses trilliards de flingues pour une aventure démente ! Découvrez de nouveaux mondes et affrontez vos ennemis avec l'un des quatre Chasseurs de l'Arche proposés, des héros en quête de trésors avec chacun leurs propres compétences et options de personnalisation. Jouez en solo ou en coop pour sauver la galaxie d'une secte et de ses leaders sans pitié. Jeu en français. Pegi 18

> Voir l'offre

19,99 €

Bracelet connecté Xiaomi Mi Band 5 avec tracker cardiaque IP67, écran OLED et Bluetooth 5 à 19,99 €
Valable jusqu'au 22 Mai

Darty fait une promotion sur le bracelet connecté de fitness Xiaomi Mi Band 5 avec tracker cardiaque à 19,99 €. Ce bracelet est étanche IP67 et possède le bluetooth 5.0. Avec lui, vous pouvez suivre votre rythme cardiaque, mais également vos pas et vos calories dépensées que vous pourrez afficher sur son écran OLED couleur, de même que l'heure courante. Il intègre également un réveil vibreur silencieux (pratique pour se réveiller la nuit sans réveiller sa moitié) et peut suivre vos phases de sommeil. Vous pourrez configurer le bracelet et suivre votre activité depuis n'importe quel appareil mobile avec Bluetooth 5 sous Android ou iOS. Vous pourrez contrôler votre musique du téléphone depuis le bracelet et afficher vos notifications.

Sa batterie autorise une autonomie de 20 jours entre 2 recharges.

> Voir l'offre

699,99 €

Ultrabook Lenovo Yoga Slim 7 Pro 14 pouces (2.8K IPS, Core i5, 1Go RAM, SSD 512 Go) à 699,99 €
Valable jusqu'au 23 Mai

Fnac fait une belle promotion sur l'ordinateur portable Lenovo Yoga Slim 7 Pro 14 pouces proposé à 899,99 €. Or Lenovo rembourse actuellement 200 € pour l'achat de ce PC qui vous reviendra à 699,99 € après remboursement.

Ce portable est bien équipé avec son écran 2.8K IPS (2880x1800) 90 Hz, son processeur Intel Core i5-11300H, ses 16 Go de RAM, son SSD de 512 Go. Il possède le Bluetooth 5.1 et le WiFi 802.1 ax, 2 ports USB 3.2, 1 port USB C 3.2, une caméra HD. L'autonomie annoncée est de 12h et la charge rapide permet de le ramener à 50% de sa capacité en seulement 30 minutes. Il pèse 1,31 kg et tourne sous Windows 11 Famille.

> Voir l'offre