Erreur macro
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) & _
5 réponses
Un extrait de discussion porte sur une macro VBA qui tente d’insérer des informations formatées via ActiveCell.Offset(0, 6), incluant des balises [b], [color] et des retours à la ligne. Des échanges évoquent des difficultés liées au placement sur la bonne feuille (feuille 2 ou 3), au moment de l’exécution et à End Sub, qui semble interrompre les commandes. Plusieurs messages mentionnent une erreur d’exécution 70 ou une autorisation refusée tandis que certains proposent de retirer la ligne ActiveCell.Offset(0, 6) pour que la macro fonctionne, même partiellement. En cas de persistance du bug, il est suggéré de vérifier le positionnement des cellules et la cohérence des variables utilisées pour le formatage afin d’éviter retours à la ligne et balises mal interprétées.
-
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 -
Non ça ne marche toujours pas qu'est-ce que Dim ?
voilà le fichier https://www.cjoint.com/c/HGDsK7je5YH -
Î
-
-
-
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.
-
-
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 -
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-
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 -
-
-
-
-
