somme de cllules avec references Résolu/Fermé

Question

cells(2, 15) = Application.WorksheetFunction.Sum(Range(Cells(i, 8), Cells(t, 8)))

TextBox3 = Cells(2, 15).Text

avec cells(i,8) et idem pour cells(t,8) la somme ne s'effectue pas par contre si je rempla i et t  par un nombre cela fonctione bien pour quoi meric de me répondre

f894009 · Answer

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

mylord6666 · Answer

'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

f894009 · Answer

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

mylord6666 · Answer

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

f894009 · Answer

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 IfNext'definir le numero de ligne heure departFor t = 2 To 30    If Cells(t, 1) Like B Then        Range("j16") = Cells(t, 1).Value        Range("j17") = t        Exit For    End IfNext

mylord6666 · Answer

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

Somme de cllules avec references

6 réponses

Discussions similaires