problème avec les espaces

Version imprimable

09/08/2016, 16h32
ericdev67

problème avec les espaces

Bonjour,

J'utilise une base de données avec différentes colonnes.
Dans une de ces colonnes il y a le nom et prénom qui sont ensemble.
Pour x raisons (=qui ne sont pas de mon fait), par exemple en colonne A j'ai des formats différents :

MARTIN______Jacques
martin___JACQUES
Martin___________Jacques
Martin_jacques

etc....(j'ai mis "_" à la place des espaces pour une meilleure compréhension....)

Je souhaite simplement mettre en colonne B : "Martin" et en colonne C : "Jacques".

J'ai essayé via la méthode "TROUVE" (=les espaces) et "STXT", mais comme le nombre des espaces peuvent être différents, cela ne fonctionne pas.....

Une petite aide et/ou idée ?

En vous remerciant,
09/08/2016, 16h40
eriiic

Bonjour,

utilise Supprespace(A2) qui réduit les espaces utiles à 1 et enlève ceux des extrémités.
eric
09/08/2016, 16h43
Marc-L

Bonjour,

combiner la fonction de feuille de calculs d'Excel SUPPRESPACE (Application.Trim en VBA)

avec la fonction de texte VBA Split …

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …
09/08/2016, 16h44
ericdev67

Super merci eriiic,

je ne connaissais pas.....merci

Et merci à Marc-L aussi, qui a bien dû se douter que j'allais utiliser par la suite le VBA....;)

Merci,

Bonne journée,

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
Function remplacerEspace(T As String) As String
remplacerEspace=T
While instr(remplacerEspace,"  ")<>0
         remplacerEspace =replace(remplacerEspace,"  "," ")
Wend
End Function
Sub Tes()
varTest= "Nom.               Prénom"
VarTest=remplacerEspace(VarTest)
End Sub

09/08/2016, 17h01
ericdev67

Merci rdurupt pour ce code,

Par contre, il y a un problème : le code se met en erreur en disant "type d'argument ByRef imcompatible".....

Mais il est fort probable que j'ai fait une mauvaise manip (ou alors il faut mettre une boucle ?)

En vous remerciant,

Code:

1
2
3
4
5
6
7
8
9
10
11
Function remplacerEspace(T As String) As String
remplacerEspace=T
While instr(remplacerEspace,"  ")<>0
         remplacerEspace =replace(remplacerEspace,"  "," ")
Wend
End Function
Sub Tes()
Dim varTest As String 
varTest= "Nom.               Prénom"
VarTest=remplacerEspace(VarTest)
End Sub

Bonjour à tous
Je sais que cette discussion a été marquée comme résolue, mais ...
Que fait donc ceci (exemple) :
Code:

1 2 3 4 5 6 7 With Range("A1:A8") Application.DisplayAlerts = False .TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _ :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True End With
sinon l'éclatement sur deux colonnes et la suppression des espaces inutiles ?

09/08/2016, 18h31
Invité

Les -1 m'indispose!
10/08/2016, 10h04
ericdev67

Merci rdurupt,

Je pense que je dois faire une fausse manip, car j'ai mis votre code dans un module (j'ai aussi essayé dans thisworkbook), je lance le code et rien ne se passe...???

Merci unparia,

merci pour ce code qui réalise bien ce que je recherchais....j'ai juste un souci avec les noms à particule....

LE MARTIN Jacques

pour exemple....donc le code met LE en colonne A, MARTIN en B et Jacques en C

Ce n'est pas grave-grave...je pense que je vais prendre la dernière colonne renseignée (= qui donnera le prénom) et ensuite de concatener le nom à particule....

Mais je risque d'avoir un souci avec les prénom à particule....(exemple : pour Jean-Francois, ça fonctionnera, mais pas pour Jean Francois.......)

En vous remerciant pour votre aide,
10/08/2016, 11h04
Invité

Bonjour,
Il y a déjà bien longtemps, pour une mutuelle, j'avais fait un traitement similaire.

Par chance j'avais un échantillon plus que conséquent.

J'avais pris le parti que l'écriture était de gauche à droite le nom le prénom.

En fonction de ça j'avais établi un dictionnaire de reprenons, a l'époque j'en avais recensé 8 ou 9 mille. Puis je les avais qualifié comme vrai prénom

J'avais fait la même chose Pour les particules.

Ainsi par une lecture de gauche à droite on défini la particule le nom le prénom. Si la première occurrence est un prénom et la seconde non on inverse.

Si nous trouvons 3 prénom et pas de nom on considère la première comme un nom les 2 autre comme prénom et on les relie par un trait d'union.
10/08/2016, 12h15
unparia

