Discussion :

[Pifton]

Bonjour,
tout d'abord je voudrais remercier l'ensemble de la communaute car je me gave de tous pleins de tutos ou autre =D

sinon passons aux choses serieuses :

j'avais besoin de tester une condition dans une boucle donc j'ecris mon bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
            Dim i, totalhours_outSLA, lresult As Integer
 
            i = kstart
            totalhours_outSLA = 0
            Do
 
 
                If Not Right(CStr(.Cells(i, 3).Value), 1) = ")" Then
 
                    totalhours_outSLA = totalhours_outSLA + .Cells(i, 3).Value
 
                End If
                i = i + 1
 
 
            Loop While i - 1 < ksheet

et ca marche pas il me fait simplement la somme de la colonne tout betement ( bon le test parait tres bizarre mais j'ai besoin de separer des valeurs numeriques et d'autres valeures qui finissent par (SLA) et donc par ")" et ca c'est mon code final apres pleins de modification sur le IF )
et donc je change juste la boucle attention :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
            totalhours_outSLA = 0
            For i = kstart To ksheet + 1
 
 
                If Not Right(CStr(.Cells(i, 3).Value), 1) = ")" Then
 
                    totalhours_outSLA = totalhours_outSLA + .Cells(i, 3).Value
 
                End If
                i = i + 1
 
 
            Next i

Et ca marche o.O ma somme aui valait 30 devint 16.5 comme je souhaitais a la base : The FOC ?!!! La condition IF etait toujours vrai avec DO et est lue et testee par FOR ?!!

Pourquoi certaines boucles comprennent les IF et d'autres non ??

J'espere avoir ete assez clair
Merci beaucoup de m'eclairer sur le sujet
Best Regards

Pifton

[mercatog]

Pas de lien du If avec le type de boucle.
Je revois la condition de sortie de la première boucle Do <= à la place de <

Code :

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

Loop While i <= kSheet + 2

Enfin, si tu connais le début et la fin de la boucle, mieux utiliser une boucle

Code :

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

For i= Debut To Fin

PS2: Pour ta somme, j'utiliserai la fonction SOMME offerte par Excel (car je suis sur excel). Je ferai sans boucle

Code :

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

1
2
3
4
With Feuil1
    totalHours_outSLA = Application.Sum(.Range(.Cells(kStart, 3), .Cells(kSheet, 3)))
End With
MsgBox totalHours_outSLA

[Pifton]

Jesus ! oui effectivement

la ligne i = i + 1 etait de trop

Donc j'en suis revenu au point de depart ca fonctionne pas que ce soit avec do ou for :/
pourquoi la condition IF est malgre tout realisee alors que la cellule possede un ")" a la fin de la chaine de caractere ???

la meme condition fonctionne comme desiree si elle est hors de la boucle btw i.e ne renvoit pas la valeure de la cellule si finit par ")"

[Philippe Tulliez]

Bonjour,
Si tu dois faire une somme suivant une condition, tu peux utiliser SUMIF
Voici une exemple en VBA

Code :

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

MsgBox Application.WorksheetFunction.SumIf(Range("A2:A5"), "SLA", Range("B2:B5"))

Son équivalent en Excel

Code :

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

=SOMME.SI(A2:A5;"SLA";B2:B5)

[mercatog]

Essaies manuellement sur Excel
En A1: 500 en A2 600 (CA) et en A3: 34

En A4 mets

Code :

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

=SOMME(A1:A3)

Qu'est ce que tu trouves?

Pour les boucles, celles ci sont équivalentes

Code :

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

1
2
3
For i = a To b
    'traitement
Next i

et

Code :

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

1
2
3
4
5
i = a
Do
    'traitement
    i = i + 1
Loop While i <= b + 1

Code :

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

1
2
3
4
5
i = a
Do While i <= b
    'traitement
    i = i + 1
Loop

J'insiste, si on connait les bornes de la boucle, mieux est d'utiliser la boucle For ci dessus

[Pifton]

Oue
la vba est vraiment trop obscure pour moi je vais me contenter du sumif et pas taper trop de codes ;D

Merci les gars pour vos reponses !!

je mets resolu des que j'ai fini avec le sumif



edit : pour info dans .cells( i,3) c'est des valeurs qui sont recopies depuis une autre feuille donc aucun calcul
soit elles valent x.x soit elles valent x.x (SLA)

[Bear the french]

pourquoi la condition IF est malgre tout realisee alors que la cellule possede un ")" a la fin de la chaine de caractere ???
La meme condition fonctionne comme desiree si elle est hors de la boucle btw i.e ne renvoit pas la valeure de la cellule si finit par ")"

J'ai une intuition mais il faut la vérifier : .Cells(i, 3).Value équivaut-il au résultat d'une fonction ? Alors que ta condition fait référence à la formule en elle-même et non à son résultat.

Décris nous ce que tu as saisi dans les premières Cells(i, 3).

Bertrand

Si j'ai raison, il faudra remplacer (mais je n'ai pas testé) :

Code :

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

.Cells(i, 3).Value

par

Code :

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

.Cells(i, 3).Formula

! A ne pas remplacer dans l'addition bien-sûr (c'est juste pour la condition)

[Bear the french]

Bonjour,

Comme le dit Mercatog (qui est plus rapide que moi !), les conditions IF réagissent de la même manière, quelques soient les boucles dans lesquelles elles sont placées.

Pour ma part, je n'ai pas cherché en profondeur dans ton code mais quelque chose me parait étrange dans ta boucle For

Code :

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

For i = kstart To ksheet + 1

équivaut en réalité à

Code :

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

For i = kstart To ksheet + 1 Step 1

C'est une formule "raccourcie" mais comprend bien que i augmente de +1 à chaque début de boucle... Or dans ton code tu as aussi mis en ligne 10

Code :

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

i = i + 1

Donc i progresse de +1+1 donc de +2 à chaque boucle... Contrairement à la boucle DO qui progresse bien de +1.

Pour tester, lances le mode "Pas à Pas". Tu verras la différence.

Bertrand

[mercatog]

+1 Bien vu Bertrand pour le i=i+1 à l'intérieur de la boucle For (je n'avais pas fais attention)