compter le nombre de caractères max dans une colonne.

Bonjour,

je requière à nouveau votre aide car je bloque !

je souhaite afficher en bas d'un tableau le nombre de cratères maximum par colonne... mais.... ! :traine: j'ajoute des variable à la pelle pour m'assurer que les valeurs sont bien prisent en compte... rien y fait.

voici ce que j'ai écris :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

Sub nb_car()   'déclaration   Dim nb_ As Double Dim nb_max As Double Dim act_cell As Range Dim nbcol As Integer Dim nbrow As Double     'ne met pas à jour l'affichage pendant l'execution de la macro Application.ScreenUpdating = False   'donne une valeur aux variable en comptant le nombre de colonnes et le nb de lignes nbcol = ActiveSheet.UsedRange.Columns.Count 'Cells(1, Columns.Count).End(xlToLeft).Column nbrow = ActiveSheet.UsedRange.Rows.Count 'Cells(Rows.Count, 1).End(xlUp).Row 'MsgBox (nbcol) 'MsgBox (nbrow)     For i = 1 To nbcol   nb_ = 0 nb_max = 0   For j = 2 To nbrow act_cell = ActiveSheet.Cells(j, 1).Activate   nb_ = Len(act_cell) If nb_ > nb_max Then nb_max = nb_ End If Next j   Range(nbrow + 1, i).Value = nb_max   Next i       End Sub

---

Bonjour
Beaucoup d'erreurs et/ou incohérences que je vais te laisser d'abord essayer de corriger seul :
1)

Code:

---

1 2	Dim nb_ As Double Dim nb_max As Double

---

je vois mal comment un nombre de caractères pourrait être décimal . (bien que ce typage en double soit superfétatoire, mais non la cause de ta difficulté principale)
2)

Code:

---

act_cell = ActiveSheet.Cells(j, 1).Activate

---

a) ce n'est pas la cellule J,1, mais la cellule J,i , qu'il te faut regarder
b) que vient ici faire ce 'Activate ?
c) une cellule étant un objet, l'instruction Set est nécessaire pour lui affecter une variable .

Je reviendrai vers toi au vu des corrections que tu auras apportées sur ces bases.

Merci Unparie pour ton aide.

effectivement le nombre de caractère ne sera pas décimal.

concernant la cellule (j,1) est un oubli de ma part, j'ai limiter les boucles pour essayer de trouver la solution ou les erreurs. j'avais donc désactivé la boucle For i...

par contre, que viens faire le .Activate ... et bien ... pour activer la cellule pour laquelle je veux avoir le nombre de caractère ? mais si tu pose la question c'est que ce n'est pas utile voir problématique.

et oui Set ... merci;-)

j'ai fait un peu de ménage, mais maintenant, c'est ce qui fonctionné précédemment qui s'allume en jaune :pleure:

Code:

---

nbrow = ActiveSheet.UsedRange.Rows.Count

---

sinon voila les modif que j'ai apportées :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Sub nb_car()   'déclaration Dim nb_ As Integer Dim nb_max As Integer Dim act_cell As Range Dim nbcol As Integer Dim nbrow As Integer   'ne met pas à jour l'affichage pendant l'execution de la macro Application.ScreenUpdating = False   'donne une valeur aux variables en comptant le nombre de colonnes et le nb de lignes nbcol = ActiveSheet.UsedRange.Columns.Count 'Cells(1, Columns.Count).End(xlToLeft).Column nbrow = ActiveSheet.UsedRange.Rows.Count 'Cells(Rows.Count, 1).End(xlUp).Row 'MsgBox (nbcol) 'MsgBox (nbrow)   For i = 1 To nbcol nb_ = 0 nb_max = 0   For j = 2 To nbrow act_cell = Cells(j, i) nb_ = Len(act_cell) If nb_ > nb_max Then nb_max = nb_ End If Next j   Set Range(nbrow + 1, i).Value = nb_max   Next i End Sub

---

Bonjour,
Sauf si l'utilisation du VBA est indispensable pour le projet, la formule matricielle ci-dessous permettra d'apporter la réponse
Exemple 1 - Plage normale

Code:

---

{=MAX(NBCAR(B2:B104))}

---

Exemple 2 - Plage d'un tableau structuré

Code:

---

{=MAX(NBCAR(T_Contact[Nom]))}

---

Pour valider une formule matricielle Ctrl+Maj+Entrée

cela fonctionne parfaitement pour ce que je souhaite faire. un grand merci :merci:
:resolu:

effectivement je n'ai pas nécessairement besoin d'un macro. Je ne pense pas aux fonctions matricielle !



je reste cependant curieux de la rédaction d'une macro.:bebe:

Citation:

---

je reste cependant curieux de la rédaction d'une macro.

---

ainsi, par exemple et si l'on ne veut pas trop s'éloigner de ton premier mécanisme

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim nb As Integer, nb_max As Integer, nbrow As Long, k As Long, n As Long Application.ScreenUpdating = False nbrow = ActiveSheet.UsedRange.Rows.Count For k = 1 To ActiveSheet.UsedRange.Columns.Count nb_ = 0 nb_max = 0 For n = 2 To nbrow nb = Len(ActiveSheet.Cells(n, k).Text) If nb > nb_max Then nb_max = nb Next Cells(nbrow + 1, k).Value = nb_max Next Application.ScreenUpdating = False

---

Salut

Citation:

---

Envoyé par 20dxxx

[...]
je reste cependant curieux de la rédaction d'une macro.:bebe:

---

Voir ma signature... ;)

Tu peux utiliser Evaluate("MAX(LEN(A1:A104))") en transposant la solution de Philippe. Avec Evaluate, Excel n'a pas besoin de la validation matricielle

Pièce jointe 518075