Changer la grosseur des caractères

bonjour

macro sans boucle et rapide

Sub caractere12()
deblig = ActiveCell.Row
col = ActiveCell.Column
derlig = Cells(65536, col).End(3).Row
Application.ScreenUpdating = False
Range(Cells(deblig, col), Cells(derlig, col)).Characters(Start:=1, Length:=25).Font.Size = 12
End Sub

tu te places sur la ligne sup^érieure de ta concaténation
nota: les 25 caractères avec espaces comptés dans les 25

Bonjour,

voici une macro à tester sur ta colonne de données. Pour cela il faut ouvrir l'éditeur de Macro commande en faisant Alt+ F11. Puis ouvrir un module dans lequel tu colles le code :

Sub police_caracteres()
'
' Cette macro permet de prendre les 25 premiers caractères d'une
' cellule et de les afficher en taille 12

'
    Do While ActiveCell.Value <> ""
    ActiveCell.Select
    With ActiveCell.Characters(Start:=1, Length:=25).Font
        .Size = 12
    End With
    ActiveCell.Offset(1, 0).Select
    Loop
End Sub

Il faut simplement se placer dans la première case à tester. Puis taper Alt+F8, la fenêtre donnant le nom des différentes macro apparaît. Choisir la macro commande "police_caracteres" et l'exécuter.

Cordialement, et bonne nuit.

Bonjour Michel,

existe-t-il sous Excel (en VBA) une variable contenant le nombre de lignes d'un fichier Excel (65536 pour 2003, 1048576 pour la version 2007), à mettre dans ta variable derlig ? Comme ça la macro serait compatible pour toutes les versions d'Excel.

Cordialement.

Merci à mes répondant, dès que je suis devant mon PC à moi je vais essayer ces macros.

MAGNIFIQUE, vos macros fonctionnent à merveille.

Merci infiniment.