Taille des caractères

[piep14]

Bonsoir,

Je cherche une fonction qui met les caractères de la cellule à la taille maxi.
Je n'ai pas trouvé comment faire

Merci de votre aide

[Staple1600]

Bonsoir



A tester (solution par VBA)

Dans Excel ---> ALT+F11
Insertion/Module
Copier la macro ci-dessous

sub maxi_pol()
Selection.Font.Size = 409
End sub

Ensuite retourner dans Excel
Selectionner la cellule
ALT+F8

Puis éxécuter la macro maxi_pol()

[piep14]

C'est pas tout a fait ce que je cherche a faire.

Toi, tu donnes une taille de XXX et la cellule se met a taille.

Moi, c'est plutot le contraire. J'ai une taille de cellule prédéfinie, et je voudrais que le texte que j'ajoute dedans ce mette a la taille maxi sans redimensionné la cellule

Merci

[Spitnolan08]

Bonsoir piep,
Re Stapple,

Ah tant mieux... Je me disais aussi.. Sauf si piep est aveugle et même comme ça ce n'était pas du braille!
Parce que je t'avais fait une macro aux petits oignons... que j'ai perdue en m'occupant d'une histoire de feux de signalisation pour un agent de la circulation peu accommodant...

J'essaye de te la refaire...

A+

[JCGL]

Bonjour à tous,

Arf l'ami Spit s'est fait pruner...

Même pas drôle

Pour Ajuster la taille de la police à la cellule

ShrinkToFit = True

Juste pour donner un coup de main à mon ami Spit qui doit être Vert de rage, Orange après le savon de Madame et en Rouge sur son compte bancaire

Juste pour rire

A+

[Spitnolan08]

Re,
Bonsoir JCGL,

Ca fait plaisir de te croiser "pour de vrai" sur un fil... avec ou sans képi!

Si ton Shkrinktofit = true répond à la question, je m'incline respectueusement...
Parce que pour mettre la bonne police,(Non pas eux! ) il me fallait quelques lignes de plus...
Une petite recherche de code pour rien donc d'autant que je n'ai pas réussi encore à le reconstituer en entier.

Sinon pour le reste comment tu sais

Cordialement

[JCGL]

Re,

Tu as bien compris que c'était trop tentant "d'AJUSTER LA POLICE A LA CELLULE" après ton message.

Bien évidement, il faut quelques lignes de plus...

Mais ça tu sais faire (pas comme la couleur des feux arf)

Bonne soirée à toi et à tous

Sinon pour le reste comment tu sais

Mon nom est Bond, James Bond arf

[piep14]

J'ai essayé ce que vous m'avez conseillé mais ca ne fait rien :S

 
Sub Imprimer()
    Sheets("Formulaire").Activate
    Dim compteur
    compteur = 0
    Dim valeur
    valeur = [b8]
    Columns(1).ShrinkToFit = True
    For Each cel1 In Range("A7:A" & [a65000].End(xlUp).Row)
        If compteur = 0 Then
            val1 = valeur & cel1
        ElseIf compteur = 1 Then
            val2 = valeur & cel1
        ElseIf compteur = 2 Then
            val3 = valeur & cel1
        End If
 
        If compteur = 2 Then
            With Sheets("Maquettes Etiquettes")
                If cel1 <> "" Then
                    .[a1] = val1
                    .[a13] = val2
                    .[a25] = val3
                    Sheets("Maquettes Etiquettes").Activate
                    ActiveSheet.PageSetup.PrintArea = "$A$1:$E$35"
                    With ActiveSheet.PageSetup
                        .Orientation = xlPortrait
                    End With
                    .PrintOut , , , True
                    '.PrintOut
                End If
            End With
        End If
 
        If compteur = 0 Then
            compteur = compteur + 1
        ElseIf compteur = 1 Then
            compteur = compteur + 1
        ElseIf compteur = 2 Then
            compteur = 0
        End If
    Next cel1
 
    Sheets("Maquettes Etiquettes").Select
    'Cells.Select
    'Selection.ClearContents
    'Sheets("Formulaire").Select
End Sub

Je voudrais grossir la cellule A1 de la feuille Maquettes Etiquettes

Merci

[Spitnolan08]

Re,

Une première remarque : éviter les cellules fusionnées car les macros n'aiment pas ça... En l'occurrence la propriété indiquée ne doit pas fonctionner dans ce cas.

Ceci étant, même en "défusionnant" je n'obtiens pas le résultat escompté. Pourtant le truc donné par JCGL fonctionnait...
En attendant la réponse du maître; to fit or not to fit; telle est la question...

S'il parvient à régler le pb : Whaoou! sinon j'essaierai de replancher sur le sujet ce soir.

Cordialement

[JCGL]

Bonjour à tous

Un essai tout simplement en cochant la bonne case, je n'ai rien touché au code

A+

[piep14]

Oui, mais y a un détail qui ne va pas puisque en A1 de Maquettes Etiquettes, je peux encore augmenter la taille manuellement alors ca ne fonctionne pas tout a fait ...

Qu'en pensez vous ?

[JCGL]

Re,

Moi, c'est plutot le contraire. J'ai une taille de cellule prédéfinie, et je voudrais que le texte que j'ajoute dedans ce mette a la taille maxi sans redimensionné la cellule

Je ne fais que te citer...

A+

[piep14]

Oui, j'ai bien vu qu'elle se rétrécie car y a plus de caractères, mais quand y en a que 4 par exemple, ca devrait grossir a plus de 80 comme c'est par défaut

[JCGL]

Re,

Envoyé par piep14

Oui, j'ai bien vu qu'elle se rétrécie car y a plus de caractères, mais quand y en a que 4 par exemple, ca devrait grossir a plus de 80 comme c'est par défaut

Je ne vois pas dans ton code, ou ailleurs, où la taille de la police est à 80 par défaut...

Bien évidement, je n'ai peut-être pas tout compris mais je ne vois rien d'autre à te proposer...

A+

[piep14]

Non, ce n'est pas dans le code qu'il y a 80 par défaut mais juste dans le choix de la taille lol