Discussion :

[philatex]

bonjour a tous

je me retrouve bloqué avec un fichier que je dois traiter. je suis debutant et je ne vois pas comment l'ecrire

j'ai un fichier qui se presente en 2 colonnes A et B.
tout est enregistré à la suite sur ces colonnes et le decoupage est identifier par un saut de 2 lignes

exemple

A                B          colonne
1                1          mesure 1
2                2


3                3         mesure 2
4                4
12              12


1                1         mesure 3
2                2
3                3
4                4
12              12

je souhaiterai parcourir chaque ligne et dès que je rencontre 2 ligne vides je récupère mesure 2 pour la coller dans la colonne C et D et mesure 3 en E et F et ainsi de suite et si on rencontre 3 cellule vide on arrête

ça me semble compliqué

merci pour votre aide

[unparia]

Bonjour
Nous comprenons que cela te "semble compliqué".
Nous aimerions cependant savoir ce que tu as au moins tenté d'écrire.

[philatex]

merci pour ton retour

pour le moment avec l'aide d emon ami google, j'arrive a ouvrir mon fichier et supprimer mes entetes mais la partie decoupage de mon fichier me perturbe

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
19
20
21
22
23
24
25
26
27
28
29
30
31
 
   Dim i As Long, j As Long, ar
   Dim sRepertoire As String, sNomFichier As String, sNomFichier2 As String
   Dim iFile As Integer, iFile2 As Integer
   Dim data
   Dim ws As Worksheet
 
   sRepertoire = "D:\test\"             '// doit terminer avec un "\"
   sNomFichier = "test.txt"
 
 
   Set ws = Sheets("Feuil1")          '// feuille où écrire les résultats
   ws.UsedRange.Clear                   '// vider le contenu de la feuille
 
   'Ouverture du fichier
   iFile = FreeFile
   Open sRepertoire & sNomFichier For Input As #iFile
 
'on ajoute chaque ligne du fichier txt
   i = 1
   Do Until EOF(iFile)
      Line Input #iFile, data
      ws.Cells(i, 1) = data
      i = i + 1
   Loop
 
   Close #iFile
 
'suppression de l'entete
Call SupprLignes
End Sub

[unparia]

Commence par apprendre comment lire ton fichier d'un seul coup, puis à le scinder (par la fonction split) en blocs séparés de deux retours à la ligne (un retour/ligne est la constante vbcrlf)
Si le premier caractère d'un bloc est un vbcrlf, c'est que tu as eu au moins un 3ème saut de ligne, non ?
Je ne vais pas tout te faire, mais me contenter de te mettre sur la voie :
Voici comment on lit dans une variable contenu le contenu (tout le contenu) d'un fichier texte dont le chyemin est "d:\mesures.txt" :

Code :

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

1
2
3
Open "d:\mesures.txt" For Input As #1
contenu = Input(LOF(1), #1)
Close #1

Voici maintenant comment on peut créer (par éclatement avec split) les blocs séparés par au moins deux sauts de lignes :

Code :

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

blocs = Split(contenu, vbCrLf & vbCrLf)

et voici comment on a accès aux différents blocs (ici, on va les afficher) :

Code :

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

1
2
3
For i = 0 To UBound(blocs)
  MsgBox blocs(i)
Next

Je te laisse continuer à partir de là. Dans le cas contraire, ce serait faire tout à ta place. Et ce "tout" revêtant plusieurs aspects, ce serait faire un "ensemble", ce que je souhaite d'autant moins que ton titre succinct et flou ("condition sur colonne") ne montre pas une réelle volonté d'effort.
Tu as donc un début. Continue maintenant.