Discussion :

[laliloulelo]

Bonjour j'aimerai remplacer ce code la

Code :

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

1
2
3
4
5
6
7
8
 
'Calcul du nombre des indicateurs pour le mois de Juin
   For i = 10 To 10000
       'Si le mois correspond à Juin
       If Month(Sheets(SERVICE).Cells(i, 6).Value) = 6 Then
 
       End If
   Next i

Par quelque chose de mieux, plus rapide plus fonctionnel. Donc je veux tester que s'il y a des éléments dans ma colonne de mon tableau et pas sur 10000 éléments.

Je sais pas si c'est clair
Un truc du genre

Code :

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

1
2
 
For i = 10 To lastElementColum

Merci par avance

[Godzestla]

Bonjour, essaie ceci, en supposant que tu parles de la colonne f (6ème)

Code :

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

For i = 10 to Range("F65535").End(xlUp).row

[issoram]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
Dim nmax_l as Long
Dim str_col as String
 
nmax_l = Application.Rows.Count   'nombre de lignes max dans une feuille
str_col = "F"   'la colonne dont tu veux la dernière cellule non vide
 
For i = 10 to Range(str_col & nmax_l ).End(xlUp).row
'ton test'
Next i

Cordialement.

[laliloulelo]

Simple efficace,
merci à vous deux