Suppresion d'un bloc de ligne dans Excel

Suppresion d'un bloc de ligne dans Excel - VB/VBA/VBS - Programmation

Marsh Posté le 16-12-2011 à 11:33:08    

Bonjour,
j ai un ensemble de fichiers qui sortent tous les mois  
 
j'aimerais :
- supprimer les premieres lignes à chaque fois ainsi que 2 autres lignes
   exemple les lignes allant de 1 à 24 (inclut) puis les 26 et 27 (avant toutes suppressions)
- insérer une ligne entre chaque article (en colonne A)
   avec dans la colonne A le mot "Sous-Total" et des sommes dans les colonnes I et J
 
Si quelqu'un pouvait m'aider à créer une macro pouvant faire ses 2 choses
 
Merci

Reply

Marsh Posté le 16-12-2011 à 11:33:08   

Reply

Marsh Posté le 19-12-2011 à 10:46:33    

pour l insertion j utilisais y a longtemps le code suivant qui ressemble un peut a ce que je veux faire:
 
AdrCel = 3
Do Until IsEmpty(Cells(AdrCel, 1))
  If Cells(AdrCel, 1) <> Cells(AdrCel - 1, 1) Then
    Rows(AdrCel).Insert Shift:=xlDown
    Range(Cells(AdrCel, 1), Cells(AdrCel, NbCol)).Interior.ColorIndex = 48
    AdrCel = AdrCel + 1
  End If
Loop
 
ActiveWorkbook.SaveAs Filename:="C:\test.xls"
 
Application.ScreenUpdating = True
 
mais je ne le comprends plus  
je me souviens de ce qu il faisait
mais impossible d en comprendre le sens

Reply

Marsh Posté le 19-12-2011 à 11:10:25    

Pour voir la syntaxe pour insérer ou pour supprimer, le plus simple est d'enregistrer une macro quand on fait l'opération manuellement, puis de voir le code généré et de l'adapter éventuellement.
 
Pour la question sur l'explication du code, quelle ligne ne comprenez-vous pas ?
En résumé, il s'agit d'une boucle tant qu'il y n'y a pas de cellule vide.
Si la la cellule est différente de la cellule précédente, alors il y insertion et mise en couleur.

Reply

Marsh Posté le 19-12-2011 à 11:28:11    

Merci de la reponse
pour l enregistrement de macro j ai essaye mais je suis vide depasser je ne retrouve plus mes bouquins sur le VBA alors je farfouille sur le net.
 
en fait je ne comprends pas sur quel colonne il se base pour sa recherche et comment la modifier cette colonne
et peut on inserer ce que l on veut automatiquement????

Reply

Marsh Posté le 19-12-2011 à 11:37:58    

C'est ...cells(numero_de_ligne, numero_de_colonne)
 
Donc, dans le programme ci-dessus, c'est toujours la première colonne qui est considérée.

Reply

Marsh Posté le 19-12-2011 à 11:49:02    

et AdrCel = 3  
je ne vois pas ce qu elle signifie

Reply

Marsh Posté le 19-12-2011 à 14:38:32    

AdrCel = 3 signifie la ligne numéro 3, puisque AdrCel est mis dans le premier paramètre de Cells(AdrCel, 1).
C'est pas compliqué, non ?

Reply

Marsh Posté le 19-12-2011 à 14:43:07    

ok
Merci de l'infos

Reply

Marsh Posté le 22-12-2011 à 14:51:29    

me suis debrouille autrement pour les lignes
(j ai virer les lignes dans mon modele de base)
 
Merci

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed