Format valeur non valide

Bonjour à tous,

J'ai un problème avec la reconnaissance du format je suppose.
En fait, à l'aide de mon code VBA, je transforme de gauche dans la colonne du milieu et après à l'aide d'une rechercheV, je vais chercher les valeurs correspondantes dans un autre tableau.
QUand j'essaye la rechercheV sur la première colonne tout marche correctement mais quand je met sur la deuxième colonne, cela ne marche pas pour les valeurs entières comme montré dans la colonne de droite.

Pièce jointe 151349

VOila mon code

Code:

---

1 2 3 4 5 6 7 8 9 10

Function stress_pts(points) As String If Right(points, 1) = "+" Then stress_pts = Left(points, Len(points) - 1) ElseIf Right(points, 1) = "-" Then stress_pts = Left(points, Len(points) - 1) & "+" Else stress_pts = points & "-" End If End Function

---

bonjour,

et la formule de recherche elle donne quoi ?

Elle affiche ce qu'il y a dans la troisième colonne

Je voulais dire c'est quoi la formule en troisième colonne...

Ahh alors, RECHERCHEV(B1;'Feuil2'!$B$29:$J$55;2;FAUX) :)

Je ne vois pas les données dans laquelle tu recherche mais je suppose que tu y mélange des chaines (string) pour les nombres négatifs et des entier pour les nombres positifs...


ce serait peu être mieux de n'utiliser que des entiers , en utilisant un format personnalisé pour placer le moins à droite (sans VBA)

Code:

---

# ##0;# ##0-

---

je ne comprends pas que représente rating?

Code:

---

1 2 3

If Right(points, 1) = "+" Then 'stress_pts = Left(rating, Len(points) - 1) stress_pts = Left(points, Len(points) - 1)

---

en plus pourquoi cette usine a gaz !!!!

Citation:

---

Envoyé par Blaiz58

Bonjour à tous,

J'ai un problème avec la reconnaissance du format je suppose.
En fait, à l'aide de mon code VBA, je transforme de gauche dans la colonne du milieu et après à l'aide d'une rechercheV, je vais chercher les valeurs correspondantes dans un autre tableau.
QUand j'essaye la rechercheV sur la première colonne tout marche correctement mais quand je met sur la deuxième colonne, cela ne marche pas pour les valeurs entières comme montré dans la colonne de droite.

Pièce jointe 151349

VOila mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function stress_pts(points) As String 'Dim stress_rating As Integer If Right(points, 1) = "+" Then stress_pts = Left(rating, Len(points) - 1) ElseIf Right(points, 1) = "-" Then stress_pts = Left(points, Len(points) - 1) & "+" Else stress_pts = points & "-" End If End Function

---

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub test() Debug.Print stress_pts("toto") Debug.Print stress_pts("-toto") Debug.Print stress_pts("+toto") Debug.Print stress_pts("toto-") Debug.Print stress_pts("toto+") Debug.Print stress_pts("-toto-") Debug.Print stress_pts("+toto-") Debug.Print stress_pts("+toto+") End Sub   Function stress_pts(points) As String Select Case Right(points, 1) Case "+" stress_pts = Left(points, Len(points) - 1) Case "-" stress_pts = Left(points, Len(points) - 1) & "+" Case Else stress_pts = points & "-" End Select End Function

---

Ahh oups, le "rating" c'est également "points" .

Et justement, si vous avez une solution plus simple pour transformer cela, je suis preneur :)
mais il faut savoir que les points de la colonne de gauche changent régulièrement.

La colonne du milieu n'est juste la que pour descendre le point d'une valeur
et dans l'ordre du meilleur au pire c'est 6+, 6, 6-.

je tes donné une solution qui fait la même chose que ton code!
à moins que ton code ne dit pas tout!

Oui il fait la même chose que mon code et du coup j'ai le même résultat dans ma rechercheV, pour le 6 :/

il faut sans doute donner les bonne règles et de plus 6 ce trouve dans la matrice du recherchev ?

Dans quel sens les bonnes règles ?

Oui 6 se trouve dans la matrice de RechercheV et j'ai également essayé de changer les formats de la matrice de RechercheV mais rien n'y change.

Citation:

---

Envoyé par bbil

Je ne vois pas les données dans laquelle tu recherche mais je suppose que tu y mélange des chaines (string) pour les nombres négatifs et des entier pour les nombres positifs...


ce serait peu être mieux de n'utiliser que des entiers , en utilisant un format personnalisé pour placer le moins à droite (sans VBA)

Code:

---

# ##0;# ##0-

---

---

Oui c'est cela, les chiffres avec un + ou - sont considérés comme string et les autres comme integer.
Mais pour la colonne du milieu je suis obligé de passer par un code pour faire mon changement de points ...

Bonjour,

Dans ton code tu écris :

Code:

---

1 2 3

ElseIf Right(points, 1) = "-" Then stress_pts = Left(points, Len(points) - 1) & "+"

---

afin de changer le + en - mais alors, dans ta fonction change le tout de suite :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Function stress_pts(ByVal points As String) As String   points = Replace(points, "-", "+")   If Right(points, 1) = "+" Then   stress_pts = Left(points, Len(points) - 1)   Else   stress_pts = points & "-"   End If   End Function

---

par valeur afin que ton argument "points" ne soit pas modifié dans la fonction !

As-tu essayé de mettre ta colonne au format "Texte" pour la fonction RECHERCHEV ?

Hervé.

Re,

Je voulais dire le contraire le - en +

Citation:

---

afin de changer le + en -

---

Désolé !

Hervé.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function stress_pts(points) As String Select Case Right(points, 1) Case "+" stress_pts = Left(points, Len(points) - 1) Case "-" stress_pts = Left(points, Len(points) - 1) & "+" Case Else stress_pts = points & "-" End Select stress_pts = "'" & stress_pts End Function

---

le problème est dans la que 6 est bien du numérique ! '6 n'est plus du numérique; il faux envisagé cette forme d’écriture dans tes cellules car dans le fonction stress_pts = "'" & stress_pts c'est pas bon!

J'ai essayé toutes ces solutions mais ça bug toujours.
Finalement j'ai trouvé une solution quand même en créant en fonction me permettant de convertir toutes mes valeurs au format txt.
Quand je passe par le changement de format d'excel, cela ne marche pas mais par cette fonction tout fonctionne :)

VOila la fonction, ça pourra en aider d'autres :)

Code:

---

1 2 3 4 5 6 7 8

Function cvtxt(n) As String y = "" For i = 1 To Len(n) y = y + Mid(n, i, 1) Next i cvtxt = y   End Function

---