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

re,
cette partie fonctionne.
la boucle marche.
mon soucis est que s'il y a trois cellules a la suite non vide en colonne A
je selectionne la premiere puis la troisieme, mais pas la deuxieme.
encore merci

 

[dran_200]

Re : Inserer des lignes et des calculs

re
je joint un fichier avec un exemple de mon fichier de départ et d'arrivée.
avec ma macro, je selection "A7" j'insere une ligne, puis je vais directement sur "A9" et j'insere une ligne.
alors que je voudrais d'abord traiter la cellule "A8".
encore merci

 

[dran_200]

Re : Inserer des lignes et des calculs

bonjour à tous

voila mon codé qui fonctionne

Range("A2").Select
nb = Range("a65535").End(xlUp).Row
For i = 1 To nb
If ActiveCell <> "" Then
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(2, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If

encore merci à tous