Discussion :

[Daniel-Gérald]

Bonjour,
j'aurais besoin d'aide pour ma requete. J'ai une champs Texte du nom de IdActPrio. Se champs est utilisé pour inscrire une numérotation avec des points; Expl: 1.1 ou 2.34 ou 45.54.32 ou simplement 100 .

Ce que je veut faire c'est d'extraire , dans trois champs différents les nombres sans les points. Et de les concaténer dans un quatrieme champ, pour me permettre de les triés en ordre croissant

Résultat à obtenir:

Code :

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

1
2
3
4
5
IdActPrio       Section1      Section2     Section3
1. 1                  1                10              00
2.34                 2                34              00
45.54.32          45               54              32
100                  100             00              00

Ce que j'ai trouvé sur internet c'est pour les adresses IP, et j'ai essayer de l'adapter à ma situation, mais je n'y arrive pas.

Section I: CNum(Gauche([IdActPrio];(DansChaîne(1;[IdActPrio];".")-1)))
Section II: CNum(ExtracChaîne([IdActPrio];DansChaîne(1;[IdActPrio];".")+1;DansChaîne(DansChaîne(1;[IdActPrio];".")+1;[IdActPrio];".")-DansChaîne(1;[IdActPrio];".")-1))
Section III: CNum(ExtracChaîne([IdActPrio];DansChaîne(DansChaîne(1;[IdActPrio];".")+1;[IdActPrio];".")+1;DansChaîne(DansChaîne(DansChaîne(1;[IdActPrio];".")+1;[IdActPrio];".")+1;[IdActPrio];".")-DansChaîne(DansChaîne(1;[IdActPrio];".")+1;[IdActPrio];".")-1))
Section IV: CNum(Droite([IdActPrio];NbCar([IdActPrio])-DansChaîne(DansChaîne(DansChaîne(1;[IdActPrio];".")+1;[IdActPrio];".")+1;[IdActPrio];".")))

S.V.P. Vraiment besoin d'aide

Merci

[ClaudeLELOUP]

Vois si ceci te convient :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function SansPoint(Valeur As String)
 'exemple   ? sanspoint("1.2") ---> 12
Dim i As Integer
 
For i = 1 To Len(Valeur)
If Mid(Valeur, i, 1) <> "." Then
SansPoint = SansPoint & Mid(Valeur, i, 1)
End If
Next i
 
 
End Function

[mout1234]

Bonsoir,

Une solution par une fonction écrite en VBA serait sans doute préférable mais il semble que tu souhaites une version SQL.

ClaudeLELOUP, Le code que tu proposes ne répond pas à son besoin je crois.



Essaies cette requête:

Code :

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

1
2
3
4
5
6
SELECT IdActPrio, InStr(1,[IdActPrio],".") AS point1,
IIf([point1]>0,InStr([point1]+1,[IdActPrio],"."),0) AS point2,
IIf([point1]>0,Left([IdActPrio],[point1]-1),[IdActPrio]) AS section1,
IIf([point2]>0,Mid([IdActPrio],[point1]+1,[point2]-[point1]-1),IIf([point1]>0,Mid([IdActPrio],[point1]+1),0)) AS section2,
IIf([point2]>0,Mid([IdActPrio],[Point2]+1),0) AS section3
FROM Table1;

[Chtulus]

Bonsoir,

Pourquoi ne pas utiliser la fonction REPLACE

[Daniel-Gérald]

Merci ClaudeLeloup mais mout1234 à raison le code SQL est mieux pour moi et il fonctionne bien.
Par contre ClaudeLeloup si tu veux me dire ou installé le code que tu m'a proposé, je vais l'essayé.

Encore Merci

[ClaudeLELOUP]

1° un fonction se met dans un module
2°

Ce que je veux faire c'est extraire , dans trois champs différents les nombres sans les points. Et de les concaténer dans un quatrième champ, pour me permettre de les trier en ordre croissant

Voici le sql :

Code :

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

1
2
3
SELECT SansPoint([Champ1]) & SansPoint([Champ2]) & SansPoint([Champ3]) AS Champ4
FROM Table1
ORDER BY SansPoint([Champ1]) & SansPoint([Champ2]) & SansPoint([Champ3]);

Exemple en annexe

[francishop]

Bonjour,

Pourquoi ne pas utiliser la fonction REPLACE

En effet. Il semble que les 3 sections ne sont établies que pour supprimer les points. Si c'est le cas, pourquoi pas un simple :

Code :

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

1
2
3
SELECT tbl_Essai.IdActPrio, 
Replace([IdActPrio],".","") AS SansPoint
FROM tbl_Essai;

Cordialement

[ClaudeLELOUP]

Merci à francishop
Cette solution est beaucoup plus élégante!