Bonjour,

J'ai une feuille dont une ligne contient des cellules adjacentes avec des noms de projet. A la fin, une cellule contient le mot "TOTAL".
Le nombre de projets n'est pas fixe, et il arrivera que des colonnes soient insérées entre le dernier projet, et "TOTAL", justement pour un projet nouveau.

Je voudrais donc compter le nombre de projets. J'ai pensé à faire une boucle "Do While" pour repérer l'arrivée du mot "TOTAL" mais je me dis qu'il doit y avoir plus simple.

Pour le moment, ma boucle est ainsi :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim nbprojets As Integer
    Dim tampon As String
    Dim i As Integer
 
    'on commence par compter le nombre de projets
    nbprojets = 0
    i = 4
    tampon = Range(5, i).Value
    Do While tampon <> "Total Heures"
        nbprojets = nbprojets + 1
        i = i + 1
        tampon.Value = Range(5, i).Value
    Loop
Je ne l'ai pas encore testé, donc je ne sais pas si elle est juste.
En tout cas j'utilise trois variables, uniquement pour compter. Je trouve que ça fait beaucoup. Peut-être y'a t'il plus simple ?