En vérité, ce genre de choses est à prévoir en amont, bien en amont.
L'étude de la modélisation des données est une étape sérieuse, à prendre pour ce qu'elle est : très au sérieux.
Il n'est pas accessoire du tout de comprendre que ne sont pas inutiles du tout des champs distincts :
- un champ "civil" (M., Mme, Mlle)
- un champ nom patronymique
- un champ prénom(s)
- et quelquefois : un champ nom d'usage.
Faire ce travail en amont permet de ne pas avoir à revenir, des mois plus tard, sur un champ unique difficilement interprétable pour séparer les choses.
Il en va dans ce domaine, comme dans beaucoup d'autres : préférer consacrer 75% de son temps à cette étape et 25% au développement, plutôt que l'inverse.
10/08/2016, 14h13
eriiic

1 pièce(s) jointe(s)

Bonjour,

ce que j'avais fait il y a un moment pour un besoin similaire.
- reconnait les prénoms composés à partir d'une liste
- Prénom à gauche ou à droite
- conversion en case Majuscule, Nompropre ou inchangée pour nom et prénom
- choix des séparateurs internes nom et prénom : espace insécable ou tiret
- retour sur 1 ou 2 colonnes
- arrêt lorsque la séparation n'est pas décidable en auto, cliquer sur l'espace séparant nom-prénom dans la boite de dialogue.
- surlignage des traités automatiques pour contrôle et des indécidables restants.
Ca dégrossit bien le travail...
eric

1 pièce(s) jointe(s)

Bonjour,
Fichier joint: Prénoms recensés en Belgique en 2013!

Et c'est pas une blague!

Code:

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub test()
Dim Cn As Object
Set Cn = OpenConnetion(ThisWorkbook.FullName, True)
Debug.Print IsPrenom("RDurupt", Cn)
Debug.Print IsPrenom("Robert", Cn)
Cn.Close
End Sub
Public Function OpenConnetion(FichierXls As String, AvecTitre As Boolean) As Object
'ouvre la connexion au fichier Excel
'FichierXls non et chemin complet du fichier
'AvecTitre précise si la première ligne de l'onglet est les entête de colonnes ou pas
'rzutourne la connexion
On Error Resume Next
Dim HDR
If Dir(FichierXls) = "" Then MsgBox FichierXls & vbCrLf & "Pas trouvé": Exit Function ' versifie si le fichier existe
HDR = Array("No", "Yes")
Set OpenConnetion = CreateObject("ADODB.Connection") 'Instancie un objet adosb c'est mieux que d'utiliser le références
With OpenConnetion
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source=" & FichierXls & ";Extended Properties=""Excel 12.0 Xml;HDR=" & HDR(Abs(AvecTitre)) & ";IMEX=1;"""
        .Open
        If Err Then
            MsgBox Err.Description
            Set OpenConnetion = Nothing
        End If
        Err.Clear
        On Error GoTo 0
End With
End Function
Public Function OpenRecordSet(Sql, Cn As Object) As Object 'Retourne un recordset
'Retourne un RecordeSet
On Error Resume Next
Set OpenRecordSet = CreateObject("ADODB.Recordset")
OpenRecordSet.Open Sql, Cn, 1, 3 'ouvre un recordset sur la requête SQL pour la connexion en lecteur écriture et ajou dynamique
If Err Then
    MsgBox Err.Description
Set OpenRecordSet = Nothing
End If
Err.Clear
On Error GoTo 0
End Function
Function IsPrenom(Pnm As String, Cn As Object) As Boolean
Dim Rs As Object
Set Rs = OpenRecordSet("select * from [Prénom$] Where [Prénom]='" & Replace(Pnm, "'", "''") & "'", Cn)
IsPrenom = Not (Rs.EOF)
Rs.Close: Set Rs = Nothing
End Function

10/08/2016, 19h12
ericdev67

Merci unparia,

Je vous rejoins complètement, un format "type" aurait été indispensable. Par contre, le fichier en question vient d'une base de données sur lequel je n'ai pas la main (et donc ni les formats...), et donc je "subis" ces Nom-Prénom avec espaces.....mais je prends votre remarque comme une alerte/veille pour mes futurs formulaires

Merci rdurupt,

J'ai compris la logique de votre code, intéressant et re-exploitable, Merci. Je vais voir si je ne pourrai pas le ré-utiliser. Merci

Merci eriic,

Le code fonctionne très bien....analyse du Nom Prénom, questionnement si espace, bref, je vais faire plusieurs essais (et utilisations) pour voir si cela fonctionnera sur mes listes (de 5000 lignes....), Merci car le code est très complet.

Merci pour votre aide,
11/08/2016, 19h20
Invité

Bonjour,
Bien sur tu peux ajouter un onglet Particules dans le fichier et implémenter une fonction IsParticule comme IsPrenom!