[VBA] Code pour modifié format du texte dans zone de texte
Résolu/Fermé
Floki72450
Floki72450
- Messages postés
- 34
- Date d'inscription
- vendredi 17 octobre 2014
- Statut
- Membre
- Dernière intervention
- 23 février 2016
Floki72450
- Messages postés
- 34
- Date d'inscription
- vendredi 17 octobre 2014
- Statut
- Membre
- Dernière intervention
- 23 février 2016
A voir également:
- Vba format texte
- Format texte vba - Meilleures réponses
- Vba format cellule texte - Meilleures réponses
- [Excel VBA] Formater une cellule en texte ✓ - Forum - VB / VBA
- Excel vba format texte ✓ - Forum - VB / VBA
- [VBA] Code pour modifié format du texte dans zone de texte ✓ - Forum - VB / VBA
- Problème format texte en nombre (VBA) ✓ - Forum - VB / VBA
- Convertir une cellule de format texte en format nombre VBA Excel Combobox ✓ - Forum - Excel
1 réponse
cs_Le Pivert
3 févr. 2016 à 17:44
- Messages postés
- 7784
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 24 juin 2022
3 févr. 2016 à 17:44
Bonjour,
Voici un exemple a adapter à la configuration. J'ai mis une MsgBox pour connaitre le nom des shapes. Ensuite je me suis amusé à modifier une shape avec un peu de fantaisie :-)
Voici un exemple a adapter à la configuration. J'ai mis une MsgBox pour connaitre le nom des shapes. Ensuite je me suis amusé à modifier une shape avec un peu de fantaisie :-)
Private Sub CommandButton1_Click() Dim oField As Field Dim oSection As Section Dim oHeader As HeaderFooter Dim oFooter As HeaderFooter Dim oSh As Shape For Each oSection In ActiveDocument.Sections For Each oFooter In oSection.Footers If oFooter.Exists Then For Each oField In oFooter.Range.Fields oField.Update Next oField End If Next oFooter For Each oHeader In oSection.Headers If oHeader.Exists Then For Each oField In oHeader.Range.Fields oField.Update Next oField End If Next oHeader Next oSection 'Boucle sur tous les shapes du document For Each oSh In ActiveDocument.Shapes 'Selection du Shapes oSh.Select MsgBox oSh.Name ' pour connaitre le nom des shapes If oSh.Name = "Rectangle 15" Then 'exemple a adapter oSh.Select With Selection .Font.Size = 22 .Font.Name = "Franklin Gothic Medium" .Font.Bold = True .Font.Color = wdColorRed End With End If 'Mise à jour des champs Selection.Fields.Update Next oSh For Each champ In ActiveDocument.Range.Fields champ.Update Next champ ActiveDocument.PrintPreview ActiveDocument.ClosePrintPreview ActiveDocument.PrintPreview ActiveDocument.ClosePrintPreview End Sub
Modifié par Floki72450 le 8/02/2016 à 15:59
Tout d'abord un grand MERCI à toi, cela m'a permis de beaucoup avancer dans mon projet ! J'ai donc réussi à faire la mise en format des zones de textes que je voulais, taille, couleur, police, j'ai même rajouter le fait d'avoir une police ombrée ! Donc merci
Cependant : J'aimerai faire quelques lignes de code pour mettre en forme mes pieds de pages avec ces propriétés :
.Font.Size = 9
.Font.Name = "Franklin Gothic Medium"
.Font.Bold = True
.Font.Color = wdColorBlack
J'ai tenter d'utiliser les premières lignes de codes qui permettent de mettre à jour les champs des pieds de pages, mais je n'arrive pas à leur insérer une mise en format spéciale...
Peut tu m'aider ?
Merci d'avance :)
Au passage, voici mon code VBA dans l'état actuel et au point (manque la mise en format des pieds de pages...) :
8 févr. 2016 à 18:32
Voilà
@+
9 févr. 2016 à 08:47
Cependant, j'ai trouver la solution en mélangeant des bribes d'aide sur d'autres sites internet.
Voici donc le code qui vas très bien :) (pour les curieux qui ont le même problème que moi ^^) :
Il est un peut répétitif mais je ne sais pas comment réduire la taille tout en conservant l'efficacité ^^
Si au passage tu as une idée pour en réduire la taille :)
Merci encore beaucoup pour ton aide, je marque résolu !! :)
9 févr. 2016 à 09:04
@+ Le Pivert
9 févr. 2016 à 10:20