Discussion :

[SIGOliv]

Bonjour à toute la communauté (... ou plutôt à ceux qui passerons par là ),


J'ai un champ de type texte où je peux avoir comme enregistrement des chose du genre 1b, 124c, 654, ...

Suite à ça, j'ai créé une requête de création de table où je voudrais séparer dans 2 champs: les caractères numérique d'un côté, et alpha de l'autre.

J'ai bien cherché dans le forum, la faq, le net, ... mais je n'ai rien trouvé (ou peut-être rien compris ) pour faire ça.


Merci d'avance au âme charitable qui voudront bien se pencher sur mon soucis

[Dolphy35]

Salut à toi ami Rennais,

es-ce que dans ton champs le nombre de chiffre est fixe ou non ?

[Demco]

En passant par du VBA et en utilisant les fonctions Left(), Right(), Len() et IsNumeric() je pense que tu peux t'en sortir.

Pour extraire la partie numeric on peut imaginer quelque chose du genre:

bon, on part du principe que tu parcours tes donnees avec un recordset, et pour chaque enregistrement tu stoque le contenu de ton champ text dans la variable monTexte.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
i = 1
 
'tant que c'est numerique
while(isNumeric(left(monText, i))
 'on incremente, ainsi on verra au prochain 
   'tour si la lettre suivant est egalement un chiffre
 i=i+1
wend
 
i = i-1
debug.print "Voici la partie numerique : " & left(monText, i

Code a tester evidemment. Ensuite a partir du i et la fonction Right() tu peux extraire sans probleme la partie texte.
A toi de voir ce que tu veux faire lorsque tu n'as que du texte ou bien que du numerique etc.

En esperant t'aider

[SIGOliv]

Tout d'abord merci pour votre volontariat

es-ce que dans ton champs le nombre de chiffre est fixe ou non ?

non! comme j'ai mis dans l'exemple ça peut être 1b, 122b, 544, 4863f,...

En passant par du VBA

C'est une requête donc j'ai que le générateur d'expression ou alors je ne sais pas comment faire pour rentrer du VBA...

[random]

cela pourrait donner

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
28
29
30
31
32
33
 
Function numer(x As String) As Variant
Dim v As Variant
Dim rep As Variant
Dim ou As Integer
ou = 1
rep = Mid(x, 1, 1)
Do Until IsNumeric(rep) Or ou = Len(x)
ou = ou + 1
rep = Mid(x, ou, 1)
Loop
If IsNumeric(rep) Then
Do Until Not IsNumeric(Mid(x, ou + 1, 1)) Or ou = Len(x)
ou = ou + 1
rep = rep & Mid(x, ou, 1)
Loop
numer = rep
Exit Function
Else
numer = v
End If
End Function
 
 
Function pasnumer(x As String) As String
Dim u As Variant
u = numer(x)
If IsNull(u) Then
pasnumer = x
Else
pasnumer = Left(x, InStr(1, x, u) - 1) & Right(x, Len(x) - InStr(1, x, u) - Len(u) + 1)
End If
End Function

[SIGOliv]

même soucis ce code ne rentre pas dans le générateur de code

[random]

En passant par du VBA

C'est une requête donc j'ai que le générateur d'expression :? ou alors je ne sais pas comment faire pour rentrer du VBA...[/quote]
pour entrer du vba
alt f11 bienvenue dans le monde cruel des développeurs
pour commencer
insertion module
et coller les fonctions des autres d'abord
et rapidement les siennes

[SIGOliv]

bienvenue dans le monde cruel des développeurs

Naaaaaaaaaaaaaaaan!

Bon j'ai commencé à regarder mais je m'y remettrais dès lundi car le week-end m'appelle...

Merci pour tout
Bon week-end et @ lundi

[SIGOliv]

Bonjour à tous!

Je suis un peu nul en programmation et je ne comprend pas tout le code ci-dessus Quelqu'un pourrait il me l'expliquer?

D'autre part pour éxécuter un module, comment faut il faire (créer une macro pour ouvrir la requête puis ouvrir le module)???

En plus c'est lundi matin

[Demco]

Colle cette fonction dans un module:

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
 
Function numer(x As String) As Variant
Dim v As Variant
Dim rep As Variant
Dim ou As Integer
ou = 1
rep = Mid(x, 1, 1)
Do Until IsNumeric(rep) Or ou = Len(x)
ou = ou + 1
rep = Mid(x, ou, 1)
Loop
If IsNumeric(rep) Then
Do Until Not IsNumeric(Mid(x, ou + 1, 1)) Or ou = Len(x)
ou = ou + 1
rep = rep & Mid(x, ou, 1)
Loop
numer = rep
Exit Function
Else
numer = v
End If
End Function

Par exemple pour utiliser celle la declare la comme public:
remplace

Code :

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

Function numer(x As String) As Variant

par

Code :

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

Public Function numer(x As String) As Variant

Puis tu peux l'utiliser depuis le code VBA il faut faire par exemple:

Code :

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

MsgBox numer("2121eueueu")

Ce qui devrait t'afficher le resultat dans une MsgBox.

Pour ce qui est de le faire depuis une macro, je n'en utilise pas et je n'ai pas Access au boulot donc je laisse la main a quelqu'un d'autre.

[SIGOliv]

Bon je n'arrive vraiment à rien

Est ce que quelqu'un pourrais me le faire ?

Voici une base avec la table en question:
http://www.olivier-girault.info/developpez/essai.mdb

Il me faudrait créer une nouvelle table, ou la même, avec un champ numérique et un champ alpha pour décomposer le champ "numero_parcad".


Désolé si cette démarche peut choquer quelques personnes, mais je n'arrive vraiment à rien .
Merci d'avance pour la grosse épine que vous m'enleverez...

[Arkham46]

Désolé si cette démarche peut choquer quelques personnes, mais je n'arrive vraiment à rien

ben si à chaque fois que tu as un problème tu attends que quelqu'un te fasse la modif t'es pas rendu...

Soit plus précis sur tes problèmes rencontrés si tu veux qu'on t'aide :

ce code ne rentre pas dans le générateur de code

ne veut strictement rien dire ...

Bon je n'arrive vraiment à rien

n'est pas d'une grande utilité non plus...

[SIGOliv]

Soit plus précis sur tes problèmes rencontrés si tu veux qu'on t'aide

Ok!

Bon alors je reprend tout:
- J'ai une table avec un champ "numero_parcad"
- Dans ce champ il y a des numéro et des lettres, mais pas obligatoirement.
- Je désire découper ce champ dans deux autres séprarés avec:

• un champ contenant le numéro de la parcelle: numérique
• un champ contenant la lettre de la sous parcelle: alpha

- Pour ce faire, j'ai copié le code que Random as marqué dans un module.

A partir de là, je bloque:
- je ne sais pas comment l'exécuter
- je ne sais pas si il faut le faire à partir d'une macro ou autre chose

En bref je n'ai jamais fais de truc comme ça et je bloque dès le début.

Voilà, je pense que c'est plus clair. Et c'est aussi pour ça que je demandais assistance car je pense que tout le monde vas perdre un peu de temps à m'expliquer des trucs basiques

[Arkham46]

bon ça risque effectivement d'être compliqué si tu n'y connais rien

déjà avant de parler de programmation :

- les codes 1b, 124c, 654, ... sont-ils importés d'une autre application?
- l'opération de découpage sert à quoi? une mise à niveau d'un base, exécuté une seul fois? (tu dis : "Il me faudrait créer une nouvelle table, ou la même"; si ça t'importe peu c'est que c'est un traitement unitaire alors?)
- ou alors tu veux séparer les données dynamiquement pour faire des filtres par expemple sur la sous-parcelle?)

[SIGOliv]

- les codes 1b, 124c, 654, ... sont-ils importés d'une autre application?

Oui, j'ai une base de données maitresse avec une table "parcad". A l'aide d'une requête de création, je fais un filtre pour avoir une seule propriété.

- l'opération de découpage sert à quoi? une mise à niveau d'un base, exécuté une seul fois? (tu dis : "Il me faudrait créer une nouvelle table, ou la même"; si ça t'importe peu c'est que c'est un traitement unitaire alors?)

l'opération de découpage sert à pouvoir avoir une table avec ces deux champs pour ensuite pouvoir l'importer dans une autre table d'une base de données SQL server (l'application d'import est déjà réalisée).

- ou alors tu veux séparer les données dynamiquement pour faire des filtres par expemple sur la sous-parcelle?)

Non pas de filtre, il me faut ces deux champs en dur.

En tout cas merci de ton coup de main

[Arkham46]

alors il va falloir commencer simple si tu rames...

plutôt que d'essayer une fonction complexe que tu ne comprend pas dès le début, essaye une fonction toute bête qui renvoie un chiffre par exemple

et essaye d'appeler ta fonction dans un champ de ta requête (il suffit de mettre le nom de la fonction sur la ligne champ, tu peux utiliser le générateur d'expression pour être sûr)

ensuite tu fais une fonction avec le champ en paramètre qui renvoie le champs * 2

et une fois que tu as compris comment intégrer une fonction dans une requête tu t'attaqueras au découpage du champ

enfin c'est comme tu veux mais ça me semble maso de vouloir tout apprendre en même temps...

[SIGOliv]

Super c'est juste les info qui me manquait et ça fonctionne très bien!!!

Merci à tous et longue vie aux forums d'entraide...