Suppresion d'un bloc de ligne dans Excel - VB/VBA/VBS - Programmation
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
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.
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????
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.
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 ?
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
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