A voir également:
- Assigner une police différente, concaténation
- Police aptos - Accueil - Bureautique
- Police facebook - Guide
- Police instagram - Guide
- Police ticket de caisse - Forum Graphisme
- Police koh lanta - Forum Graphisme
2 réponses
je remet simplement en tete du forum...
J'ai un autre casse tête aussi par rapport à un compteur de document que je veux placer en bas de page....
J'ai penser faire incrémenter a chaque changement de nom du fichier d'enregistrement... mais je ne suis pas capable de mettre la cellule dans le pied de page....
J'ai un autre casse tête aussi par rapport à un compteur de document que je veux placer en bas de page....
J'ai penser faire incrémenter a chaque changement de nom du fichier d'enregistrement... mais je ne suis pas capable de mettre la cellule dans le pied de page....
rebonjour...
je me demande si on m'a lu jusqu'à présent... lol
entre temps, j'ai trouver une solution possible combinée pour mon numéro de formulaire incrémenté que je veux mettre en bas de page, mais je ne suis pas encore sure que ça fonctionne bien... dites moi si vous y voyez une erreur svp, et comment ça peut fonctionner....
Sub modules()
'Code Visual Basic pour Application en anglais
'Macro permettant de gérer la numérotation automatique dans un modèle
'Où la cellule A2 contient le nouveau numéro de facture
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
SaveSetting "MyApp", "Startup", "Top", Range("P.A.!DC2")
End Sub
Private Sub Workbook_Open()
If Range("P.A.!DC1").Value <> 1 Then
Range("P.A.!DC1").Value = GetSetting(appname:="MyApp", section:="Startup",
key:="Top", Default:="=5"") + 1
Range("P.A.!DC1").Value = 1
End If
With [P.A.].PageSetup
.RightFooter = "&""Arial,Gras""&16" & [P.A.!DC3] & vbLf & "&""Arial,Gras italique""&18" & [P.A.!DC2]
End With
End Sub
L'aide microsoft me dire de sauvegarder mon fichier en tant que modèle pour que ça marche....
je me demande si on m'a lu jusqu'à présent... lol
entre temps, j'ai trouver une solution possible combinée pour mon numéro de formulaire incrémenté que je veux mettre en bas de page, mais je ne suis pas encore sure que ça fonctionne bien... dites moi si vous y voyez une erreur svp, et comment ça peut fonctionner....
Sub modules()
'Code Visual Basic pour Application en anglais
'Macro permettant de gérer la numérotation automatique dans un modèle
'Où la cellule A2 contient le nouveau numéro de facture
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
SaveSetting "MyApp", "Startup", "Top", Range("P.A.!DC2")
End Sub
Private Sub Workbook_Open()
If Range("P.A.!DC1").Value <> 1 Then
Range("P.A.!DC1").Value = GetSetting(appname:="MyApp", section:="Startup",
key:="Top", Default:="=5"") + 1
Range("P.A.!DC1").Value = 1
End If
With [P.A.].PageSetup
.RightFooter = "&""Arial,Gras""&16" & [P.A.!DC3] & vbLf & "&""Arial,Gras italique""&18" & [P.A.!DC2]
End With
End Sub
L'aide microsoft me dire de sauvegarder mon fichier en tant que modèle pour que ça marche....