Discussion :

[colgeo]

Bonjour à tous
j'ai un petit soucis avec excel 2003.

J'ai une feuille vierge de chez vierge, avec une procédure je fais apparaitre dedans un tableau avec plusieurs personnes genre toto1, toto2 ect...

cette procédure est automatique parce que, c'est jamais le même nombre de personne qui doit apparaitre dedans.

Chaque personnes prend 20lignes du tableau et à la 9eme ligne j'ai un total d'heures qui s'y trouve.

ex: toto1 de A3 à DZ23 & dans A9 = total d'heures
toto2 de A24 à DZ43 & dans A29 = total d'heures

Ce que j'aimerai c'est une procédure qui grâce à une boucle: Calcule le nombre de cellule qui contient le total des heures et que par exemple dans la cellule A1 il me mette le résultat total de toto1 + toto2 ect...

Pour faire la boucle qui calcule le nombre de ligne pas de soucis, lui dire de prendre la cellule A9 puis sauté à la A29 puis ressauté à la A49, j'ai pas de soucis, mon seule soucis c'est la procédure qui va mettre le total dans la cellule A1

J'avoue que sur le coup je sèche

Merci d'avance pour vos réponses et j'espère de tout cœur avoir été claire dans mon problème

Bonne journée à tous

[Krovax]

Pour avoir la dernière ligne pas besoin de boucle
http://www.developpez.net/forums/d45...gnees-feuille/

Ton truc c'est de faire quelque chose qui ressemble a ca non?
(je travaille sur la colonne A a toi d'adapter)

Code :

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

1
2
3
4
5
6
7
8
9
dim DerniereLigne  as long, i as long
dim nberreur as long
 DerniereLigne = Range("A65536").End(xlUp).Row
nberreur =0
for i = 9 to DerniereLigne step 20
     nberreur=cells(i,1)+nberreur 
next i
 
range("A1")=nberreur

Cette version n'est pas dynamique celle ci devrais l'être

Code :

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

1
2
3
4
5
6
7
8
9
dim DerniereLigne  as long, i as long
dim erreurs as string
 DerniereLigne = Range("A65536").End(xlUp).Row
erreurs =""
for i = 9 to DerniereLigne step 20
     erreurs =erreurs & "," &cells(i,1).address
next i
 
range("A1").formula= "=SUM(" & erreurs & ")"

[colgeo]

ca à l'aire de ressembler à ce que je cherche, 100x merci je vais tester et je reviens dire quoi

[Krovax]

Si c'est juste pour dire "quoi" tu aurais pu le dire directement
Et si tu me disais ce qu'il en est? (Désolé mais il y a des expression qui m'ont toujours fait marrer )

[colgeo]

Salut encore merci pour ton aide
En faite on a trouvé une solution plus simple

j'ai demandé dans la cellule CB de me calculer la somme de la colonne CC et d'afficher le résultat dans la cellule A1

c'était tellement simple qu'on y avait pas pensé

et quand je réinitialise mon tableau je lui demande de le réinitialiser de A1 à CA, donc mes formules de CB et CC reste en place

En tout cas merci à toi pour ton aide