fonction et nombre de caractères

[Stéphanie]

Bonjour!

J'ai une chaîne texte contenant plusieurs virgules
à différentes positions...

ex
19, rue de la paix, 75000, Paris

-> 3 virgules


autre exemple

19 rue de la paix, 75000, Paris

-> 2 virgules

savez-vous comment calculer le nombre de caractères donnés (virgule dans mon exemple)
via une fonction dans Excel..l'idéal pour moi serait d'obtenir l'équivalent en Access car j'ai plus de 100000 enregistrements à gérer et Excel est limité

Merci d'avance!

Stéphanie

 

[dg62]

Bonjour Stéphanie




Private Sub CommandButton1_Click()
Dim chaine As String, cel as range, nbvir as integer
For each cell in selection
chaine = cel.value
For p = 1 To Len(chaine)
If Asc(Mid(chaine, p, 1)) = 44 Then
nbvir=nbvir+1

End If
Next
cel.offset(0,1).value=nbvir
next


End Sub

 

[mutzik]

Bonjour Stéphanie,

C'est quoi le but de la manip, éliminer les virgules, séparer les champs pour créer une base access ...?

On pourra t'aider plus efficacement si tu précises

à+
Bertrand

 

[Pyrof]

Bonjour,

Voici une autre solution

x = 'aaaaa,cc,d'
nb_virgule = UBound(Split(x, ','))

A+

 

[stéphanie]

Merci pour vos réponses...


j'ai au départ un fichier de type CSV (excel comma separated file)

mon but est d'isoler le code postal à partir
d'une adresse complète

ex:

18,boulevard Solferino,59000,Lille

bref, il faut isoler les 5 chiffres (59000) positionnés
directement après la 2ème virgule mais parfois
on aussi l'exemple suivant

236 avenue des champs Elysés,75000, Paris

et dans ce cas, il faut isoler les 5 chiffres (75000)
directement après la 1ère virgule..

j'ai trouvé une soluce en access pour mon premier exemple
mais il me faudrait connaître le nombre de virgules dans ma chaine afin d'appliquer telle ou telle formule..

Merci!

Steph

 

[Pyrof]

re bonjour,

Si il y a toujours le nom de la ville derrière voici une solution

Sub xx()
x = 'aaaaa,75000,Paris'
tab1 = Split(x, ',')
nb_virgule = UBound(tab1)
code_postal = tab1(nb_virgule - 1)
End Sub

 

[andré]

Salut,

Par formule : =NBCAR(A1)-NBCAR(SUBSTITUE(A1;',';''))

La chaîne de caractère étant supposée en A1.

Ândré.

 

[dg62]

re

avec un fichier csv, je ne vois pas le problème !
les données vont être séparées automatiquement.



si l'adresse forme un bloc, il faut utiliser données/convertir en sélectionnant au préalable la cellule contenant l'adresse.

Message édité par: DG62, à: 23/05/2005 15:49