Récupération de valeurs

  • Initiateur de la discussion Initiateur de la discussion RV
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

R

RV

Guest
Bonjour le forum,

J'ai le code suivant :
For i = 9 to 150
C = Cells(i,25)
Select Case 'janvier'
Cells(151,26).formula = '='sum('& Cells(i,5) &')'
Case 'février
...etc

Mon probléme est que si il y a plusieurs cellules pour un mois donné i prend alors la dernière valeur trouvée. Or je voudrais que la somme de toutes les lignes soient effectuée.

Je n'arrive pas à touver la solution...alors j'ai pensé au forum XLD.

Amicalement,
RV
 
Saluit RV,

Essaye d'adapter ceci à ton code, j'ai écris la somme. Tu dois l'initailiser à 0 avnt la boucle cumul=0 et insérer : cumul = Range('Y' & i).Value + cumul
Range('Z151').Value = cumul
là où tu veux faire la somme.

Exple:
For i = 9 to 150
C = Cells(i,25) 'A quoi sert ce C ?
Select Case Mois
Case 'janvier'
cumul = Range('Y' & i).Value + cumul
Range('Z151').Value = cumul
Case 'février
'...etc
end select

J'espère que tu as bien positionné ta boucle et les l'instruction Select Case

Ciao
 
Blunet,

Merci pour ton aide mais cela ne résoud pas mon problème. Le C représente une cellule qui contient le mois. Je ne veux pas faire de cumul mais juste ajouter les cellule qui appartiennent au même mois. En fait de E9 à E150 extrait toutes les valeurs qui appartiennent au mois si Y9:Y1... = 'janvier', 'février',...etc. D'où C et select case C.

Je ne suis pas sûr d'avoir été trés clair.

Vois-tu ?

Amic,

RV
 
Je n'y arrive toujours pas :

je transmet le fichier, je pense que ce sera mieux.

Par exemple : pour le mois de février sur le fichier, il y a trois séries dont il faut additionner les quantités SOMME(E10:E12)

Merci de regarder.

RV [file name=essai_20060207183018.zip size=31123]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_20060207183018.zip[/file]
 

Pièces jointes

pierrejean,

Merci ça fonctionne, des fois les solutions simples sont les plus efficaces...

Maid je suis un peu frustré. Juste par curiosité, je suis trés interressé par la solution 'construction de la formule'. C'est ce que je voulais faire au départ.

J'attends ta réponse avec impatience.

@mic,

RV
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

R
Réponses
6
Affichages
3 K
Réponses
5
Affichages
1 K
I
  • Question Question
Réponses
2
Affichages
712
isabelle29
I
Réponses
2
Affichages
2 K
M
Réponses
11
Affichages
2 K
Melidan2006
M
P
Réponses
4
Affichages
778
P
L
  • Question Question
XL 2013 Aide VBA
Réponses
4
Affichages
1 K
LAC736
L
Retour