[VBA-E] - supprimer des colonnes

**romano** · 02/02/2006, 10h30

Bonjour a tous,
voila je doit parser un fichier Excel en Java. Ce fichier est un enorme calendrier avec des dates marquees en rouge. Moi je dois recuperer ces dates et les enregistrer dans ma base de donnée.
Le probleme que j'ai c'est que je dois supprimer des lignes de mon fichier Excel afin de le convertir dans un format facilement parsable. Je dois juste recupere les dates et non pas les entete des colonnes.
Mon probleme c'est que je ne connais pas du tout le VBA, et j'ai tellement a faire en JAVA que je n'ai pas le temps de m'y mettre. Je ne pense pas que c'est hyper compliquer a faire et ca serai vraiment cool si quelqu'un pouvait me donner un coup de pousse.
Merci

**ThierryAIM** · 02/02/2006, 10h34

il faudrait déjà savoir si tu veux supprimer des colonnes (titre du post) ou des lignes (texte du post) ???

**Megaxel** · 02/02/2006, 10h39

Salut,
Si je comprend bien, tu veux le code qui te permet, en VBA, de supprimer la ligne 1 de l'onglet "MonOnglet", c'est-à-dire celle qui contient les entêtes des colonnes.
Essaie comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub SupprLigne1()
   ActiveWorkbook.WorkSheets("MonOnglet").Rows(1).Delete Shift:=xlUp
End Sub

**ouskel'n'or** · 02/02/2006, 10h46

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Rows(NoLigne).delete
Columns(NoCol).delete

Avec ça tu peux tout effacer, ligne ou colonne... parce que, comme Thierrry, je n'ai pas compris...

A+

**romano** · 02/02/2006, 10h47

Merci bien les gars ca va vraiment vite, je suis impressionné

Si je comprend bien, tu veux le code qui te permet, en VBA, de supprimer la ligne 1 de l'onglet "MonOnglet", c'est-à-dire celle qui contient les entêtes des colonnes.

Ouai c'est exactement ca. En fait c'est les trois premieres lignes que je dois suprimmer. Je me suis mal exprime dans l'intituler de mon poste.
Je vais essayer le code que tu m'as donné + ce que j'ai trouve sur le forum.
Merci bcps
romano

**DarkVader** · 02/02/2006, 10h57

Et pour faire ça, tu ne connais pas l'enregistreur de macro (Alt OME) ?

**ouskel'n'or** · 02/02/2006, 11h02

T'as

? Alors mets

Bouton en bas à gauche de la fenêtre

**Megaxel** · 02/02/2006, 11h04

Pour les 3 premières lignes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows("1:3")

Et pour aller dans le sens de DarkVader, c'est vrai que tu serais allé ENCORE PLUS VITE en enregistrant une macro et en regardant le code.

**romano** · 02/02/2006, 11h23

Ok ca marche bien,
maintenant il faudrait que ce qu'il y a dans mon fichier Excel apres ma proc EffacerLg() j'arrive a le placer dans un fichier .csv dans un autre repertoire, mais pour l'instant j'arrive pas a mettre mes infos a l'interieur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
Sub EffacerLg()
Dim l As Range
Dim i As Integer
Dim nFile As Integer
For i = 1 To 5 Step 1
    'Efface la ligne voulue'
    ActiveWorkbook.Worksheets("Mindshare Plan Drop").Rows(i).Delete shift:=xlUp
 Next i
 
nFile = FreeFile
Open "C:\test.csv" For Output Shared As #nFile
Print #nFile,
Close #nFile
End Sub

**Megaxel** · 02/02/2006, 11h28

ALLO !!!!
JE REPETE!!!!!
ENREGISTREUR DE MACROS !!!!!!
=> "SaveAs"

Merci.

**ouskel'n'or** · 02/02/2006, 11h37

