Faire somme des celulles avec une bordure
J-Art
Messages postés
19
Statut
Membre
-
J-Art -
J-Art -
Bonjour,
J'ai un fichier assez grand et avec beaucoup de chiffres dedans, et j'aimerais faire la somme de ceux qui ont une bordure inférieure. Il y a-t-il une solution pour le faire sans faire de macro ?
merci
J'ai un fichier assez grand et avec beaucoup de chiffres dedans, et j'aimerais faire la somme de ceux qui ont une bordure inférieure. Il y a-t-il une solution pour le faire sans faire de macro ?
merci
3 réponses
-
Bonjour
Il y a-t-il une solution pour le faire sans faire de macro ?
Non.....
-
Bof!
un truc dans ce genre là, peut-^treDim lig As Integer
Application.ScreenUpdating = False
For lig = 1 To 450
If Cells(lig, "A").Borders(xlEdgeBottom).LineStyle <> xlNone Then somme = somme + Cells(lig, "A")
Next
range("B1")=somme
Michel -
Merci beaucoup et désolé pour le retard à répondre,
Alors j'ai un peu modifié la formule à ma guise et ca ne marche pas parce la plage que je veux calculer est beaucoup trop longue... Est-ce qu'il y a un moyen de contourner ca ? Je te copie la dessus la formule au cas où...
Macro1()
Dim lig As Integer
Application.ScreenUpdating = False
Sheets("2016").Activate
For lig = 1 To 54000
If Cells(lig, "F").Borders(xlEdgeBottom).LineStyle <> xlNone Then somme = somme + Cells(lig, "F")
Next
Sheets("Statistiques").Activate
Range("B1") = somme
End Sub
