A voir également:
- Forcer un affichage dans deux plages
- Forcer demarrage pc - Guide
- Forcer la suppression d'un fichier - Guide
- Forcer la reinitialisation pc - Guide
- Forcer à quitter - Guide
- Comment faire deux colonnes indépendantes dans word - Guide
7 réponses
Bonjour,
Effectivement une petite macro devrait résoudre le problème.
Il te suffit d'en enregistrer une à partir de l'enregistreur de macro en bas à gauche de ta fenêtre excel.
Ensuite tu fais les modifications d'affichage que tu souhaites.
Effectivement une petite macro devrait résoudre le problème.
Il te suffit d'en enregistrer une à partir de l'enregistreur de macro en bas à gauche de ta fenêtre excel.
Ensuite tu fais les modifications d'affichage que tu souhaites.
Bonjour,
quelque chose m'échappe.
Dans le collé on a le choix entre 'conserver la mise en forme source' ou 'Respecter la mise en forme de destination'
eric
quelque chose m'échappe.
Dans le collé on a le choix entre 'conserver la mise en forme source' ou 'Respecter la mise en forme de destination'
eric
Salut Passionofdream,
Merci pour ta réponse c'est sympa
j'ai essayer déjà mais a chaque fois que j'essaie de me servir de l'enregistreur de macro, je me plante lamentablement, je comprends rien a ce truc.
Bon c'est pas grave merci tout de même pour le conseil, je vais réessayer
je te souhaite une bonne fin d'après midi
Cdlt Ray
Merci pour ta réponse c'est sympa
j'ai essayer déjà mais a chaque fois que j'essaie de me servir de l'enregistreur de macro, je me plante lamentablement, je comprends rien a ce truc.
Bon c'est pas grave merci tout de même pour le conseil, je vais réessayer
je te souhaite une bonne fin d'après midi
Cdlt Ray
Re salut
Bon j'ai réussi a faire le code ci-dessous
Ca fonctionne bien, mais on peut sans doute améliorer.
sauf le centrage Vertical et Horizontal dans les deux colonnes
Si on peut me dire svp le code pour le centrage, merci
Merci a vous
Cdlt Ray
Bon j'ai réussi a faire le code ci-dessous
Ca fonctionne bien, mais on peut sans doute améliorer.
sauf le centrage Vertical et Horizontal dans les deux colonnes
Si on peut me dire svp le code pour le centrage, merci
Merci a vous
Cdlt Ray
Public Sub Arial_Gras_Rouge()
With Range("A1:A20").Font
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Name = "Arial"
.ColorIndex = 1
.Bold = True
.Size = 12
End With
With Range("B1:B21").Font
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Name = "Arial"
.ColorIndex = 3
.Bold = True
.Size = 12
End With
Range("A21").ClearContents
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
L'erreur se situe au début
L'erreur se situe au début
Public Sub Arial_Gras_Rouge()
Range("A1:A20").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
With Selection.Font
.Name = "Arial"
.ColorIndex = 1
.Bold = True
.Size = 12
End With
Range("B1:B21").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
With Selection.Font
.Name = "Arial"
.ColorIndex = 3
.Bold = True
.Size = 12
End With
Range("A21").ClearContents
End Sub
Salut Passionofdream
Entre temps, j'ai chercher et réussi a faire le code ci-dessous surement que l'on peut l'améliorer, je vous en prie, je veux bien, merci
il fonctionne mais je ne sais pas si c'est vraiment bon, le temps me le dira.
Merci a toi, je garde ton code sous le coude au cas le mien ne serait pas bon.
Cordialement Raymond
Entre temps, j'ai chercher et réussi a faire le code ci-dessous surement que l'on peut l'améliorer, je vous en prie, je veux bien, merci
il fonctionne mais je ne sais pas si c'est vraiment bon, le temps me le dira.
Merci a toi, je garde ton code sous le coude au cas le mien ne serait pas bon.
Cordialement Raymond
Public Sub Arial_Gras_Rouge()
With Range("A1:A20,B1:B21").Font
Range("A1:A20,B1:B21").HorizontalAlignment = xlCenter
Range("A1:A20,B1:B21").VerticalAlignment = xlCenter
.Name = "Arial"
.ColorIndex = 1
.Bold = True
.Size = 12
'Juste la première lettre(X)en majuscule et rouge
Range("B1:B20").Characters(1, 2).Font.Color = vbRed
Range("B21").Value = WorksheetFunction.Proper(Range("B21"))
Range("B21").Characters(1, 1).Font.Color = vbRed
End With
Range("A21").Clear
End Sub