Faire somme des celulles avec une bordure
J-Art
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
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
A voir également:
- Faire somme des celulles avec une bordure
- Formule somme excel colonne - Guide
- Bordure de page word - Guide
- Somme si couleur - Guide
- Somme en anglais excel - Guide
- Somme si ens ou ✓ - Forum Excel
3 réponses
Bof!
un truc dans ce genre là, peut-^tre
Michel
un truc dans ce genre là, peut-^tre
Dim 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
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
Merci pour la rapidité de la réponse. Du coup, comment faudrait-il faire pour exécuter une macro de ce type ?
Merci