mon module VBA ne fonctionne pas correctement

[beegees]

Bonjour tout le monde,

Le code VBA ci-dessous permet de séparer le nom du prénom en les copiant dans deux collones différentes.

Le problème est que les nom sont concaténés, idem pour les prénoms.

Est-ce que vous pourriez svp regarder ce qu'il se passe ?

C'est un travail très important pour moi.

Merci d'avance pour votre aide.

beegees

Sub montest()
Dim st As String
Dim tb() As String
Dim i As Integer
Dim stNom As String
While ActiveCell.Value <> ""
st = ActiveCell.Value
tb = Split(st, " ")
LeNom = tb(0)
For i = 1 To UBound(tb)
LeReste = LeReste & " " & tb(i)
Next
LeReste = Trim(LeReste)
Tb2 = Split(LeReste, " ")
For n = 0 To UBound(Tb2)
For i = 2 To Len(Tb2(n))
LeCar = Asc(Mid(Tb2(n), i, 1))
pr = LeCar > 96 And LeCar < 123 Or LeCar > 223 'c'est un prénom
If pr Then Exit For
Next
If pr Then
Prénom = Prénom & " " & Tb2(n)
ElseIf Not pr Then
LeNom = LeNom & " " & Tb2(n)
End If
Next
LeNom = Trim(LeNom)
Prénom = Trim(Prénom)
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Prénom
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = LeNom
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, -1).Select
ActiveCell.Offset(0, -1).Select
Wend

'MsgBox LeNom
'MsgBox Prénom
End Sub

 

[Staple1600]

Re : mon module VBA ne fonctionne pas correctement

Bonjour

Pour y voir plus clair...

Sub montest()
Dim st As String
Dim tb() As String
Dim i As Integer
Dim stNom As String
While ActiveCell.Value <> ""
st = ActiveCell.Value
tb = Split(st, " ")
LeNom = tb(0)
For i = 1 To UBound(tb)
LeReste = LeReste & " " & tb(i)
Next
LeReste = Trim(LeReste)
Tb2 = Split(LeReste, " ")
For n = 0 To UBound(Tb2)
For i = 2 To Len(Tb2(n))
LeCar = Asc(Mid(Tb2(n), i, 1))
pr = LeCar > 96 And LeCar < 123 Or LeCar > 223 'c'est un prénom
If pr Then Exit For
Next
If pr Then
Prénom = Prénom & " " & Tb2(n)
ElseIf Not pr Then
LeNom = LeNom & " " & Tb2(n)
End If
Next
LeNom = Trim(LeNom)
Prénom = Trim(Prénom)
ActiveCell.Offset(0, 1).Value = Prénom
ActiveCell.Offset(0, 1).Value = LeNom
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, -1).Select
ActiveCell.Offset(0, -1).Select
Wend

'MsgBox LeNom
'MsgBox Prénom
End Sub

Edit: Wilfried, c'était pour éviter le Select (j'ai pas fait plus attention que cela)
J'ai vu un Select alors je l'ai supprimé betement

 

[wilfried_42]

Re : mon module VBA ne fonctionne pas correctement

bonjour beegees

il serait preferable, d'avoir un ptit fichier, qui nous montrerait le resultat de ta macro pour pouvoir la corriger en consequence.

@te lire

edit: toujours aussi lent lol m'enfin une petite correction staple

LeNom = Trim(LeNom)
Prénom = Trim(Prénom)
ActiveCell.Offset(0, 1).Value = Prénom ' le offset ne rend pas la cellule active
ActiveCell.Offset(0, 1).Value = LeNom ' ----> tu ecrases le prenom avec le nom

LeNom = Trim(LeNom)
Prénom = Trim(Prénom)
ActiveCell.Offset(0, 1).Value = Prénom
ActiveCell.Offset(0, 2).Value = LeNom

 

[beegees]

Re : mon module VBA ne fonctionne pas correctement

Salut vous deux,

Merci beaucoup pour votre déouvement.

Voici le fichier avec un exemple.

Pour lancer la macro, il faut appuyer sur CTRL + W.

Merci pour votre aide.

beegees

bonjour beegees

il serait preferable, d'avoir un ptit fichier, qui nous montrerait le resultat de ta macro pour pouvoir la corriger en consequence.

@te lire

edit: toujours aussi lent lol m'enfin une petite correction staple




LeNom = Trim(LeNom)
Prénom = Trim(Prénom)
ActiveCell.Offset(0, 1).Value = Prénom
ActiveCell.Offset(0, 2).Value = LeNom

 

[wilfried_42]

Re : mon module VBA ne fonctionne pas correctement

re:

j'ai vu, ce sont des remises à zero qui ne sont pas faites

While ActiveCell.Value <> ""
prénom = "": lereste = ""
st = ActiveCell.Value

 

[beegees]

Re : mon module VBA ne fonctionne pas correctement

re:

j'ai vu, ce sont des remises à zero qui ne sont pas faites

Re Wildried,

Tu es le boss !

Un super grand merci, ça à l'air de fonctionner nikel !

T'es super

Encore un grand merci à toi.

beegees

 

[Staple1600]

Re : mon module VBA ne fonctionne pas correctement

Re

message édité

Voir plus haut dans le fil.

 

[beegees]

Re : mon module VBA ne fonctionne pas correctement

Salut Staple,

Ta version est plus compacte, super merci, je vais analyser cette méthode.

Merci encore.

beegees

 

[Staple1600]

Re : mon module VBA ne fonctionne pas correctement

Re

Ce n'est pas ma version

Je ne suis pas l'auteur de la macro originale
comme c'est indiqué dans le code.

J'ai juste modifié selon ta question.

Mais tant mieux si cela t'aide.

EDITION : une version dont je suis l'auteur cette fois

Sub b() [COLOR=Green]' extraire nom et prénom[/COLOR]
Dim i As Long
For i = 1 To [A65536].End(xlUp).Row
Cells(i, "A").Offset(, 1).Resize(, 2).Value = _
Array(Split(Cells(i, "A"))(1), Split(Cells(i, "A"))(0))
Next i
End Sub

PS: je supprime donc la pj dans mon autre message.