Inscrire total a la fin d'une liste
Fermé
Viad12
Messages postés
2
Date d'inscription
mardi 17 mars 2015
Statut
Membre
Dernière intervention
15 avril 2015
-
15 avril 2015 à 23:04
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 16 avril 2015 à 09:27
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 16 avril 2015 à 09:27
A voir également:
- Inscrire total a la fin d'une liste
- Liste déroulante excel - Guide
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Radia hésite entre s'inscrire à spotify avec son compte facebook ou avec son adresse mail. quelles affirmations sont justes ? - Astuces et Solutions
- Total adblock avis - Forum Internet / Réseaux sociaux
- Liste de numéro de téléphone suspect 07 ✓ - Forum Mobile
1 réponse
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
16 avril 2015 à 09:27
16 avril 2015 à 09:27
Bonjour Viad, bonjour e forum,
Peut-être comme ça :
Peut-être comme ça :
Sub Macro1()
Dim R As Range 'déclare la variable R (Recherche)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Set R = Columns(1).Find("TOTAL", , xlValues, xlWhole) 'définit la recherche R (Recherche le mot entier "TOTAL" dan sla colonne 1 (=A)
If Not R Is Nothing Then Rows(R.Row).Delete 'si il existe au moins une occurrence trouvée, supprime la ligne de l'occurrence trouvée
DL = Cells(Application.Rows.Count, 6).End(xlUp).Row 'définit la derniere luigne éditée DL de la colonne 6 (=F)
'renvoie dans la cellule ligne DL+1, colonne 6 (=F) la formule de la somme F1:F(DL)
Cells(DL + 1, 6).Formula = "=Sum(" & Range(Cells(1, 6), Cells(DL, 6)).Address & ")"
'renvoie dans la cellule ligne DL+1, colonne 1 (=A) le mot "TOTAL"
Cells(DL + 1, 1).Value = "TOTAL"
End Sub