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...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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...
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
"Lionel Masson" <massonlafayette@aol.comnonspam> a écrit dans le message de
news:20040202163825.12662.00001420@mb-m29.aol.com...
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...
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...
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...
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_S_rauphil@wanadoo.fr> a écrit dans le message de
news:OvYsGzd6DHA.2560@TK2MSFTNGP09.phx.gbl...
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
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...