[VBA-E]Recherche dans un tableau

Et 3 et 4, alors ?
Tiens, j'ai retrouvé ça

Code:

---

1 2 3 4 5 6 7 8 9

Open "C:\MonFichier.csv" For Output As #1 For i = PremièreLigne To DernièreLigne For j = premièreColonne To DernièreColonne Print #1, Cells(i, j).Formula & ";"; 'si tu veux un séparateur <> ";" tu changes Next j Print #1, Cells(i, j + 1).Formula Next i Close #1

---

Il ne te reste plus qu'à définir la première ligne et la première colonne puisque je pense que tu sais définir la dernièreligne et que tu connais la dernière colonne (???)

A+

LOL, je viens de modifier mon "grand" post précédent.

Je réponds pour la suppression des "cellules" (non des colonnes, sinon tu affectes le reste de ta feuille) Tu penses bien ! :lol: Colle tes données sur une autre feuille ;) Tu pourras ainsi supprimer des "colonnes"
Une chose : Si tu as des formules, fais un "collage spécial" des seules valeurs. Sinon je ne sais pas ce que ton csv contiendra :aie:

A+

Je résume :

Voici le code que j'utilise :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Private Sub CommandButton1_Click() Sheets.Add ActiveSheet.Name = "Fichier_CSV"   WNbLigTot = Range("A65535").End(xlUp).Row WLigneCopie = WNbLigTot + 3 WLigneDebutCopie = WLigneCopie i = 1 While (i <= WNbLigTot) '### Si la ligne est en fond JAUNE, il faut copier la ligne à la fin du tableau. Cells(i, 1).Activate If Selection.Interior.ColorIndex = 6 Then ActiveCell.EntireRow.Select ' Sélection de la ligne Selection.Copy ' Copie WLigneCopie = WLigneCopie + 1 Cells(WLigneCopie, 1).Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Cells(WLigneCopie + 1, 1).Activate Cells(WLigneCopie, 1).Activate Selection.NumberFormat = "m/d/yyyy" End If i = i + 1 Wend 'Il faut supprimer certaines colonnes du tableau ' Cells(WLigneDebutCopie, 18).Activate ' Range("J905:J935").Select ' Selection.Delete Shift:=xlToLeft End Sub

---

Pour info, le classeur contient plusieurs feuilles intitulées "Janvier 2006", "Février 2006", etc...
Pour chacune de ces feuilles, je dois créer le fichier CSV.
Actuellement, mon code, créé le tableau à la fin de la feuille en cours, mais il faudrait que ça fonctionne pour toutes les feuilles du classeurs.
Je commence donc à modifier mon code afin que les copies se fassent dans la nouvelle feuille.
Une fois le nouveau tableau créé dans la nouvelle feuille, il faut l'enregsitrer avec un nom précis au format CSV.
Voila le détail...
Bref, je compte sur vous...

Je t'ai donné la soution à 12h19 pour créer un csv avec séparateur pt-virgule.
De quoi as-tu besoin ?

A+

Okette, j'étais passé à côté, je teste et je te tiens au courant.

Juste un tout petit truc :

Code:

---

1 2 3 4

Cells(1,1).activate Cells.select Cells.EntireColumn.Autofit

---

Ce code merdouille sur la première ligne, mais je ne vois pas pourquoi ?

Essaye de mettre plutot :

Code:

---

cells(1,1).select

---

plutot que Activate ;)

