Erreur macro
Fermé
Totomacro
-
29 juil. 2018 à 19:31
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 - 11 août 2018 à 08:26
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 - 11 août 2018 à 08:26
A voir également:
- Erreur macro
- Erreur 0x80070643 - Accueil - Windows
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 1001 outlook - Accueil - Bureautique
5 réponses
danielc0
Messages postés
1342
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
18 décembre 2024
155
29 juil. 2018 à 19:58
29 juil. 2018 à 19:58
Bonjour,
Daniel
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
voilà le fichier https://www.cjoint.com/c/HGDsK7je5YH
danielc0
Messages postés
1342
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
18 décembre 2024
155
29 juil. 2018 à 21:05
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
Daniel
Î
danielc0
Messages postés
1342
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
18 décembre 2024
155
30 juil. 2018 à 10:56
30 juil. 2018 à 10:56
??? Est-ce que ça fonctionne ?
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
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
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
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
17206
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 novembre 2024
1 711
Modifié le 1 août 2018 à 10:13
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
f894009
Messages postés
17206
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 novembre 2024
1 711
1 août 2018 à 15:15
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...................
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...................
f894009
Messages postés
17206
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 novembre 2024
1 711
1 août 2018 à 19:46
1 août 2018 à 19:46
Re,
Peut-être, mais le code que j'ai corrigé est pour la feuille d'index 3
Peut-être, mais le code que j'ai corrigé est pour la feuille d'index 3
