comment passer de la colone a vers b

[hurricane]

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

@+

 

[Mytå]

Salut hurricane

Pas tres explicite comme question mais bon une idée

If ActiveCell.Row = 65535 Then
Cells(1, ActiveCell.Column + 1).Select
End If

A suivre

 

[hurricane]

j'explique :

j'ai un fichier *.txt ~200 000 données ds ce fichier quand je l'ouvre avec excel celui ci ne met que les 65536 premiere données puisque ds une colonne il y a 65536 cellules donc comment fait-on pour que la 65537 eme données passe dans la cellule 1 de la colonne b

voila merci

 

[Mytå]

re le forum et hurricane

N'ayant pas le format de ton fichier texte essaye ceci

Sub Read_text_File()
rang = 1: col = 1
Cells(rang, col).Activate
'Lecture des données contenues dans un fichier texte
Open "C:\Mes Documents\bin.txt" For Input Access Read As 1
Do While Not EOF(1) ' Loop until end of file.
Line Input #1, Textline
'Affiche le fichier lue
With ActiveCell
.NumberFormat = "@"
.Value = Textline
End With
rang = rang + 1
If rang > 65535 Then
rang = 1
col = col + 1
End If
Loop
Close #1
End Sub

A suivre

 

[hurricane]

Bonjour

ca ne fonctionne pas myta les données s"ecrivent dans la cellule a1 et ne passe pas en a2,a3,a4 etc

mais ca avance et s'est deja bien

salut

 

[hurricane]

salut

voila maintenant sa marche

Sub lecture_fichier_txt()
cellule = 1: colonne = 1
'Lecture des données contenues dans un fichier texte
Open "C:\poubelle\azerty1.txt" For Input Access Read As 1
Do While Not EOF(1) ' Loop until end of file.
Line Input #1, Textline
'Affiche le fichier lue
With ActiveCell
Cells(cellule, colonne).Activate
.NumberFormat = "@"
.Value = Textline
End With
cellule = cellule + 1
If cellule > 65535 Then
cellule = 1
colonne = colonne + 1
End If
Loop
Close #1
End Sub

@+

 

[Mytå]

Re hurricane

petite modification plus esthetique

'Affiche le fichier lue
Cells(cellule, colonne).Activate
With ActiveCell
.NumberFormat = "@"
.Value = Textline
End With

Mytå