Erreur macro

Totomacro -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
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:

5 réponses

Réponse 1 / 5
danielc0 Messages postés 1859 Date d'inscription   Statut Membre Dernière intervention   231
 
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
0
Réponse 2 / 5
Totomacro
 
Non ça ne marche toujours pas qu'est-ce que Dim ?

voilà le fichier https://www.cjoint.com/c/HGDsK7je5YH
0
danielc0 Messages postés 1859 Date d'inscription   Statut Membre Dernière intervention   231
 
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
0
Totomacro
 
Si je l'avais fais mais comme ça ne marchait pas j n'ai pas enregistré
0
Réponse 3 / 5
Totomacro
 
Î
0
danielc0 Messages postés 1859 Date d'inscription   Statut Membre Dernière intervention   231
 
??? Est-ce que ça fonctionne ?
0
Totomacro
 
ah non pour ça que je n'ai pas enregistré
0
Totomacro
 
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.
0
Réponse 4 / 5
Totomacro
 
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
0

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

Posez votre question
Réponse 5 / 5
Totomacro
 
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
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
Totomacro
 
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.
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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...................
0
Totomacro
 
? Pourtant j'arrive a générer en page 1 et 2 pas possible de faire plus ?
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,
Peut-être, mais le code que j'ai corrigé est pour la feuille d'index 3
0

Discussions similaires

Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses
Code erreur 3000
Laurent -
JM -

5 réponses
Panne T32 sur telecommande Orange
rayseg22G -
Fifi -

6 réponses
impossible lire vidéos france 2
pauline21 -
freezet -

5 réponses
Problème streaming France 2
95 indomptable -
robmat2005 -

1 réponse