compter un nombre de cellules

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:

---

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 ?

bonjour,

oui, il y a plus simple
:o)

Code:

---

1 2 3 4 5

Dim nbprojets As Integer     nbprojet=cells(5,4).end(xltoright).column-4

---

Merci beaucoup c'est en effet plus simple.

J'ai du préciser la feuille par contre car vu qu'il y en a deux, il comptait sur la mauvaise. Problème résolu merci. :king:

Sinon j'ai toujours du mal à comprendre la différence entre range et cells... Range c'est pour se placer ?

Citation:

---

j'ai toujours du mal à comprendre la différence entre range et cells... Range c'est pour se placer ?

---

non, cells représente les cellules
cells(1,1) la première cellule de la premiere colonne par exemple.
range représente une plage de cellules, donc une ou plusieurs cellules.
range("A1:B2") represente de la cellule A1 jusque B2
qui peux s'écrire comme ceci
range(cells(1,1),cells(2,2))

vouali voualou!
:)

Merci pour ces précisions ;)

de rien, avec plaisir!