condition sur colonne

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

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

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:

---

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

---

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:

---

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:

---

blocs = Split(contenu, vbCrLf & vbCrLf)

---

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

Code:

---

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.