Discussion :

[Zak Blayde]

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 ?

[mayekeul]

bonjour,

oui, il y a plus simple
:o)

Code :

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

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

[Zak Blayde]

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.

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

[mayekeul]

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!

[Zak Blayde]

Merci pour ces précisions

[mayekeul]

de rien, avec plaisir!