Discussion :

[soria_t]

Bonjour,

J'ai un fichier texte que je lis et dont je récupère les informations. Mon problème est qu'une information peut être sur deux lignes comment faire pour avoir les deux lignes dans ma matrice ?
Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
Set cAutre = Cells.Find(What:="Position de cartographie génétique", After:=c)
          If Not cAutre Is Nothing Then
            If MemeFiche(c, cSuivant, cAutre) Then
              Pos = InStr(1, cAutre, ":", vbTextCompare)
                If Pos <> Len(cAutre) Then
                  Mat(i, 6) = Mid(cAutre, Pos + 1 + IIf(Asc(Mid(cAutre, Pos + 1, 1)) = 32 Or Asc(Mid(cAutre, Pos + 1, 1)) = 160, 1, 0))
                  RSgene.Fields("CartoGen").Value = Mat(i, 6)
                End If
            End If
          End If

Merci d'avance

[soria_t]

Pour ceux que ça interresse une concaténation du type "& cAutre.Offset(1)"