Discussion :

[ericdev67]

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,

[eriiic]

Bonjour,

utilise Supprespace(A2) qui réduit les espaces utiles à 1 et enlève ceux des extrémités.
eric

[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,

[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, …

[Invité]

Bonjour,

Code :

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

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

[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,

[Invité]

Code :

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

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

[unparia]

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

Code :

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

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 ?

[Invité]

Les -1 m'indispose!