Compter nombre de caractère et faire un ajustement automatique

Bonjour,

Je suis sur un TP en stage et je n'arrive pas à faire un ajustement automatique avec commentaire.

Il faudrait enfaite compter le nombre maximum de caractère de la plus grand ligne de la cellule et après faire l'autofit.

Serez t-il possible de m'aider svp ?

Bonne Journée

Bérel Kaëlig

Bonjour,

ton nom commence à être connu sur ce forum !

bonne chance ... cherche aussi du côté de =NBCAR(________)

Bonjour,

oui ahah :p

Merci

cdt,

Bérel Kaëlig

Bonjour

Cela ne fonctionne pas

Voici le code que j'aimerai utiliser et adapter pour compter le nombre de caractère et faire l'autofit en fin d'execution du code je sais qu'il n'est pas bon je vois pas pourquoi ...

        maxc = -1: maxi = -1
    For i = LBound(s) To UBound(s)
        If Len(s(i)) > maxc Then maxc = Len(s(i)): maxi = i
    Next i

    ActiveSheet.Range("B5:Y11").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .EntireColumn.AutoFit
    End With

Merci de votre aide !

Bonne journée

Kaëlig

Manque un bout de code

Peux-tu dire ce que tu as défini dans s

  s = Split(Range("A3"), vbLf)

voilà le début du code sauf que j'aimerai compte le nombre de caractère mais pas les afficher et faire l'autofit de la cellule B5 à Y11

Merci de ta réponse

Bonne journée

Kaëlig

Kaeligb a écrit :

Je n'ai toujours pas réussi à trouver une solution

Bonne journée

Kaëlig

Bonjour,

Et moi, je ne répond pas au message privé (sauf si c'est moi qui le demande)

ok tu peux répondre à mon sujet stp ?

Kaeligb a écrit :

Il faudrait enfaite compter le nombre maximum de caractère de la plus grand ligne de la cellule et après faire l'autofit.

On est bien d'accord que c'est 2 choses différentes, non liées, puisque qu'excel se débrouille comme un grand tout seul avec l'autofit !

avec macro ou fonction, comme tu veux ...

tu dors déjà ?

encore au dodo ?

l'avenir appartient à ceux qui se lèvent tôt

Salut

Oui je dormais à 5H25 :p

je ne dormais pas à l'heure que tu m'a envoyé une réponse hier soir je n'avais juste pas vu la notification

Merci pour ton fichier je vais regarder ça

Re,

Après avoir tester cela ne fonctionne pas je te met mon code juste en dessous peux tu adapter ton code au mien stp

Sheets("Autocom2").Select

    'ActiveSheet.Range("B5:Y11").Select
    'With Selection
     '   .ColumnWidth = .ColumnWidth * 4
     '.HorizontalAlignment = xlCenter
        '.VerticalAlignment = xlCenter
        '.EntireColumn.AutoFit
    'End With

    For Each h In Range("B5:Y11")
        With h
            .Select
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .EntireColumn.AutoFit
        End With
        Call CountCharactersByLine(h.Value)
        'MsgBox (h.Address & vbCrLf & h.Value & vbCrLf & h.Comment.Text)
        'MsgBox (h.Address & vbCrLf & h.Value & vbrlf & ActiveSheet.Name)
        'MsgBox (h.Value & vbCrLf & out)
    Next

Je ne veux pas à la fin quand j'appuie sur mon bouton qu'il me donne le nombre de caractère je veux juste qu'il le calcul intérieurement et après rajouter le code de l'autofit , qu'il face case par case la recherche de la plus grande ligne et après faire l'autofit en fonction de celle-ci de la cellul B5 à Y11

Merci de ton aide

Kaëlig

Kaeligb a écrit :

qu'il face case par case la recherche de la plus grande ligne et après faire l'autofit en fonction de celle-ci de la cellul B5 à Y11

l'autofit n'a pas besoin de cette valeur !

re

d'accord tu peux mettre ton code dans le mien en l'adaptant stp

tututut ... c'est un exercice, non ?

je ne suis pas sûr de bien t'aider en faisant tout le travail à la place du stagiaire

tu as maintenant les différents outils, à toi de les intégrer, tu y parviendras, bonne chance

sauf que je ne comprends rien et j'ai pas le temps d'apprendre car je n'est pas que c'est mission là à faire mon ami