[VBA-E] - supprimer des colonnes

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

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

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:

---

1 2 3

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

---

Code:

---

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... :wink:
A+

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

Citation:

---

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

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

T'as :resolu: ? Alors mets :resolu: Bouton en bas à gauche de la fenêtre :wink:

Pour les 3 premières lignes:

Code:

---

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.
:D

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:

---

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

---

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

Merci.

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

Code:

---

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+

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

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

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à :wink:

Tu dis

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 !

++

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.

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...

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+