Pareil.
j'ai l'erreur d'exécution 1004 : Erreur définie par l'application ou par l'objet.
(J'ai un sheets("toto").Paste, juste avant la lignes qui plante)

Je n'en sais rien... Mais pour dimensionner les colonnes, je sélectionnes toujours les colonnes (même si cells sélectionne toute le feuille)
Essaie avec

Code:

---

1 2	Worksheets(NomDeLaFeuille).Cells.EntireColumn.Autofit

---

pas besoin de sélectionner, tu ralentis ton code. Idem pour les copies. PAS DE SÉLECTION !

Tu dis

A+

Nickel.
En fait, c'est les lignes

Code:

---

1 2 3

Columns("T:T").select Selection.delete shift:=xlToLeft

---

qui posent problème.

Une solution ?

Comme l'a dit Ousk, tu peut supprimer sans sélectionner :

Code:

---

columns(20).delete

---

Tu sélectionnes des colonnes que tu supprimes (donc tes cellules se déplacent naturellement vers la gauche...) et tu demandes en plus qu'elles se déplacent sur la gauche... :aie:

Code:

---

1 2	Worksheets(NomDeLaFeuille).Columns("T:T").delete

---

PAS BESOIN DE SÉLECTIONNER
(la prochaine fois je te mets ça en taille 7 et en rouge :lol:

A+

Je viens de relire "C'est mes lignes qui posent pb"...
Ben pour les lignes c'est pareil.

Code:

---

1 2	Worksheets(NomDeLaFeuille).Rows(12).delete

---

A+

Citation:

---

Envoyé par ouskel'n'or

AlainTech a une autre méthode qui a l'avantage de donner la toute dernière ligne ayant contenu une info, un truc comme

Code:

---

1 2	DernièreLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row

---

Mais si des lignes ont été supprimée, cette méthode n'en tient pas compte et continue à donner l'ancien nombre de lignes

---

Jusqu'à la prochaine sauvegarde du fichier, uniquement.

Oula, j'avais commencé à m'occuper du CSV, mais je viens de me rendre comtpe de 2 choses :
1 - A chque Copier/Coller dans ma feuille, j'ai 2 contrôles qui apparaissent : "HTMLHidden" !!! Ca ne le faisait pas avant, mais je ne vois pas du tout d'où cela peut bien venir : code ??? Options ???
Il faut savoir que j'initialise la feuilles de départ par du copier/coller d'un autre tableau à partir d'une application JAVA, si ça peut vous aider à m'aider...

2 - Les suppressions de colonnes dans la nouvelle feuille du classeur, se font AUSSI sur l'ancienne ??? J'ai donc mon tableau initial qui perd ses colonnes...arf...

A vous...

Bon je fais avancer les choses :

1 - Toujours en cours...
2 - Résolu, j'ai ajouté :

Code:

---

1 2 3

WorkSheets(NomDeLaFeuille).Cells(1, 20).EntireColumn.Delete Shift:=xlToLeft

---

J'ai bien peur que pour HTMLHidden on ne puisse pas t'être d'une aide très efficace.
"HTML masqué"... vois pas. Tu fais ton copier/coller en manuel ?

Quant à "2 - Résolu, j'ai ajouté :..."
Tu te moques ? Quand on te donne un code, essaie-le tel qu'il t'est donné, et si tu dois l'adapter, essaie au moins d'en conserver la syntaxe.

Non mais !

A+ quand même

La composition du fichier CSV fonctionne pas.
En effet, la première colonne de mon tableau contient une date avec le format de cellule '"jj/mm/aaaa", mais le problème c'est que la marco écrit dans le fichier CSV, non pas la date, mais le nombre !!!
Une idée ?

Ayé !!! J'ai trouvé !!!
Je n'utilise pas la ligne

Code:

---

1 2 3

Print #1, Cells(i, j).Formula & ";";

---

Mais à la place je compose moi-même cette ligne :

Code:

---

1 2 3

WLigneTXT = WLigneTXT & WorkSheets(WFeuilleCSV).Cells(i, j).value & ";"

---

Vana...

Citation:

---

En effet, la première colonne de mon tableau contient une date avec le format de cellule '"jj/mm/aaaa", mais le problème c'est que la marco écrit dans le fichier CSV, non pas la date, mais le nombre !!!

---

Tu formates la donnée au moment de l'écrire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Open "C:\MonFichier.csv" For Output As #1 For i = PremièreLigne To DernièreLigne For j = 1 To DernièreColonne if j = 1 then Print #1, Format(Cells(i, j).Formula,"dd/mm/yyyy") & ";"; else Print #1, Cells(i, j).Formula & ";"; endif Next j Print #1, Cells(i, j + 1).Formula 'Permet une fin de ligne A CONSERVER Next i Close #1

---

As-tu compris comment fonctionne cette procédure ? Parce que si oui, la solution vient d'elle-même...
Sinon, essaie de la comprendre. ;)

Tu dis

A+