Somme de cllules avec references

merci beaucoup c'est vraiment super je n'y avais pas pensé

Re,

des que le test est vrai, sortie de la boucle For ....Next

For i = 2 To 30
    If Cells(i, 1) Like A Then
        Range("j13") = Cells(i, 1).Value
        Range("j14") = i
        Exit For
    End If
Next

'definir le numero de ligne heure depart
For t = 2 To 30
    If Cells(t, 1) Like B Then
        Range("j16") = Cells(t, 1).Value
        Range("j17") = t
        Exit For
    End If
Next

merci beaucoup je sais comment faire hélas avez vous une solution

Bonjour,

Dans votre code: i et t sont tout le temps egal a 31, il manque quelque chose !!!!!!

'definir le numero de ligne heure arrivée
For i = 2 To 30
If Cells(i, 1) Like A Then
Range("j13") = Cells(i, 1).Value

Range("j14") = i

End If
Next

'definir le numero de ligne heure depart
For t = 2 To 30
If Cells(t, 1) Like B Then
Range("j16") = Cells(t, 1).Value

Range("j17") = t

End If
Next

' dalcul du total d'heure de travail

Range("O2").FormulaLocal = "=SOMME(H" & i & ":H" & t & ")"
'inscription nb heure dans textbox

TextBox3 = Cells(2, 15).Text

merci de la réponse je renvoi la valeur des variables

Bonjour,

i et t sont des variables, quelles sont leurs valeurs ???