Word Code VBA Excel sur Word

  • Initiateur de la discussion Initiateur de la discussion Achille_1
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Achille_1

XLDnaute Nouveau
Bonjour,
Je souhaite rédiger un rapport d'une application que j'ai créé sur Excel et je ne sais pas s'il y a un moyen de mettre du code avec un format correct.
Quelque chose du même genre que sur le forum :
VB:
Private Sub cb_créa_dossier_Click()
Recherche_brut.Show 0
Unload Me
'Opérations.Aide_2.Visible = False
'Opérations.cb_insert_réf.Visible = False
Opérations.Frame2.Visible = False
Opérations.modèle1.Visible = False
Opérations.modèle2.Visible = False
Opérations.raz.Visible = False
Opérations.supp_réf.Visible = False
Opérations.dossier_réf.Visible = False
Opérations.result2.Visible = False

End Sub

Merci d'avance pour les réponses !

Achille
 
Bonsoir le fil, Achille_1

•>Achille_1
Issu de mes archives anglophones
Je te laisse tester
Et si tu as des questions, n'hésites pas.
(ou sois un tantinet curieux (if you see what I mean) 😉)
VB:
Sub VBA_TextFormat()
'PURPOSE: Format selected text similar to VBE appearance
'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault

Dim MySelection As Range
Dim MySelection_Limit As Range
Dim BlueArray As Variant

BlueArray = Array("End Sub", "End If", "For ", "In ", "Do While", "Sub ", "Set ", "As ", _
  "As Single", "Dim ", "With ", "End With", "If ", "Else ", "ElseIf ", "On Error GoTo ", _
  "On Error GoTo 0", "Sub ", "Exit Sub", "For Each ", "Next ", "Private Sub ", " True", _
  " False", " To ", " LBound", " UBound", "Wend", "While ", " Then", "Preserve ")

Set MySelection = Selection.Range
Set MySelection_Limit = MySelection.Duplicate

'Adjust font type and font size
  MySelection.Font.Name = "Courier New"
  MySelection.Font.Size = 10

'Loop through words that should be blue
  For x = LBound(BlueArray) To UBound(BlueArray)

  Set MySelection = Selection.Range
  Set MySelection_Limit = MySelection.Duplicate

  With MySelection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = BlueArray(x)
    .Replacement.Text = BlueArray(x)
    .Forward = True
    .Wrap = wdFindStop
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Replacement.Font.Color = wdColorDarkBlue

    While .Execute
      If MySelection.InRange(MySelection_Limit) Then
        MySelection.Font.Color = wdColorDarkBlue
        MySelection.Collapse wdCollapseEnd
      End If
    Wend
  End With
    
Next x

'Look for a Quote and changes the rest of that line's font color to Green
  With Selection.Find
    .ClearFormatting
    .Text = "'[!^13""""]@[^13]"
    .Replacement.ClearFormatting
    .Replacement.Text = ""
    .Replacement.Font.Color = wdColorGreen
    .Format = True
    .Forward = True
    .Wrap = wdFindStop
    .MatchCase = False
    .MatchWholeWord = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
  End With
End Sub
 
Bonsoir,
Comme quoi les reliques ou archives, ça sert !
Je ne maîtrise pas Word et donc j'ai la quasi majorité des mots soulignés par une vague rouge, mais ça fonctionne bien ( en ajoutant quelques mots clés manquants ).
Si j'ai bien compris , il faut importer dans Word le texte des modules, le sélectionner et exécuter le code ?
A la fin de l'exécution, le texte est formaté à l'image du VBE. Super !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
45
Réponses
3
Affichages
216
Réponses
2
Affichages
371
Réponses
5
Affichages
466
Retour