Inserer des lignes et des calculs

[dran_200]

Bonjour à tous,
Voila mon soucis.
J'ai un fichier de départ dans lequel il faudrait :
- inserer une ligne "ligne 2"
- selectionner les valeurs non vides de la colonne "A", inserer une ligne vide en face et décaler le reste vers le bas
- calculer sur les colonnes "D, E, F" la somme des valeurs au dessus.
- calculer dans la lignes 2 la somme des sommes par colonnes.......
je vous joint un fichier.
l'encadré à gauche est le départ, celui de droite le résultat.
en sachant que le nombre de lignes change chaque semaine.
Encore merci pour votre aide

 

[dran_200]

Re : Inserer des lignes et des calculs

je remet le fichier avec des couleurs...
merci

 

[gosselien]

Re : Inserer des lignes et des calculs

tableau croisé dynamique et ça roule....

 

[Gen Rose]

Re : Inserer des lignes et des calculs

Bonjour dran_200,
gosselien
Le Forum

Juste parceque je me suis donné la peine de le faire, en p.j. aussi une propo avec TCD...mais le mien est plus beau

@ plus!

 

[gosselien]

Re : Inserer des lignes et des calculs

Bonjour dran_200,
gosselien
Le Forum

Juste parceque je me suis donné la peine de le faire, en p.j. aussi une propo avec TCD...mais le mien est plus beau

@ plus!

oui il est plus beau

 

[Gen Rose]

Re : Inserer des lignes et des calculs

@gosselien: Awwww

@dran_200: Pour info, il est possible de placer le total en tête de liste, tel que voulu: il faut simplement une petite lecture du TCD.

Voir p.j.

N.B.: J'ai enlevé les 0 de la feuille en décochant la case 'Afficher les zéro[..]' sous Options; Options avancées; Afficher les options pour cette feulle de calcul'

 

[dran_200]

Re : Inserer des lignes et des calculs

Bonjour,

et merci.
Je voudrais faire ça sous forme de macro car je dois l'inclure dans une macro qui met en forme tout le tableau.
pour info, mon tableau fait environ 500 lignes.

merci

 

[dran_200]

Re : Inserer des lignes et des calculs

Re,
J'ai simplifié mon fichier, je ne doit plus que inserer des lignes.
J'ai essayé avec la fonction trie pour sélectionner les cellules non vides sur la colonnes A.

Sub Macro1()
On Error GoTo 0
Range("A1").AutoFilter Field:=1, Criteria1:="<>"
With Range("_FilterDatabase")

End With
ActiveSheet.AutoFilterMode = False

End Sub

je voudrais ensuite inserer une ligne au dessus de chaque sélection.
mais ça je n'arrive pas.
si je prend ma sélection, il m'insère des lignes au départ toute ensemble ....
je joint un fichier, à gauche le départ et à droite l'arrivée.

Encore merci pour votre aide

 

[kingfadhel]

Re : Inserer des lignes et des calculs

Salut dran, le forum,
Il suffit de changer la source de données du TCD.
Modification et ajout code VBA sur le fichier de genevieve78

 

[dran_200]

Re : Inserer des lignes et des calculs

re,

Merci pour votre aide.

Je vais voir le fichier.
Mais j'ai réussis à simplifier le mien en faisant le calcul plus loin dans mon code.
la ou je bloque c'est pour insérer des lignes au départ.......

encore merci

 

[dran_200]

Re : Inserer des lignes et des calculs

re,

Je viens de changer mon code pour inserer les lignes :

Columns("A:A").Select

Selection.End(xlDown).Select

Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

ça insert bien une ligne, mais je n'arrive pas descendre ma boucle sur toute la colonne A

merci

 

[gosselien]

Re : Inserer des lignes et des calculs

re,

Je viens de changer mon code pour inserer les lignes :

Columns("A:A").Select

Selection.End(xlDown).Select

Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

ça insert bien une ligne, mais je n'arrive pas descendre ma boucle sur toute la colonne A

merci

attention que pour insérer des lignes, il est toujours préférable de partir du bas

 

[dran_200]

Re : Inserer des lignes et des calculs

Re
j'ai essayé en partant depuis le bas.
j'insére ma premiere ligne (la derniere) mais ensuite.;;;

merci

 

[dran_200]

Re : Inserer des lignes et des calculs

Bonjour à tous,
Je modifié ma macro, mais j'ai encore un soucis :

Range("A1").Select
nb = Application.WorksheetFunction.CountA(Range("A1:A" & Range("A65536").End(xlUp).Row))
For i = 1 To nb - 1
Selection.End(xlDown).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(1, 0).Range("A1").Select
Next

ça fonctionne bien, sauf si j'ai plusieurs cellule non vide à la suite dans la colonne "A".
je selectionne la 1er cellule puis la dernière, Mais pas celle du milieu.
Quelqu'un a une idée ?

Merci

 

[gosselien]

Re : Inserer des lignes et des calculs

si je ne me trompe, counta compte les cellules vides...regarde combien tu as de cellules vides/non vides dans ta colonne A ...