Problème avec les macro

Re : Problème avec les macro

Salut,
comme çà, çà devrait fonctionner :

For i = 7 To 20
If (Cells(i, 3) = "Dupond") Then
Range("H3") = 7.5 - 7.5 * Cells(i, 8)
End If
Next i

Re : Problème avec les macro

Ca marche ! Enfin,... disons que excel effectu un calcul et met le résultat dans la bonne cellule.
Cependant quelque soit la valeur de ma cellule (i,8) le résultat est toujours 3.75 .... ce n'est pas normal. Quel peut bien être le problème d'aprés vous ?

Re : Problème avec les macro

Bonjour maneos, wamme,

Ben... H3 prend les valeurs des cellules Cells(i, 8) successives.

C'est la dernière qui reste affichée

A+

Re : Problème avec les macro

Bonjour le fil, bonjour le forum,

rajoute :

Re : Problème avec les macro

ok en mettant Exit For, j'obtient le bon résultat.
Cependant il se peut que j'ai plusieurs lignes (i,3) avec "dupond", j'aimerai que le calcul de la somme se fasse au fur et à mesure qu'il rencontre "dupond" dans la colonne C.
Au départ j'ai un nombre initial d'heures dans H3 qui doit diminuer si la personne fait plusieurs choses dans la journée.
Je ne veux donc pas sortir de la boucle For dès qu'il a rencontré une fois "dupond"....

Re : Problème avec les macro

J'ai une idée pour contourner le problème mais elle doit être incomplete car elle ne marche pas....

While h <= 5
For i = j To 20
If (Cells(i, 3) = nom1) Then 'Si Dupond fait partie du projet
Range("H3") = sm1 - 7.5 * Cells(i, 8) 'On enlève le pourcentage qu'il doit effectuer pour le projet à son compte d'heure initial journalier
j = i + 1
Exit For
End If
Next i
h = h + 1
Wend

Re : Problème avec les macro

C'est bon j'ai résolu le problème en créant une variable et en lui demandant de faire les calculs dans une autre colonne au fur et à mesure :
For j = 8 To 92 Step 4
resultlv = 7.5 'nombre d'heure a faire le lundi et vendredi
For i = 9 To 20
If (Cells(i, 3) = nom1) Then 'Si Dupond fait partie du projet
Cells(i, 1) = resultlv - 7.5 * Cells(i, j) 'On enlève le pourcentage qu'il doit effectuer pour le projet à son compte d'heure initial journalier
a = Cells(i, 1)
resultlv = a
End If
Next i

For i = 9 To 20
If (Cells(i, 3) = nom1) Then 'Si Dupond fait partie du projet
Cells(3, j) = a 'on met dans la case du jour le total du temps travaillé ce jour la
End If
Next i

Next j


Merci beaucoup du coup de main !