Discussion :

[fstrobel]

actuellement je lit un fichier en format text. je le transforme dans dans une feuille excel.

mon soussis c'est que l'une de mes séquence commence par un égale.

y a t'il une possibilité de désactiver les formules pour qu'il écrive tout simplement le texte

code de parcour :

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
Dim Chaine As String
Dim Ar() As String
Dim i As Long
Dim iRow As Long, iCol As Long
Dim NumFichier As Integer
 
Sub ouvrefic()
 
    Cells.Clear
    NumFichier = 1
    iRow = 1
 
    Open "c:\toto.txt" For Input As #1
        Do While Not EOF(1)
            iCol = 1
            Line Input #1, Chaine
            Ar = Split(Chaine, ":")
            For i = LBound(Ar) To UBound(Ar)
                Cells(iRow, iCol) = Ar(i)
                iCol = iCol + 1
            Next
            iRow = iRow + 1
        Loop
    Close #1
End Sub

[Jean-Pierre49]

Bonjour,

Pour déactiver le calcul :

Code :

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

Application.Calculation = xlManual

Pour le réactivé :

Code :

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

 Application.Calculation = xlAutomatic

Voir Outil-Option-Calcul

[fstrobel]

merci

il plante toujours au meme endroit.
lorsque je suprime pour tester les signes = ça marche.
que faire

[jfontaine]

Essaie en forcant le format de la cellule a texte

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
Dim Chaine As String
Dim Ar() As String
Dim i As Long
Dim iRow As Long, iCol As Long
Dim NumFichier As Integer

Sub ouvrefic()

Cells.Clear
NumFichier = 1
iRow = 1

Open "c:\toto.txt" For Input As #1
Do While Not EOF(1)
iCol = 1
Line Input #1, Chaine
Ar = Split(Chaine, ":")
For i = LBound(Ar) To UBound(Ar)
if left(Ar(i),1)= "=" then Cells(iRow, iCol).NumberFormat = "@"
Cells(iRow, iCol) = Ar(i)
iCol = iCol + 1
Next
iRow = iRow + 1
Loop
Close #1
End Sub

[Qwazerty]

SAlut
Il suffit de rajouter ' au debut de ton texte
Exemple pour afficher =fstrobel sans qu'excel n'interprete le text tu mets '=fstrobel, Excel affichera alors =fstrobel mais sans genere d'erreur

(Edit]
Plus concraitement
Avant

Code :

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

                 Cells(iRow, iCol) = Ar(i)

Tu test si le = est present

Code :

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

If left(Ar(i),1) = "=" Then Ar(i) = "'" + Ar(i)

et voila je pense que ca doit fonctionner
[/Edit]

A++
Qwaz

[ouskel'n'or]

Ou si tu veux supprimer le signe "="

Code :

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

Cells(iRow, iCol) = Replace(Ar(i), "=", "")

[fstrobel]

cool ça marche merci

Juste une question :

Code :

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

then Cells(iRow, iCol).NumberFormat = "@"

c'est quoi ce format ?

[jfontaine]

C'est pour le format texte

[fstrobel]

merci