afchartier
XLDnaute Junior
Bonjour le forum!
j'espère que vous tous, amis lecteurs, amateurs, passionnés et savants, allez bien! et peut-être prendrez vous un peu de votre temps pour m'éclairer.
j'ai une base de donnée et je voudrais faire des sommes, mais cela me pose des soucis.
les données à calculer sont dans les colonnes AN , BE , BU.
et il faut faire référence à la colonne A pour savoir jusqu'où compter.
Le souci que me pose ce code est qu'il fonctionne pour la première colonne, mais pas pour les suivantes, il me trouve "0" alors qu'il y a des valeurs dedans.
Merci d'avance à tous.
a+
Alain
j'espère que vous tous, amis lecteurs, amateurs, passionnés et savants, allez bien! et peut-être prendrez vous un peu de votre temps pour m'éclairer.
j'ai une base de donnée et je voudrais faire des sommes, mais cela me pose des soucis.
les données à calculer sont dans les colonnes AN , BE , BU.
et il faut faire référence à la colonne A pour savoir jusqu'où compter.
Le souci que me pose ce code est qu'il fonctionne pour la première colonne, mais pas pour les suivantes, il me trouve "0" alors qu'il y a des valeurs dedans.
Code:
Private Sub CommandButton1_Click()
Dim I As Integer
Dim nbcel As Integer
Dim cel As Object
I = Range("A5").End(xlDown).Row
nbcel = 0
For Each cel In Range("AN5:AN" & I)
If cel <> "" Then
nbcel = nbcel + cells(I, 40)
End If
Next cel
TextBox8.Value = nbcel
nbcel = 0
Call calc2
End Sub
Private Sub calc2()
Dim I As Integer
Dim nbcel1 As Integer
Dim cel As Object
I = Range("A5").End(xlDown).Row
For Each cel In Range("BE6:BE" & I)
If cel <> "" Then
nbcel = nbcel + cells(I, 57)
End If
Next cel
TextBox9.Value = nbcel
nbcel1 = 0
Call calc3
End Sub
Private Sub calc3()
Dim I As Integer
Dim nbcel As Integer
Dim cel As Object
I = Range("A5").End(xlDown).Row
For Each cel In Range("BU5:BU" & I)
If cel <> "" Then
nbcel = nbcel + cells(I, 73)
End If
Next cel
TextBox10.Value = nbcel
nbcel = 0
End Sub
Merci d'avance à tous.
a+
Alain