question apres la 65536 eme cellules

[hurricane]

Bonjour

une petit question dans un fichier texte qui contient ~200 000 données que je voudrais trier, graph etc..
comment je fais pour que arriver a la 65536 eme cellule de la colonne A je passe a la Colonne B cellule 1 ?

merci d'avance

@+

 

[Pyrof]

Bonjour,

Voici le principe, je ne l'ai pas testé (voir la syntaxe)

col=1
while not eof(fichier)
ligne=ligne+1
cells(ligne,col)=inputfile()
if ligne=65535 then
col=col+1
ligne=1
end if
wend

 

[Vériland]

Bonsoir Hurricane et le forum,

Voilà j'ai réussi à faire ce que tu souhaitais...à savoir, changer de colonne dès que la ligne 65536 est atteinte...donc tu vas pouvoir en mettre des données...16777216...loool

J'ai mis volontairement la boucle de cette macro à 10 (Lig) pour l'exemple...

j'ai aussi inclu l'option d'ouverture du fichier à chercher sur le disque, mais il est facile d'y mettre le nom du fichier TXT dans la macro, pour éviter d'avoir à spécifier le chemin à chaque fois...

' Macro Par Vériland
' Pour Excel Downloads
' Mars 2003
Sub GrandFichierTexte()
Dim Lecture As String
Dim NomFichier As String
Dim Contenu As Integer
Dim Lig As Byte
Dim Col As Byte
Col = 0
Lig = 1
NomFichier = Application.GetOpenFilename
Contenu = FreeFile()
If NomFichier = "" Then End
Open NomFichier For Input As #Contenu
Application.ScreenUpdating = False
Do While Seek(Contenu) <= LOF(Contenu)
Line Input #Contenu, Lecture
If Left(Lecture, 1) = "=" Then
ActiveCell.Value = "'" & Lecture
Else
ActiveCell.Value = Lecture
End If
ActiveCell.Offset(1, 0).Select

Lig = Lig + 1
'
If Lig = 10 Then ' change ici la valeur (65536)
Lig = 0
Col = Col + 1
' si tu veux choisir une feuille spécifique
' Worksheets(1).Cells(1, 1 + Col).Select
' sinon c'est la feuille en cours
Cells(1, 1 + Col).Select
End If
Loop
End Sub

A+ Vériland

 

[Mytå]

Bonsoir le forum

Meme question que sur le lien

Lien supprimé

 

[Vériland]

Bonsoir Mytå,

ah oui, même question...j'avais pas vu...ben au moins on peut dire que c'est une réponse complete et en prime plusieurs versions...lool...pourront pas dire qu'on travaille pas là...hi hi hi