Erreur macro

Fermé

Totomacro - 29 juil. 2018 à 19:31
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 11 août 2018 à 08:26

Bonjour,

Pouvez vous me dire si vous payez une erreur ou plus svp?

ActiveCell.Offset(0, 6) = "[b]Pseudonyme : [/b][color=#FF0000][b]" & zpseudo & "[/b][/color]" & Chr(10) & _
"[b]Nom du personnage : [/b][color=#FF0000][b]" & zndp & "[/b][/color]" & Chr(10) & _
"[b]Date : [/b][color=#0000FF][b]" & zdte & "[/b][/color]"& Chr(10) & _& Chr(10) & _
"[b]Motif : [color=#008000]" & zmotif & "[/color][/b]& Chr(10) & _
"[b]source: [color=#FF8C00]" & zsource & "[/color][/b]" & Chr(10) & _

A voir également:

Erreur macro
Erreur 0x80070643 - Guide
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité

5 réponses

Réponse 1 / 5

danielc0 Messages postés 838 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 23 avril 2024 74
29 juil. 2018 à 19:58

Bonjour,

Dim zpseudo, zndp, zdte, zmotif, zsource
ActiveCell.Offset(0, 6) = "[b]Pseudonyme : [/b][color=#FF0000][b]" & zpseudo & "[/b][/color]" & Chr(10) & _
"[b]Nom du personnage : [/b][color=#FF0000][b]" & zndp & "[/b][/color]" & Chr(10) & _
"[b]Date : [/b][color=#0000FF][b]" & zdte & "[/b][/color]" & Chr(10) & Chr(10) & _
"[b]Motif : [color=#008000]" & zmotif & "[/color][/b]" & Chr(10) & _
"[b]source: [color=#FF8C00]" & zsource & "[/color][/b]" & Chr(10)

Daniel

Réponse 2 / 5

Totomacro
29 juil. 2018 à 20:38

Non ça ne marche toujours pas qu'est-ce que Dim ?

voilà le fichier https://www.cjoint.com/c/HGDsK7je5YH

danielc0 Messages postés 838 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 23 avril 2024 74
29 juil. 2018 à 21:05

Je viens de reporter mes modifications dans ton classeur. Visiblement, toi, tu ne l'as pas fait ! Pour "Dim", regarde dans l'aide VBA.

Daniel

Totomacro
29 juil. 2018 à 21:08

Si je l'avais fais mais comme ça ne marchait pas j n'ai pas enregistré

Réponse 3 / 5

Totomacro
30 juil. 2018 à 01:27

danielc0 Messages postés 838 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 23 avril 2024 74
30 juil. 2018 à 10:56

??? Est-ce que ça fonctionne ?

Totomacro
30 juil. 2018 à 17:08

ah non pour ça que je n'ai pas enregistré

Totomacro
31 juil. 2018 à 18:12

J'avais réussi a faire ce que je voulais avec l'aide de M@rina https://forums.commentcamarche.net/forum/affich-35455074-macro-word mais comme un naze j'ai voulu essayer autre chose qui n'a pas marcher et j'ai écrasé mon fichier donc j'ai tout recommencer en y ajoutant des choses mais marche pas.

Réponse 4 / 5

Totomacro
31 juil. 2018 à 22:48

et quand je retire

ActiveCell.Offset(0, 6) = "[b]Pseudonyme : [/b][color=#FF0000][b]" & zpseudo & "[/b][/color]" & Chr(10) & _
"[b]Nom du personnage : [/b][color=#FF0000][b]" & zndp & "[/b][/color]" & Chr(10) & _
"[b]Date : [/b][color=#0000FF][b]" & zdte & "[/b][/color]"& Chr(10) & _& Chr(10) & _
"[b]Motif : [color=#008000]" & zmotif & "[/color][/b]& Chr(10) & _
"[b]source: [color=#FF8C00]" & zsource & "[/color][/b]" & Chr(10) & _

le reste re marche

hors le faite que ça ne va pas dans le tableau formaté mais dessous mais lui aussi quand je le retire la marcro marche pas

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

Totomacro
1 août 2018 à 03:33

J'ai essayé de le mettre en page 3 mais non

Sheets("3").Activate
Range("A1").Select
ActiveCell = "[b]Pseudonyme : [/b][color=#FF0000][b]" & zpseudo & "[/b][/color]" & Chr(10) & _
"[b]Nom du personnage : [/b][color=#FF0000][b]" & zndp & "[/b][/color]" & Chr(10) & _
"[b]Date : [/b][color=#0000FF][b]" & zdte & "[/b][/color]"& Chr(10) & _& Chr(10) & _
"[b]Motif : [color=#008000]" & zmotif & "[/color][/b]& Chr(10) & _
"[b]source: [color=#FF8C00]" & zsource & "[/color][/b]" & Chr(10) & _
"[b]source: [color=#000000]" & zsmsg & "[/color][/b]" & Chr(10) & _
End Sub

je pense que le souci est après le = mais je ne le vois pas

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
Modifié le 1 août 2018 à 10:13

Bonjour a tous

Sub test()
Sheets("3").Activate
Range("A1").Select
ActiveCell = "[b]Pseudonyme : [/b][color=#FF0000][b]" & zpseudo & "[/b][/color]" & Chr(10) & _
"[b]Nom du personnage : [/b][color=#FF0000][b]" & zndp & "[/b][/color]" & Chr(10) & _
"[b]Date : [/b][color=#0000FF][b]" & zdte & "[/b][/color]" & Chr(10) & Chr(10) & _
"[b]Motif : [color=#008000]" & zmotif & "[/color][/b]" & Chr(10) & _
"[b]source: [color=#FF8C00]" & zsource & "[/color][/b]" & Chr(10) & _
"[b]source: [color=#000000]" & zsmsg & "[/color][/b]" & Chr(10)
End Sub

Totomacro
Modifié le 1 août 2018 à 13:26

Bonjour, merci de la réponse.

Voilà ce que ça donne

http://oi68.tinypic.com/212czl1.jpg

et quand je rajoute le end sub, ça ignore la commande de la page 3 et les 2 premières marchent.

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
1 août 2018 à 15:15

Re,

Le code que je vous ai mis est une procedure avec un debut: Sub Test et une fin: End Sub.
Si vous voulez integrer la partie qui vous interesse, ne prenez que celle-ci...................

Totomacro
1 août 2018 à 19:24

? Pourtant j'arrive a générer en page 1 et 2 pas possible de faire plus ?

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
1 août 2018 à 19:46

Re,
Peut-être, mais le code que j'ai corrigé est pour la feuille d'index 3

Discussions similaires

Instagram "Désolé, une erreur s'est produite"

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Erreur de lecture sur iptv smarters

Problème de décodeur TV Bouygues Telecom

Discussions similaires

Newsletters