Automatisation de la taille d'une base de données pour un TCD
3 réponses
Jacques Gronier
Bonjour,
Pour une gestion des stocks avec consommations, je récupère une base de
données comprenant tous les mouvements.
Sous la forme
Colonne A Référence
Colonne B Libellé
Colonne C Quantité ( positif si entrée, négatif pour une sortie)
J'ai une macro de base qui crée une colonne "sens mouvement", Entrée ou
Sortie => déjà là je ne sais pas comment imposer la recopie vers le bas
jusqu'à la dernière ligne
Sub Sens_sur_BPM()
'
' Mise en place d'une colonne mouvement avec formule pour le sens du mvt
Range("J1").Select
ActiveCell.FormulaR1C1 = "Sens_mvt"
Range("J2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-4]>0,""Entrée"",""Sortie"")"
Range("J2").Select
End Sub
Je suis obligé de faire un "recopier vers le bas" à la mimine....
Ensuite pour faire la synthèse des données, je fais un TCD reprenant
Réference Libelle Somme Entrées Sommes Sorties Total
Je souhaiterais pouvoir automatiser cette procédure et donc savoir comment
indiquer d'aller chercher les cellules non vides de la base de données.
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
JB
On 29 sep, 15:40, "Jacques Gronier" wrote:
Bonjour, Pour une gestion des stocks avec consommations, je récupère une base de données comprenant tous les mouvements. Sous la forme Colonne A Référence Colonne B Libellé Colonne C Quantité ( positif si entrée, négatif pour une sortie) J'ai une macro de base qui crée une colonne "sens mouvement", Entrée ou Sortie => déjà là je ne sais pas comment imposer la recopie vers le bas jusqu'à la dernière ligne Sub Sens_sur_BPM() ' ' Mise en place d'une colonne mouvement avec formule pour le sens du mvt Range("J1").Select ActiveCell.FormulaR1C1 = "Sens_mvt" Range("J2").Select ActiveCell.FormulaR1C1 = "=IF(RC[-4]>0,""Entrée"",""Sortie" ")" Range("J2").Select
Je suis obligé de faire un "recopier vers le bas" à la mimine....
Ensuite pour faire la synthèse des données, je fais un TCD reprenant Réference Libelle Somme Entrées Sommes Sorties Total Je souhaiterais pouvoir automatiser cette procédure et donc savoir comm ent indiquer d'aller chercher les cellules non vides de la base de données.
D'avance, je vous remercie
-- Bien Cordialement
Jacques Gronier
On 29 sep, 15:40, "Jacques Gronier" <nob...@nowhere.com> wrote:
Bonjour,
Pour une gestion des stocks avec consommations, je récupère une base de
données comprenant tous les mouvements.
Sous la forme
Colonne A Référence
Colonne B Libellé
Colonne C Quantité ( positif si entrée, négatif pour une sortie)
J'ai une macro de base qui crée une colonne "sens mouvement", Entrée ou
Sortie => déjà là je ne sais pas comment imposer la recopie vers le bas
jusqu'à la dernière ligne
Sub Sens_sur_BPM()
'
' Mise en place d'une colonne mouvement avec formule pour le sens du mvt
Range("J1").Select
ActiveCell.FormulaR1C1 = "Sens_mvt"
Range("J2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-4]>0,""Entrée"",""Sortie" ")"
Range("J2").Select
Je suis obligé de faire un "recopier vers le bas" à la mimine....
Ensuite pour faire la synthèse des données, je fais un TCD reprenant
Réference Libelle Somme Entrées Sommes Sorties Total
Je souhaiterais pouvoir automatiser cette procédure et donc savoir comm ent
indiquer d'aller chercher les cellules non vides de la base de données.
Bonjour, Pour une gestion des stocks avec consommations, je récupère une base de données comprenant tous les mouvements. Sous la forme Colonne A Référence Colonne B Libellé Colonne C Quantité ( positif si entrée, négatif pour une sortie) J'ai une macro de base qui crée une colonne "sens mouvement", Entrée ou Sortie => déjà là je ne sais pas comment imposer la recopie vers le bas jusqu'à la dernière ligne Sub Sens_sur_BPM() ' ' Mise en place d'une colonne mouvement avec formule pour le sens du mvt Range("J1").Select ActiveCell.FormulaR1C1 = "Sens_mvt" Range("J2").Select ActiveCell.FormulaR1C1 = "=IF(RC[-4]>0,""Entrée"",""Sortie" ")" Range("J2").Select
Je suis obligé de faire un "recopier vers le bas" à la mimine....
Ensuite pour faire la synthèse des données, je fais un TCD reprenant Réference Libelle Somme Entrées Sommes Sorties Total Je souhaiterais pouvoir automatiser cette procédure et donc savoir comm ent indiquer d'aller chercher les cellules non vides de la base de données.
D'avance, je vous remercie
-- Bien Cordialement
Jacques Gronier
Jacques Gronier
Merci beaucoup
-- Bien Cordialement
Jacques Gronier
"JB" a écrit dans le message de news:
On 29 sep, 15:40, "Jacques Gronier" wrote:
Bonjour, Pour une gestion des stocks avec consommations, je récupère une base de données comprenant tous les mouvements. Sous la forme Colonne A Référence Colonne B Libellé Colonne C Quantité ( positif si entrée, négatif pour une sortie) J'ai une macro de base qui crée une colonne "sens mouvement", Entrée ou Sortie => déjà là je ne sais pas comment imposer la recopie vers le bas jusqu'à la dernière ligne Sub Sens_sur_BPM() ' ' Mise en place d'une colonne mouvement avec formule pour le sens du mvt Range("J1").Select ActiveCell.FormulaR1C1 = "Sens_mvt" Range("J2").Select ActiveCell.FormulaR1C1 = "=IF(RC[-4]>0,""Entrée"",""Sortie"")" Range("J2").Select
Je suis obligé de faire un "recopier vers le bas" à la mimine....
Ensuite pour faire la synthèse des données, je fais un TCD reprenant Réference Libelle Somme Entrées Sommes Sorties Total Je souhaiterais pouvoir automatiser cette procédure et donc savoir comment indiquer d'aller chercher les cellules non vides de la base de données.
D'avance, je vous remercie
-- Bien Cordialement
Jacques Gronier
Merci beaucoup
--
Bien Cordialement
Jacques Gronier
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
542c4f35-c42f-4288-9943-9cf244ed9313@k17g2000yqb.googlegroups.com...
On 29 sep, 15:40, "Jacques Gronier" <nob...@nowhere.com> wrote:
Bonjour,
Pour une gestion des stocks avec consommations, je récupère une base de
données comprenant tous les mouvements.
Sous la forme
Colonne A Référence
Colonne B Libellé
Colonne C Quantité ( positif si entrée, négatif pour une sortie)
J'ai une macro de base qui crée une colonne "sens mouvement", Entrée ou
Sortie => déjà là je ne sais pas comment imposer la recopie vers le bas
jusqu'à la dernière ligne
Sub Sens_sur_BPM()
'
' Mise en place d'une colonne mouvement avec formule pour le sens du mvt
Range("J1").Select
ActiveCell.FormulaR1C1 = "Sens_mvt"
Range("J2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-4]>0,""Entrée"",""Sortie"")"
Range("J2").Select
Je suis obligé de faire un "recopier vers le bas" à la mimine....
Ensuite pour faire la synthèse des données, je fais un TCD reprenant
Réference Libelle Somme Entrées Sommes Sorties Total
Je souhaiterais pouvoir automatiser cette procédure et donc savoir comment
indiquer d'aller chercher les cellules non vides de la base de données.
Bonjour, Pour une gestion des stocks avec consommations, je récupère une base de données comprenant tous les mouvements. Sous la forme Colonne A Référence Colonne B Libellé Colonne C Quantité ( positif si entrée, négatif pour une sortie) J'ai une macro de base qui crée une colonne "sens mouvement", Entrée ou Sortie => déjà là je ne sais pas comment imposer la recopie vers le bas jusqu'à la dernière ligne Sub Sens_sur_BPM() ' ' Mise en place d'une colonne mouvement avec formule pour le sens du mvt Range("J1").Select ActiveCell.FormulaR1C1 = "Sens_mvt" Range("J2").Select ActiveCell.FormulaR1C1 = "=IF(RC[-4]>0,""Entrée"",""Sortie"")" Range("J2").Select
Je suis obligé de faire un "recopier vers le bas" à la mimine....
Ensuite pour faire la synthèse des données, je fais un TCD reprenant Réference Libelle Somme Entrées Sommes Sorties Total Je souhaiterais pouvoir automatiser cette procédure et donc savoir comment indiquer d'aller chercher les cellules non vides de la base de données.
D'avance, je vous remercie
-- Bien Cordialement
Jacques Gronier
Jacques Gronier
Bonsoir, Grace à l'enregistreur, j'ai créé le nom de la plage "base_donnees", ainsi que cette macro dans perso.xls par contre , j'ia un blocage au niveau de ActiveWorkbook.PivotCaches.Create.... Les 4 lignes se retrouvent en surbrillance...
Sheets("Feuil1").Select Cells(3, 1).Select With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Ref") .Orientation = xlRowField .Position = 1 End With With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _ "Designation") .Orientation = xlRowField .Position = 2 End With ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _ PivotTables("Tableau croisé dynamique1").PivotFields("Qte"), "Somme de Qte", _ xlSum With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _ "sens_mvt") .Orientation = xlColumnField .Position = 1 End With Range("A7").Select ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Ref"). _ Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _ False, False) ActiveSheet.PivotTables("Tableau croisé dynamique1").Name = "TCD_MVT" End Sub
Merci de votre aide
Bien Cordialement
Jacques Gronier
"JB" a écrit dans le message de news:
On 29 sep, 15:40, "Jacques Gronier" wrote:
Bonjour, Pour une gestion des stocks avec consommations, je récupère une base de données comprenant tous les mouvements. Sous la forme Colonne A Référence Colonne B Libellé Colonne C Quantité ( positif si entrée, négatif pour une sortie) J'ai une macro de base qui crée une colonne "sens mouvement", Entrée ou Sortie => déjà là je ne sais pas comment imposer la recopie vers le bas jusqu'à la dernière ligne Sub Sens_sur_BPM() ' ' Mise en place d'une colonne mouvement avec formule pour le sens du mvt Range("J1").Select ActiveCell.FormulaR1C1 = "Sens_mvt" Range("J2").Select ActiveCell.FormulaR1C1 = "=IF(RC[-4]>0,""Entrée"",""Sortie"")" Range("J2").Select
Je suis obligé de faire un "recopier vers le bas" à la mimine....
Ensuite pour faire la synthèse des données, je fais un TCD reprenant Réference Libelle Somme Entrées Sommes Sorties Total Je souhaiterais pouvoir automatiser cette procédure et donc savoir comment indiquer d'aller chercher les cellules non vides de la base de données.
D'avance, je vous remercie
-- Bien Cordialement
Jacques Gronier
Bonsoir,
Grace à l'enregistreur, j'ai créé le nom de la plage "base_donnees", ainsi
que cette macro dans perso.xls
par contre , j'ia un blocage au niveau de
ActiveWorkbook.PivotCaches.Create....
Les 4 lignes se retrouvent en surbrillance...
Sheets("Feuil1").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé
dynamique1").PivotFields("Ref")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Designation")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField
ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("Qte"), "Somme
de Qte", _
xlSum
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"sens_mvt")
.Orientation = xlColumnField
.Position = 1
End With
Range("A7").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Ref").
_
Subtotals = Array(False, False, False, False, False, False, False,
False, False, False, _
False, False)
ActiveSheet.PivotTables("Tableau croisé dynamique1").Name = "TCD_MVT"
End Sub
Merci de votre aide
Bien Cordialement
Jacques Gronier
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
542c4f35-c42f-4288-9943-9cf244ed9313@k17g2000yqb.googlegroups.com...
On 29 sep, 15:40, "Jacques Gronier" <nob...@nowhere.com> wrote:
Bonjour,
Pour une gestion des stocks avec consommations, je récupère une base de
données comprenant tous les mouvements.
Sous la forme
Colonne A Référence
Colonne B Libellé
Colonne C Quantité ( positif si entrée, négatif pour une sortie)
J'ai une macro de base qui crée une colonne "sens mouvement", Entrée ou
Sortie => déjà là je ne sais pas comment imposer la recopie vers le bas
jusqu'à la dernière ligne
Sub Sens_sur_BPM()
'
' Mise en place d'une colonne mouvement avec formule pour le sens du mvt
Range("J1").Select
ActiveCell.FormulaR1C1 = "Sens_mvt"
Range("J2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-4]>0,""Entrée"",""Sortie"")"
Range("J2").Select
Je suis obligé de faire un "recopier vers le bas" à la mimine....
Ensuite pour faire la synthèse des données, je fais un TCD reprenant
Réference Libelle Somme Entrées Sommes Sorties Total
Je souhaiterais pouvoir automatiser cette procédure et donc savoir comment
indiquer d'aller chercher les cellules non vides de la base de données.
Bonsoir, Grace à l'enregistreur, j'ai créé le nom de la plage "base_donnees", ainsi que cette macro dans perso.xls par contre , j'ia un blocage au niveau de ActiveWorkbook.PivotCaches.Create.... Les 4 lignes se retrouvent en surbrillance...
Sheets("Feuil1").Select Cells(3, 1).Select With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Ref") .Orientation = xlRowField .Position = 1 End With With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _ "Designation") .Orientation = xlRowField .Position = 2 End With ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _ PivotTables("Tableau croisé dynamique1").PivotFields("Qte"), "Somme de Qte", _ xlSum With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _ "sens_mvt") .Orientation = xlColumnField .Position = 1 End With Range("A7").Select ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Ref"). _ Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _ False, False) ActiveSheet.PivotTables("Tableau croisé dynamique1").Name = "TCD_MVT" End Sub
Merci de votre aide
Bien Cordialement
Jacques Gronier
"JB" a écrit dans le message de news:
On 29 sep, 15:40, "Jacques Gronier" wrote:
Bonjour, Pour une gestion des stocks avec consommations, je récupère une base de données comprenant tous les mouvements. Sous la forme Colonne A Référence Colonne B Libellé Colonne C Quantité ( positif si entrée, négatif pour une sortie) J'ai une macro de base qui crée une colonne "sens mouvement", Entrée ou Sortie => déjà là je ne sais pas comment imposer la recopie vers le bas jusqu'à la dernière ligne Sub Sens_sur_BPM() ' ' Mise en place d'une colonne mouvement avec formule pour le sens du mvt Range("J1").Select ActiveCell.FormulaR1C1 = "Sens_mvt" Range("J2").Select ActiveCell.FormulaR1C1 = "=IF(RC[-4]>0,""Entrée"",""Sortie"")" Range("J2").Select
Je suis obligé de faire un "recopier vers le bas" à la mimine....
Ensuite pour faire la synthèse des données, je fais un TCD reprenant Réference Libelle Somme Entrées Sommes Sorties Total Je souhaiterais pouvoir automatiser cette procédure et donc savoir comment indiquer d'aller chercher les cellules non vides de la base de données.