Discussion :

[lionhigh]

Bonjour,

J'ai un petit soucis avec une colonne dans excel.

Ce qui se passe :
Je converti un fichier txt en classeur excel. Lorsqu'une cellule commence par "-" et est suivi de texte (et non de chiffres), excel convertit la cellule en formule en mettant un "=" devant et indique par conséquent #NOM? dans la cellule.

Ceci ne m'est vraiment pas utile, car lors du traitement postérieur de la colonne, je me retrouve avec des incompatibilités de types.

Il y a t'il un moyen pour enlever ce "=" ?
Quel est le format d'une formule ?

[ouskel'n'or]

Code :

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

Cells(NoLig, NoCol) = "'" & Cells(NoLig, NoCol)

l'apostrophe placée en début de formule dit à Excel de considérer le contenu de la cellule comme du texte.
Bonne journée

NB - Tu peux aussi utiliser Cells(NoLig, NoCol).formula pour modifier la formule avec mid

Code :

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

Cells(NoLig, NoCol).formula = Mid(Cells(NoLig, NoCol).formula, 2, len(Cells(NoLig, NoCol).formula)-1)

(pas testé)

[lionhigh]

Merci, ça fonctionne !

Mais quel est le test pour savoir si une cellule contient une formule ?
Je veux appliquer le traitement à chaque cellule de ma colonne, mais uniquement s'il s'agit d'une formule.

Avec ce code il enlève le premier caractère de chaque cellule non vide :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
    Dim NoLig As Integer
    Dim NoCol As Integer
    NoCol = 3
    For NoLig = 1 To 90
        If Cells(NoLig, NoCol) <> "" Then
            Cells(NoLig, NoCol).Formula = Mid(Cells(NoLig, NoCol).Formula, 2, Len(Cells(NoLig, NoCol).Formula) - 1)
        Else
 
        End If
    Next NoLig

[Gorfael]

Salut lionhigh et le forum
Question au hazard : tu parles de convertir un fichier texte.
est-ce que tu as mis la colonne réceptrice en format Texte ?
A+

[ouskel'n'or]

Le premier caractère est
- dans une formule, le signe "="
- dans une valeur négative le signe "-"
Tu testes le premier caractère avec left(cells(nolig, nocol).formula,1)
S'il est = "=" ou = "-", tu sais ce qu'il te reste à faire. mais tu auras un espace en début de cellule alors ajoute trim(...)

Code :

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

1
2
Cells(NoLig, NoCol).Formula = _
Trim(Mid(Cells(NoLig, NoCol).Formula, 2, Len(Cells(NoLig, NoCol).Formula) - 1))

[lionhigh]

Salut lionhigh et le forum
Question au hazard : tu parles de convertir un fichier texte.
est-ce que tu as mis la colonne réceptrice en format Texte ?
A+

Fallait juste que je trouve comment faire ;-)
Array(3, 2) (tableau numéro 3 au format 2 (texte))


Merci, je vais encore essayer de résoudre le problème avec la solution proposée par ouskel'n'or. Elle me servira surement pour plus tard. Je poste dès que ça marche !!

[lionhigh]

Et voilà, ça marche également :

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
 
 
Dim NoLig As Integer
    Dim NoCol As Integer
    NoCol = 3
    For NoLig = 1 To 90
            If Left(Cells(NoLig, NoCol).Formula, 1) = "=" Then
                Cells(NoLig, NoCol).Formula = Trim(Mid(Cells(NoLig, NoCol).Formula, 2, Len(Cells(NoLig, NoCol).Formula) - 1))
            ElseIf Cells(NoLig, NoCol) <> "" Then
 
            Else
 
            End If
 
 
 
    Next NoLig

Merci Gorfael et ouskel'n'or