Discussion :

[20dxxx]

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.... ! 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[20dxxx]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nbrow = ActiveSheet.UsedRange.Rows.Count

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Exemple 2 - Plage d'un tableau structuré

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[20dxxx]

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


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.

[unparia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

Salut

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

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