Boucle For Each et somme à partir de la collection

L

lea

Guest

• 24 Janvier 2005

• #2

Bonsoir,

si tes valeurs 1,1,1,1,1,2,2 sont dans la plage B3:B9 tu tapes dans une cellule la formule suivante
=NB.SI(B3:B9;1)
pour avoir le nombre de 1
et =NB.SI(B3:B9;2)
pour le nombre de 2

Léa

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 24 Janvier 2005

• #3

Bonjour

A première vue tu veux faire cela en vba donc je te donne un exemple en pièce jointe

Bonne soirée

Pascal

 

Pièces jointes

• Scap.zip

  6.6 KB · Affichages: 14
• Scap.zip

  6.6 KB · Affichages: 11
• Scap.zip

  6.6 KB · Affichages: 11

Vote positif 0 Vote négatif

S

Scap&Co

Guest

• 25 Janvier 2005

• #4

J'ai dû être maladroit dans ma demande. ou je n'ai pas bien décoder la macro de Pascal.

Pour ce qui est des valeur dans la colonne A

n° Semaine de 2005 sous le format
Ligne 1 S2005-1
Ligne 2 S2005-1
Ligne 3 S2005-1
Ligne 4 S2005-1
Ligne 5 S2005-2
Ligne 6 S2005-2

Dans le colonne B ce sont des nombres issus de calul, on peut dire qu'ils sont aléatoires
Ligne 1 1
Ligne 2 5
Ligne 3 51
Ligne 4 2
Ligne 5 52
Ligne 6 202

Somme pour S2005-1 = 59
Somme pour S2005-2 = 254

Le problème n'est pas simple...
Il y a biensûr des colonnes suplémentaires avec des chiffres dont il faut faire la somme comme pour colonne B

Merci pour votre aide

Scap&Co

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 25 Janvier 2005

• #5

Bon à peu près la même chose avec tes données.

Excuse j'avais compris que s2005 était en colonne A et le n°semaine 1 ou 2 en colonne B.
Maintenant je pense que c'est dans l'ordre.

Pour l'instant cela t'affiche le résultat en colonne C à toi de modifier à ta convenance.

Pascal

 

Pièces jointes

• Scap.zip

  6.6 KB · Affichages: 13
• Scap.zip

  6.6 KB · Affichages: 14
• Scap.zip

  6.6 KB · Affichages: 14

Vote positif 0 Vote négatif

S

Scap&Co

Guest

• 25 Janvier 2005

• #6

Merci pascal76

Je n'étais embarqué vers qchose de très compliqué, la tête dans le guidon...

Merci @+

Scap&Co

 

Vote positif 0 Vote négatif

S

Scap & Co

Guest

• 30 Janvier 2005

• #7

bonjour,

J'ai pas réussit à résoudre ma difficulté :

Dans la feuille 1

n° Semaine de 2005 sous le format
Ligne 1 S2005-1
Ligne 2 S2005-1
Ligne 3 S2005-1
Ligne 4 S2005-1
Ligne 5 S2005-2
Ligne 6 S2005-2

Dans le colonne B ce sont des nombres issus de calul, on peut dire qu'ils sont aléatoires
Ligne 1 1
Ligne 2 5
Ligne 3 51
Ligne 4 2
Ligne 5 52
Ligne 6 202

Somme pour S2005-1 = 59
Somme pour S2005-2 = 254

Dans la feuille 2 je doit faire correspondre à caque n° de semaine la somme correspondante à colonne B de la feuille 1

Dans feuille 2, j'ai
colonne A
S2005-1
S2005-2
les n° de semaines de feuilles dépendent des n° de semaine de feuille 1

Colonne 2
Je dois reporter les sommes pour chaque semaine.

J'aissaie de faire des conparaison de cellule avec for Each...
mais je n'obtiens pas les résultats escompter.

Merci d'apporter votre aide.

Scap&Co

 

Vote positif 0 Vote négatif

S

Scap&Co

Guest

• 31 Janvier 2005

• #8

Je me remet dans la liste des...
J'ai récuperé plusieurs fichiers dans le forum, pour faire des tests de code.

Qq'un a-il déjà exécuté ce type de code ?

Merci pour votre aide.

 

Vote positif 0 Vote négatif

H

Hervé

Guest

• 31 Janvier 2005

• #9

Bonjour

En reprenant la macro de pascal (qu'il en soit remercié) :

Sub toto()
Dim i As Integer
Dim x As Integer
Dim mavar As Single

i = 2
For x = 2 To Range("A65536").End(xlUp).Row
If Range("A" & x) = Range("A" & x + 1) Then
mavar = mavar + Range("B" & x)
Else
mavar = mavar + Range("B" & x)
Sheets("feuil2").Range("a" & i) = Range("A" & x)
Sheets("feuil2").Range("b" & i) = mavar
i = i + 1
mavar = 0
End If
Next

End Sub

Ce code te renvoi vers la feuille 2 le numéro de semaine et le cumul associé.

Salut
Hervé

 

Vote positif 0 Vote négatif