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