Vba

[Fred74]

Bonjour,

Je suis assez novice en VBA et j'aimerais pouvoir calculer la somme d'une collone (sur la dernière ligne active en bleu) sachant que le nombre de lignes peut varier et que les colonnes E et G pour l'exemple en annexe pourraient aussi varier.

Le fichier en annexe comme exemple.

Merci d'avance pour votre aide et salutations.

Fred

 

[laetitia90]

Re : Vba

bonjour Fred74
je suppose que le titre de la colonne change pas & toujours en row1
autrement il faudra adapter code trés brut pour la premiere colonne en attendant ??

Sub es()
 Dim a, x As Long
 Set a = [a1:iv1].Find(What:="   En DevSoc.", LookIn:=xlValues, LookAt:=xlWhole)
 If Not a Is Nothing Then
 x = Cells(Columns(a.Column).Cells.Count, a.Column).End(3).Row
 Cells(x + 1, a.Column) = WorksheetFunction.Sum(Range(Cells(2, a.Column), Cells(x, a.Column)))
 Else
 MsgBox "pas trouve "
 End If
End Sub

eventuellement pour les 2 colonnes concernées dans le meme contexte

Sub es()
Dim j As Long
 For j = 1 To Rows(1).Find("*", , , , , xlPrevious).Column
 If Cells(1, j) = "   En DevSoc." Or Cells(1, j) = "   En DICtrPr" Then _
 Cells(Rows.Count, j).End(3)(2) = Application.Sum(Range(Cells(2, j), _
 Cells(Cells(Rows.Count, j).End(3).Row, j)))
 Next j
End Sub