Modification chaîne de caractère

Version imprimable

27/06/2007, 20h34
linooo

Modification chaîne de caractère

Bonjour,

J'ai une chaine de caractère : xxxx (espace) yyyyyyy (ex: françois MARTIN).

Je voudrais créer une macro qui supprime toute la première partie (xxxx), ainsi que l'espace. Ce qui donnerait donc, si l'on reprend mon exemple : "MARTIN".

Malheureusement, jene connais pas la fonction à utiliser :'(Quelqu'un pourrait-il m'aider s'il vous plaît?

Merci d'avance

Salut,

Ce code devrait fonctionner tant que le nom ou le prénom n'est pas composé.

Code:

1
2
3
4
5
6
7
8
9
10
11
 
 
'Variable tableau
dim strtmp() as string
 
'On charge dans la variable les données séparé par un espace
strtemp=split("françois MARTIN"," ")
 
'On renvoi l'index 1 du tableau qui contient le NOM
'L'index 0 contenant le prénom puisque que la variable est de base 0
msgbox strtemp(1)

Jérôme

27/06/2007, 20h51
zazaraignée
Tu as le choix de plusieurs fonction de manipulation de chaîne.

Trouver la position de l'espace avec la fonction Instring (ou InStr, sais plus... F1 te renseigneras) et récupérer la partie de droite avec la fonction Mid.
Code:

1 2 3 4 Dim pos As Integer Di Nom As String pos = InStr(1, maChaine, " ", vbTextCompare) Nom = Mid(maChaine, pos, len(maChaine)-pos
Ou encore séparer la chaîne de deux éléments d'un tableau en utilisant la fonction Split et l'espace comme séparateur et récupérer le dernier élément du tableau ainsi créé.
Code:

1 2 3 Dim tab() As String tab = Split(maChaine) Nom = tab(1)

Bonsoir Linooo,

Vous pouvez aussi essayer ce code en modifiant les variables (pour les lignes et colonnes) comme indiqué :

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
Sub Separe()
 Dim text, Tableau() As String
 Dim i, pc, pcc As Integer
 Dim pl, dl, n As Long
 
 '1ère ligne contenant vos données (vous pouvez modifier)
pl = 2
'dernière contenant vos données (vous pouvez modifier)
dl = 100
'colonne de données (vous pouvez modifier)
pc = 1

   
For n = pl To dl
'colonne à partir de laquelle les données séparées vont être copiées (vous pouvez modifier)
pcc = pc + 2
    text = Cells(n, pc)
    Tableau = Split(text, " ")
        
    For i = 0 To UBound(Tableau)
    Cells(n, pcc) = Tableau(i)
    pcc = pcc + 1
    Next i
Next n


End Sub

28/06/2007, 01h18
zazaraignée

Attention à vos déclaration de variables. Par exemple, dans la ligne :

Code:

Dim i, pc, pcc As Integer

Seule la variable pcc est te type Integer. Les autres (i et pc) sont de type Variant. Pour déclarer des variables sur la même ligne, il faut spécifier le type pour chacune d'entre elles. Exemple

Code:

Dim i As Integer, pc As Integer, pcc As Integer
28/06/2007, 07h07
cavo789

Juste une remarque concernant ton exemple : si tu veux scinder un prénom d'un nom, eh ben, je te souhaite bien du courage. C'est carrément impossible.

Jean-Jacques Martin => Ok, l'espace sépare le prénom du nom
Martine Paulette Depuis => Aïlle, c'est plus OK
Jean Claude Van den Piperzelle => Aïlle Aîlle.

;)

Christophe

Merci tout le monde pour vos réponses, je me suis grandement inspiré de vos conseils pour réaliser la petite requête ci-dessous.
Celle-ci semble fonctionner pour les cas simples. Malheureusement, j'ai essayé de la faire fonctionner sur mon tableau, et elle marche pour certains cas et d'autres pas.

Je m'explique :
J'ai des données similaires à celles ci-dessous à trier :
TVLES 000294/155252/84 abb
AARDT 000294/548963/84 abb
DJRPT 000294/153347/84 abb...

Lorsque je lance la macro, elle marche pour certaines lignes (très peu : lignes 2 et 38) et pas sur les autres. Pourtant, toutes les informations sont du même ordre, et présentées de façon similaire, avec le même nombre d'espaces...
Sauriez-vous doù vient le problème s'ils vous plaît ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Dim resultat As String Dim tableau() As String Dim i As Integer Dim n As Integer i = 1 While i < 1235 i = i + 1 maChaine = Range("A" & i).Value tableau = Split(maChaine, " ") For n = 0 To UBound(tableau) resultat = tableau(n) Range("A" & i).Value = resultat Next n Wend ' End Sub

28/06/2007, 21h32
Invité

zazaraignée a écrit :

Citation:

Attention à vos déclaration de variables. Par exemple, dans la ligne :
Code :

Dim i, pc, pcc As Integer

Seule la variable pcc est te type Integer. Les autres (i et pc) sont de type Variant. Pour déclarer des variables sur la même ligne, il faut spécifier le type pour chacune d'entre elles. Exemple
Code :

Dim i As Integer, pc As Integer, pcc As Integer

J'ai supposé que cela m'était adressé.

Pourquoi la variable "pcc" (1ère colonne de copie) serait de type Integer et pourquoi "i" (qui va contenir un N° de ligne) et "pc" qui contient le N° de colonne de données ne le seraient-ils pas ? (pour "i" on pourrait bien sûr modifier si on pense dépasser les 32768 lignes).

Quant à la 2ème partie de la remarque concernant les déclarations de variables je comprends encore moins.
28/06/2007, 23h30
zazaraignée

Si tu regardes bien ta déclaration de variables, la ligne que j'ai mis en exemple, pour le moins, elle se termine par Integer. Regarde l'aide de VBA pour la déclaration des variables. C'est tout bien expliqué.

Maintenant, pourquoi tu as mis Integer... Seul ton coiffeur le sait! ;)
29/06/2007, 17h49
Invité

Bonjour zazaraignée,

Bien sûr vous avez raison pour les déclarations de variables et je viens de m'apercevoir que ce n'est pas la 1ère fois que j'oublie.

Par contre je n'ai pas compris ce que venait faire mon coiffeur là-dedans, mais c'est normal, je manque d'humour.

Une autre chose que je ne comprends pas : pourquoi des numéro des lignes ou de colonnes ne pourraient être définis en "Integer" dans la mesure où on ne dépassera pas la valeur maxi admise.

A ma connaissance ce type de variables occupe moins de place en mémoire que le type "Variant" ou même que le type "Long".

Mais est-ce que je fais encore une erreur ?

Amicalement.
29/06/2007, 18h55
zazaraignée

Je ne remettais pas en question le choix de l'Integer, mais je m'efforçait de répondre à ta question. Eh! oui! il m'arrive de faire de l'humour.

Tu ne connais pas l'expression "Seul son coiffeur le sait"? C'est pas grave puisque la plupart du tant, on se coiffe tout seul à tous les matins. et donc, effectivement les indices de cellules sont des integer. Je m'amusais juste à te taquiner. Lorsque le forum VBA etait un sous-forum de VB, les habitués le savaient. Maintenant que VBA est sous Office (et il y avait un moment que je n'étais venue traîner ici), peut-être que je suis moins connue.
29/06/2007, 20h20
Invité

OK zazaraignée, pas de problème. Maintenant que je vous connais un peu plus, je le saurai.
C'est vrai que je suis un (presque) vieux petit nouveau sur les forums.

Et bien sûr pas d'hésitation en cas d'erreur, c'est comme ça que l'on apprend à en faire un peu moins.

Amicalement.
29/06/2007, 23h24
zazaraignée
Toujours est-il que pour trouver le dernier mot d'une chaîne (pour ceux ou celles qui tiennent absolument à l'avoir ;) ), Je maintiens mon exemple avec une petite modificaiton:
Code:

1 2 3 4 Dim Tableau() As String Dim Nom As String Tableau = Split(TextBox1.Text) Nom = Tableau(UBound(Tableau))