Changer la grosseur des caractères Résolu/Fermé

Question

Bonjour,

J'ai fusionné trois colonnes de nom (Généalogie) et je voudrais mettre les 25 premiers caractères en 12 et laisser le reste en10 et cela sur toute une colonne de près de 12000 ligne.  J'arrive à faire le changement  une ligne à la fois mais pour en faire 12000 c'est très long.  Je ne m'y connais pas assez en macro pour le faire et j'ai cherché longtemps.  Je travaille avec Excel 2003.

Merci d'avance

michel_m · Accepted Answer

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

chossette9 · Answer

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.

chossette9 · Answer

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.

BigMike99 · Answer

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

BigMike99 · Answer

MAGNIFIQUE, vos macros fonctionnent à merveille.

Merci infiniment.