Tu aurais sans doute trouvé ça dans la FAQ avec un peu d'effort mais puisque j'ai ça...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub SaveAsCSV(NomFichier) 'où nomFichier est le fichier créé
Dim i, j, DernièreLigne, DernièreColonne, NomFichier
'(nomFichier = "c:\FichierBricolé.csv")
    Application.ScreenUpdating = False  'masque les déplacements dans la feuille de calcul
    ActiveSheet.Range("A1").Select
    DernièreLigne = Selection.CurrentRegion.End(xlDown).Row
    DernièreColonne = Selection.CurrentRegion.End(xlToRight).Column
    Cells(1, 1).Select
    Open NomFichier For Output As #1
    For i = 1 To DernièreLigne  'les données sont lues ligne par ligne...
        For j = 1 To DernièreColonne - 1    '... colonne après colonne
            Print #1, Cells(i, j).Formula + ";"; 'SEPARATEUR ;
        Next j
        Print #1, Cells(i, j + 1).Formula   'crée un crlf en fin de ligne avant de passer à la suivante
    Next i
    Close #1
    Application.ScreenUpdating = True   'met à jour l'affichage
End Sub

Par macro, une sauvegarde en csv met une virgule comme séparateur. Le code ci-dessus te permet de mettre un ;

A+

**romano** · 02/02/2006, 11h44

Desole je comprend pas ce que tu me dis, je suis novice de chez novice en VBA c'est la premiere fois que j'y touche. Je sais ce qu'est une macro masi je vois pas l'interet de l'enregistrer en macro. Enfin si je vois mais je sais pas faire ???
Merci

**jmfmarques** · 02/02/2006, 12h12

D'où l'intérêt certain de commencer par le commencement !

**ouskel'n'or** · 02/02/2006, 12h15

Je m'explique :
Si tu enregistres manuellement un xls en csv, les séparateurs de données sont des points-virgules.
Si tu l'enregistres par macro, les séparateurs sont des virgules. En anglais, le point-virgule n'existe pas même s'il est connu (semicolon)
Donc, pour avoir un csv avec un point-virgule comme séparateur, on est contraint de passer par la création d'un fichier texte, avec csv comme extension à la place de txt.

Voilà

Tu dis

**marsup54** · 02/02/2006, 12h17

L'enregistreur de macro te permets de visualiser, le code VBA généré, pour les différentes actions que tu effectues.

Exemple : tu actives l'enregistreur de macro sur Excel, puis la tu exécutes plusieurs actions (copier/coller, suppression de pages, ...).
Ensuite tu coupes l'enregistreur de macros et tu visualises le code généré.

Regardes dans la FAQ pour les détails !

++

**Megaxel** · 02/02/2006, 12h21

Ok, alors j'explique:
Il y a un moyen très simple de fabriquer automatiquement le code qui fait ce que tu veux faire. Dans Excel, dans le menu "Outils", "macro", tu choisis "Nouvelle macro". Là, il va te demander où tu veux mettre le code: accepte le choix par défaut. A partir de ce moment, (presque) tout ce que tu fais sur ton classeur est enregistré. Quand tu as fini, tu arrêtes l'enregistrement (en cliquant sur le petit carré).
Et là, tu n'as plus qu'à aller dans l'éditeur de code: Alt + F11.
Dans le menu de gauche, tu as une arborescence. Place toi dans ton classeur, et ouvre (double-click) le module (s'il y en a plusieurs, il faut fouiller...). Tu vas y trouver le code VBA qui fais ce que tu as fais toi-même juste avant.

**jmfmarques** · 02/02/2006, 12h25

Il n'aura pas à fouiller tant que celà : le nom de la macro générée lui est indiqué au moment de la création...
Une fois la macro enregistrée : outil ===>> macro ==>> s'affichent alors les macros présentes, parmi lesquelles la macro générée, avec le nom de baptème donné à sa création...

**ouskel'n'or** · 02/02/2006, 14h22

A propos de l'enregistreur de macro (bien pratique, en effet).
Une restriction cependant.
Quand tu effectues l'enregistrement d'un csv, si tu enregistres la macro, elle ne sera utilisable que pour un fichier ayant la même structure (même nombre de colonnes) sauf à modifier le code (lourd à modifier).
Maintenant, si tu veux pouvoir généraliser l'utilisation d'une Sub générant du csv, l'enregistreur de macros ne te le permet pas.

Juste une remarque en passant

A+

[VBA-E] - supprimer des colonnes

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager