Faire somme des celulles avec une bordure
Fermé
J-Art
Messages postés
19
Date d'inscription
vendredi 12 février 2016
Statut
Membre
Dernière intervention
20 avril 2016
-
19 févr. 2016 à 10:48
J-Art - 22 févr. 2016 à 18:29
J-Art - 22 févr. 2016 à 18:29
A voir également:
- Faire somme des celulles avec une bordure
- Formule somme excel colonne - Guide
- Somme si couleur - Guide
- Bordure de page word - Guide
- Somme si ens plusieurs critères même colonne ✓ - Forum Excel
- Somme en anglais excel - Guide
3 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
19 févr. 2016 à 11:06
19 févr. 2016 à 11:06
Bonjour
Il y a-t-il une solution pour le faire sans faire de macro ?
Non.....
Il y a-t-il une solution pour le faire sans faire de macro ?
Non.....
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
Modifié par michel_m le 19/02/2016 à 12:24
Modifié par michel_m le 19/02/2016 à 12:24
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
19 févr. 2016 à 11:11
Merci pour la rapidité de la réponse. Du coup, comment faudrait-il faire pour exécuter une macro de ce type ?
Merci