OVH Cloud OVH Cloud

sous-totaux

2 réponses
Avatar
massonlafayette
bonsoir tout le monde,
voici mon pb:
j'ai 1 tableau avec en colonne "e" des numéros de fourniseurs et en colonne "f
"les noms des fournisseurs,en colonnes "c" et "d" les débits et les crédits
cette liste est continue et je voudrais qu'à chaque changement de numéro en
colonne "e", une ligne s'insère pour créer des sous-totaux des colonnes "c" et
"d",
mais comment faire??????????
j'avoue, j'ai du mal
alors merci à ceux qui voudraient m'aider...

2 réponses

Avatar
Philippe.R
Bonsoir Lionel,
Ce code devrait le faire :

Sub inser()
'MPFE le 02/02/2004
For i = Application.WorksheetFunction.CountA(Range("e:e")) To 2 Step -1
If Cells(i - 1, 5).Value <> Cells(i, 5).Value Then Cells(i, 5).EntireRow.Insert
Next i
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Lionel Masson" a écrit dans le message de
news:
bonsoir tout le monde,
voici mon pb:
j'ai 1 tableau avec en colonne "e" des numéros de fourniseurs et en colonne "f
"les noms des fournisseurs,en colonnes "c" et "d" les débits et les crédits
cette liste est continue et je voudrais qu'à chaque changement de numéro en
colonne "e", une ligne s'insère pour créer des sous-totaux des colonnes "c" et
"d",
mais comment faire??????????
j'avoue, j'ai du mal
alors merci à ceux qui voudraient m'aider...



Avatar
C15
Bonjour Lionel

Tu te positionnes dans ton tableau dans la colonne e et tu fais un tri avec
l'outil de tri a-->
Tu fais menu Données/sous-totaux
Dans la boite de dialogue tu choisis "A chaque changement de" tu choisis
numéro
"Utiliser la fonction"
Somme si tu veux faire une addition.
"Ajouter un
sous-total" : tu coches toutes les colonnes dans lesquelles tu veux qu'un
sous-total apparaisse (pour toi c et d)
en faisant attention qu'Excel ne t'en ait pas mis là où tu ne veux pas.
Tu coches
"Remplacer..." et "Synthèse..."
Tu valides
Excel t'a inséré une ligne après chaque fournisseur et t'a fait un
sous-tatal des crédits et débits pour chacun d'eux.

Ouala

A+

C15

"Philippe.R" a écrit dans le message de
news:
Bonsoir Lionel,
Ce code devrait le faire :

Sub inser()
'MPFE le 02/02/2004
For i = Application.WorksheetFunction.CountA(Range("e:e")) To 2 Step -1
If Cells(i - 1, 5).Value <> Cells(i, 5).Value Then Cells(i,
5).EntireRow.Insert

Next i
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Lionel Masson" a écrit dans le message
de

news:
bonsoir tout le monde,
voici mon pb:
j'ai 1 tableau avec en colonne "e" des numéros de fourniseurs et en
colonne "f


"les noms des fournisseurs,en colonnes "c" et "d" les débits et les
crédits


cette liste est continue et je voudrais qu'à chaque changement de numéro
en


colonne "e", une ligne s'insère pour créer des sous-totaux des colonnes
"c" et


"d",
mais comment faire??????????
j'avoue, j'ai du mal
alors merci à ceux qui voudraient m'aider...