VBA-Format de texte

Le
Pierre.M
Bonsoir tous,

Dans une colonne j'ai des references composees de 6 caracteres et d'une
ou plusieurs espaces du type 'AAAAAA', 'AAA AAA', AAAAA A'

Est-il possible par macro (ou autre) d'obtenir dans tous les cas de
figure le type suivant 'AAA AAA' ?

Je precise que ces cellules sont remplies la plupart du temps par
copier-coller de lignes completes ou plus rarement par saisie directe.

Si quelqu'un avait une idee, je lui en serai tres reconnaissant.

Bonne soiree.

Pierre.M
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #5426911
Bonsoir.
=GAUCHE(SUBSTITUE(A1;" ";"");3)&" "&DROITE(SUBSTITUE(A1;" ";"");3)
Cordialement.
Daniel
"Pierre.M"
Bonsoir tous,

Dans une colonne j'ai des references composees de 6 caracteres et d'une ou
plusieurs espaces du type 'AAAAAA', 'AAA AAA', AAAAA A' ...

Est-il possible par macro (ou autre) d'obtenir dans tous les cas de figure
le type suivant 'AAA AAA' ?

Je precise que ces cellules sont remplies la plupart du temps par
copier-coller de lignes completes ou plus rarement par saisie directe.

Si quelqu'un avait une idee, je lui en serai tres reconnaissant.

Bonne soiree.

Pierre.M



Pierre.M
Le #5426841
Merci beaucoup pour le coup de main.
Ca fonctionne bien-sur, mais cette solution ne m'arrange pas vraiment
car elle m'oblige a creer une colonne supplementaire et à faire des
manips diverses...

Je cherche plutot un "truc automatique" qui ferait la meme chose, et
dans la meme colonne.
Je pensais a une macro evenementielle par exemple.
Je tape ou je colle mes donnees dans ma colonne et la macro modifie le
format au meme endroit.

Possible ? Pas possible?

Merci encore.


Pierre.M



On 2008-04-01 21:38:41 +0200, "Daniel.C"
Bonsoir.
=GAUCHE(SUBSTITUE(A1;" ";"");3)&" "&DROITE(SUBSTITUE(A1;" ";"");3)
Cordialement.
Daniel
"Pierre.M"
Bonsoir tous,

Dans une colonne j'ai des references composees de 6 caracteres et d'une ou
plusieurs espaces du type 'AAAAAA', 'AAA AAA', AAAAA A' ...

Est-il possible par macro (ou autre) d'obtenir dans tous les cas de figure
le type suivant 'AAA AAA' ?

Je precise que ces cellules sont remplies la plupart du temps par
copier-coller de lignes completes ou plus rarement par saisie directe.

Si quelqu'un avait une idee, je lui en serai tres reconnaissant.

Bonne soiree.

Pierre.M




Daniel.C
Le #5426761
Valable pour la colonne A :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Dim Temp As String
Temp = Application.Substitute(Target.Value, " ", "")
If Len(Temp) <> 6 Then
MsgBox "Saisie incorrecte"
Exit Sub
End If
Application.EnableEvents = False
Target.Value = Left(Temp, 3) & " " & Right(Temp, 3)
Application.EnableEvents = True
End Sub

Daniel
"Pierre.M"
Merci beaucoup pour le coup de main.
Ca fonctionne bien-sur, mais cette solution ne m'arrange pas vraiment car
elle m'oblige a creer une colonne supplementaire et à faire des manips
diverses...

Je cherche plutot un "truc automatique" qui ferait la meme chose, et dans
la meme colonne.
Je pensais a une macro evenementielle par exemple.
Je tape ou je colle mes donnees dans ma colonne et la macro modifie le
format au meme endroit.

Possible ? Pas possible?

Merci encore.


Pierre.M



On 2008-04-01 21:38:41 +0200, "Daniel.C"
Bonsoir.
=GAUCHE(SUBSTITUE(A1;" ";"");3)&" "&DROITE(SUBSTITUE(A1;" ";"");3)
Cordialement.
Daniel
"Pierre.M"
Bonsoir tous,

Dans une colonne j'ai des references composees de 6 caracteres et d'une
ou
plusieurs espaces du type 'AAAAAA', 'AAA AAA', AAAAA A' ...

Est-il possible par macro (ou autre) d'obtenir dans tous les cas de
figure
le type suivant 'AAA AAA' ?

Je precise que ces cellules sont remplies la plupart du temps par
copier-coller de lignes completes ou plus rarement par saisie directe.

Si quelqu'un avait une idee, je lui en serai tres reconnaissant.

Bonne soiree.

Pierre.M








Pierre.M
Le #5426741
Exactement le genre de truc que je cherchais. Merci.

Cependant cette macro ne fonctionne pas dans un cas. C'est quand je
colle plusieurs lignes en même temps.
Serait-il possible de l'adapter ? Mes connaissances ne sont pas
suffisantes pour ça...

Merci encore et bonne journée.

Pierre.M


On 2008-04-02 00:38:55 +0200, "Daniel.C"
Valable pour la colonne A :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Dim Temp As String
Temp = Application.Substitute(Target.Value, " ", "")
If Len(Temp) <> 6 Then
MsgBox "Saisie incorrecte"
Exit Sub
End If
Application.EnableEvents = False
Target.Value = Left(Temp, 3) & " " & Right(Temp, 3)
Application.EnableEvents = True
End Sub

Daniel
"Pierre.M"
Merci beaucoup pour le coup de main.
Ca fonctionne bien-sur, mais cette solution ne m'arrange pas vraiment car
elle m'oblige a creer une colonne supplementaire et à faire des manips
diverses...

Je cherche plutot un "truc automatique" qui ferait la meme chose, et dans
la meme colonne.
Je pensais a une macro evenementielle par exemple.
Je tape ou je colle mes donnees dans ma colonne et la macro modifie le
format au meme endroit.

Possible ? Pas possible?

Merci encore.


Pierre.M



On 2008-04-01 21:38:41 +0200, "Daniel.C"
Bonsoir.
=GAUCHE(SUBSTITUE(A1;" ";"");3)&" "&DROITE(SUBSTITUE(A1;" ";"");3)
Cordialement.
Daniel
"Pierre.M"
Bonsoir tous,

Dans une colonne j'ai des references composees de 6 caracteres et d'une
ou
plusieurs espaces du type 'AAAAAA', 'AAA AAA', AAAAA A' ...

Est-il possible par macro (ou autre) d'obtenir dans tous les cas de
figure
le type suivant 'AAA AAA' ?

Je precise que ces cellules sont remplies la plupart du temps par
copier-coller de lignes completes ou plus rarement par saisie directe.

Si quelqu'un avait une idee, je lui en serai tres reconnaissant.

Bonne soiree.

Pierre.M








Daniel.C
Le #5426541
Bonjour.
Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
Dim Temp As String, c As Range
Application.EnableEvents = False
For Each c In Target
If c.Column = 1 Then
Temp = Application.Substitute(c.Value, " ", "")
If Len(Temp) <> 6 Then
MsgBox "Saisie incorrecte"
Exit Sub
End If
c.Value = Left(Temp, 3) & " " & Right(Temp, 3)
End If
Next c
Application.EnableEvents = True
End Sub

Daniel
"Pierre.M"
Exactement le genre de truc que je cherchais. Merci.

Cependant cette macro ne fonctionne pas dans un cas. C'est quand je colle
plusieurs lignes en même temps.
Serait-il possible de l'adapter ? Mes connaissances ne sont pas
suffisantes pour ça...

Merci encore et bonne journée.

Pierre.M


On 2008-04-02 00:38:55 +0200, "Daniel.C"
Valable pour la colonne A :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Dim Temp As String
Temp = Application.Substitute(Target.Value, " ", "")
If Len(Temp) <> 6 Then
MsgBox "Saisie incorrecte"
Exit Sub
End If
Application.EnableEvents = False
Target.Value = Left(Temp, 3) & " " & Right(Temp, 3)
Application.EnableEvents = True
End Sub

Daniel
"Pierre.M"
Merci beaucoup pour le coup de main.
Ca fonctionne bien-sur, mais cette solution ne m'arrange pas vraiment
car
elle m'oblige a creer une colonne supplementaire et à faire des manips
diverses...

Je cherche plutot un "truc automatique" qui ferait la meme chose, et
dans
la meme colonne.
Je pensais a une macro evenementielle par exemple.
Je tape ou je colle mes donnees dans ma colonne et la macro modifie le
format au meme endroit.

Possible ? Pas possible?

Merci encore.


Pierre.M



On 2008-04-01 21:38:41 +0200, "Daniel.C"
Bonsoir.
=GAUCHE(SUBSTITUE(A1;" ";"");3)&" "&DROITE(SUBSTITUE(A1;" ";"");3)
Cordialement.
Daniel
"Pierre.M"
Bonsoir tous,

Dans une colonne j'ai des references composees de 6 caracteres et
d'une
ou
plusieurs espaces du type 'AAAAAA', 'AAA AAA', AAAAA A' ...

Est-il possible par macro (ou autre) d'obtenir dans tous les cas de
figure
le type suivant 'AAA AAA' ?

Je precise que ces cellules sont remplies la plupart du temps par
copier-coller de lignes completes ou plus rarement par saisie directe.

Si quelqu'un avait une idee, je lui en serai tres reconnaissant.

Bonne soiree.

Pierre.M















FdeCourt
Le #5426521
Salut,

Quelques modifications pour qu'elle soit plus rapide et prenne en
compte les sélections multiples :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Temp As String
Dim data
Dim x as long
Dim y as integer
data = Target
If Target.Rows.Count = 1 And Target.Columns.Count = 1 _
Then Temp = Application.Substitute(Target.Value, " ", ""): _
Target.Value = Left(Temp, 3) & " " & Right(Temp, 3): Exit
Sub
For x = 1 To UBound(data, 1) Step 1
For y = 1 To UBound(data, 2)
Temp = Application.Substitute(data(x, y), " ", "")
If Len(Temp) <> 6 Then
MsgBox "Saisie incorrecte"
Exit Sub
End If
data(x, y) = Left(Temp, 3) & " " & Right(Temp, 3)
Next
Next
Application.EnableEvents = False
Target = data
Application.EnableEvents = True
End Sub

On 2 avr, 07:36, Pierre.M
Exactement le genre de truc que je cherchais. Merci.

Cependant cette macro ne fonctionne pas dans un cas. C'est quand je
colle plusieurs lignes en même temps.
Serait-il possible de l'adapter ? Mes connaissances ne sont pas
suffisantes pour ça...

Merci encore et bonne journée.

Pierre.M

On 2008-04-02 00:38:55 +0200, "Daniel.C"


Valable pour la colonne A :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column > 1 Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Dim Temp As String
    Temp = Application.Substitute(Target.Value, " ", "")
    If Len(Temp) <> 6 Then
        MsgBox "Saisie incorrecte"
        Exit Sub
    End If
    Application.EnableEvents = False
    Target.Value = Left(Temp, 3) & " " & Right(Temp, 3)
    Application.EnableEvents = True
End Sub

Daniel
"Pierre.M"
Merci beaucoup pour le coup de main.
Ca fonctionne bien-sur, mais cette solution ne m'arrange pas vraiment c ar
elle m'oblige a creer une colonne supplementaire et à faire des manip s
diverses...

Je cherche plutot un "truc automatique" qui ferait la meme chose, et da ns
la meme colonne.
Je pensais a une macro evenementielle par exemple.
Je tape ou je colle mes donnees dans ma colonne et la macro modifie le
format au meme endroit.

Possible ? Pas possible?

Merci encore.

Pierre.M

On 2008-04-01 21:38:41 +0200, "Daniel.C"
Bonsoir.
=GAUCHE(SUBSTITUE(A1;" ";"");3)&" "&DROITE(SUBSTITUE(A1;" ";"");3)
Cordialement.
Daniel
"Pierre.M"
Bonsoir tous,

Dans une colonne j'ai des references composees de 6 caracteres et d'u ne
ou
plusieurs espaces du type 'AAAAAA', 'AAA AAA', AAAAA A' ...

Est-il possible par macro (ou autre) d'obtenir dans tous les cas de
figure
le type suivant 'AAA AAA' ?

Je precise que ces cellules sont remplies la plupart du temps par
copier-coller de lignes completes ou plus rarement par saisie directe .

Si quelqu'un avait une idee, je lui en serai tres reconnaissant.

Bonne soiree.

Pierre.M- Masquer le texte des messages précédents -





- Afficher le texte des messages précédents -






PMO
Le #5426511
Bonjour,

Une piste avec l'usage de la fonction personnalisée dont le code
est ci-dessous.

1) Copiez le code dans un module standard
'*************
Function Ref6Car(Cellule As Range) As String
Dim k&
Dim A$
Dim B$
If Cellule.Rows.Count > 1 Or _
Cellule.Columns.Count > 1 Then
MsgBox _
Prompt:="Le paramètre est une plage au lieu d'une seule cellule", _
Title:="Erreur dans la formule : " & Application.Caller.Formula
End If
A$ = CStr(Cellule)
If A$ <> "" Then
For k& = 1 To Len(A$)
If Mid(A$, k&, 1) <> Chr(32) Then _
B$ = B$ & Mid(A$, k&, 1)
Next k&
If B$ <> "" And Len(B$) = 6 Then
B$ = Left(B$, 3) & Chr(32) & Right(B$, 3)
End If
Ref6Car = B$
End If
End Function
'*************

2) Comment l'utiliser (Faites un test dans une nouvelle feuille)
Dans la cellule A1 tapez AA 1234
puis, dans une autre cellule, tapez =Ref6Car(A1)
Vous devez obtenir AA1 234
Si vous voulez supprimer la formule pour ne garder que la valeur
sélectionnez la cellule résultat, copiez la et faites collage spécial/Valeurs.

3) Restrictions
La fonction ne traite qu'une seule cellule. Par conséquent, si vous
tapez =Ref6Car(A1:A40) un #VALEUR! apparaîtra.
Si la cellule à traiter comprend un nombre de caractères valides
différent de 6 le résultat sera vide.

Cordialement.

PMO
Patrick Morange
Daniel.C
Le #5426481
Bonjour.
Si tu veux que ta macro soit plus rapide :
1. "data = Target" est inutile si une seule cellule est modifiée, il faut
déplacer la ligne devant :
"For x = 1 To UBound(data, 1) Step 1"
2. Dans le cas où une seule cellule est modifiée, ne pas oublier
"application.enable eventsúlse" (à rétablir après modif) avant la modif,
ce qui évite une boucle.
Cordialement.
Daniel
"FdeCourt"
Salut,

Quelques modifications pour qu'elle soit plus rapide et prenne en
compte les sélections multiples :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Temp As String
Dim data
Dim x as long
Dim y as integer
data = Target
If Target.Rows.Count = 1 And Target.Columns.Count = 1 _
Then Temp = Application.Substitute(Target.Value, " ", ""): _
Target.Value = Left(Temp, 3) & " " & Right(Temp, 3): Exit
Sub
For x = 1 To UBound(data, 1) Step 1
For y = 1 To UBound(data, 2)
Temp = Application.Substitute(data(x, y), " ", "")
If Len(Temp) <> 6 Then
MsgBox "Saisie incorrecte"
Exit Sub
End If
data(x, y) = Left(Temp, 3) & " " & Right(Temp, 3)
Next
Next
Application.EnableEvents = False
Target = data
Application.EnableEvents = True
End Sub

On 2 avr, 07:36, Pierre.M
Exactement le genre de truc que je cherchais. Merci.

Cependant cette macro ne fonctionne pas dans un cas. C'est quand je
colle plusieurs lignes en même temps.
Serait-il possible de l'adapter ? Mes connaissances ne sont pas
suffisantes pour ça...

Merci encore et bonne journée.

Pierre.M

On 2008-04-02 00:38:55 +0200, "Daniel.C"


Valable pour la colonne A :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Dim Temp As String
Temp = Application.Substitute(Target.Value, " ", "")
If Len(Temp) <> 6 Then
MsgBox "Saisie incorrecte"
Exit Sub
End If
Application.EnableEvents = False
Target.Value = Left(Temp, 3) & " " & Right(Temp, 3)
Application.EnableEvents = True
End Sub

Daniel
"Pierre.M"
Merci beaucoup pour le coup de main.
Ca fonctionne bien-sur, mais cette solution ne m'arrange pas vraiment
car
elle m'oblige a creer une colonne supplementaire et à faire des manips
diverses...

Je cherche plutot un "truc automatique" qui ferait la meme chose, et
dans
la meme colonne.
Je pensais a une macro evenementielle par exemple.
Je tape ou je colle mes donnees dans ma colonne et la macro modifie le
format au meme endroit.

Possible ? Pas possible?

Merci encore.

Pierre.M

On 2008-04-01 21:38:41 +0200, "Daniel.C"
Bonsoir.
=GAUCHE(SUBSTITUE(A1;" ";"");3)&" "&DROITE(SUBSTITUE(A1;" ";"");3)
Cordialement.
Daniel
"Pierre.M"
Bonsoir tous,

Dans une colonne j'ai des references composees de 6 caracteres et
d'une
ou
plusieurs espaces du type 'AAAAAA', 'AAA AAA', AAAAA A' ...

Est-il possible par macro (ou autre) d'obtenir dans tous les cas de
figure
le type suivant 'AAA AAA' ?

Je precise que ces cellules sont remplies la plupart du temps par
copier-coller de lignes completes ou plus rarement par saisie
directe.

Si quelqu'un avait une idee, je lui en serai tres reconnaissant.

Bonne soiree.

Pierre.M- Masquer le texte des messages précédents -





- Afficher le texte des messages précédents -






FdeCourt
Le #5426411
Exact merci

On 2 avr, 12:32, "Daniel.C"
Bonjour.
Si tu veux que ta macro soit plus rapide :
1. "data = Target" est inutile si une seule cellule est modifiée, il f aut
déplacer la ligne devant :
"For x = 1 To UBound(data, 1) Step 1"
2. Dans le cas où une seule cellule est modifiée, ne pas oublier
"application.enable eventsúlse" (à rétablir après modif) avant l a modif,
ce qui évite une boucle.
Cordialement.
Daniel
"FdeCourt"
Salut,

Quelques modifications pour qu'elle soit plus rapide et prenne en
compte les sélections multiples :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Temp As String
    Dim data
    Dim x as long
    Dim y as integer
    data = Target
    If Target.Rows.Count = 1 And Target.Columns.Count = 1 _
        Then Temp = Application.Substitute(Target.Value, " ", "" ): _
            Target.Value = Left(Temp, 3) & " " & Right(Temp, 3): Exit
Sub
    For x = 1 To UBound(data, 1) Step 1
        For y = 1 To UBound(data, 2)
            Temp = Application.Substitute(data(x, y), " ", " ")
            If Len(Temp) <> 6 Then
                MsgBox "Saisie incorrecte"
                Exit Sub
            End If
            data(x, y) = Left(Temp, 3) & " " & Right(Temp, 3 )
        Next
    Next
    Application.EnableEvents = False
    Target = data
    Application.EnableEvents = True
End Sub

On 2 avr, 07:36, Pierre.M


Exactement le genre de truc que je cherchais. Merci.

Cependant cette macro ne fonctionne pas dans un cas. C'est quand je
colle plusieurs lignes en même temps.
Serait-il possible de l'adapter ? Mes connaissances ne sont pas
suffisantes pour ça...

Merci encore et bonne journée.

Pierre.M

On 2008-04-02 00:38:55 +0200, "Daniel.C"
Valable pour la colonne A :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Dim Temp As String
Temp = Application.Substitute(Target.Value, " ", "")
If Len(Temp) <> 6 Then
MsgBox "Saisie incorrecte"
Exit Sub
End If
Application.EnableEvents = False
Target.Value = Left(Temp, 3) & " " & Right(Temp, 3)
Application.EnableEvents = True
End Sub

Daniel
"Pierre.M"
Merci beaucoup pour le coup de main.
Ca fonctionne bien-sur, mais cette solution ne m'arrange pas vraiment
car
elle m'oblige a creer une colonne supplementaire et à faire des man ips
diverses...

Je cherche plutot un "truc automatique" qui ferait la meme chose, et
dans
la meme colonne.
Je pensais a une macro evenementielle par exemple.
Je tape ou je colle mes donnees dans ma colonne et la macro modifie l e
format au meme endroit.

Possible ? Pas possible?

Merci encore.

Pierre.M

On 2008-04-01 21:38:41 +0200, "Daniel.C"
Bonsoir.
=GAUCHE(SUBSTITUE(A1;" ";"");3)&" "&DROITE(SUBSTITUE(A1;" ";"");3)
Cordialement.
Daniel
"Pierre.M"
Bonsoir tous,

Dans une colonne j'ai des references composees de 6 caracteres et
d'une
ou
plusieurs espaces du type 'AAAAAA', 'AAA AAA', AAAAA A' ...

Est-il possible par macro (ou autre) d'obtenir dans tous les cas de
figure
le type suivant 'AAA AAA' ?

Je precise que ces cellules sont remplies la plupart du temps par
copier-coller de lignes completes ou plus rarement par saisie
directe.

Si quelqu'un avait une idee, je lui en serai tres reconnaissant.

Bonne soiree.

Pierre.M- Masquer le texte des messages précédents -





- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -







Pierre.M
Le #5424051
Merci a tous les 3 avec beaucoup de retard.
Vos idees fonctionnent toutes tres bien.
J'ai reussi a les adapter et a finaliser mon travail.
Merci encore et bon WE.

Pierre.M


On 2008-04-01 19:14:33 +0200, Pierre.M
Bonsoir tous,

Dans une colonne j'ai des references composees de 6 caracteres et d'une
ou plusieurs espaces du type 'AAAAAA', 'AAA AAA', AAAAA A' ...

Est-il possible par macro (ou autre) d'obtenir dans tous les cas de
figure le type suivant 'AAA AAA' ?

Je precise que ces cellules sont remplies la plupart du temps par
copier-coller de lignes completes ou plus rarement par saisie directe.

Si quelqu'un avait une idee, je lui en serai tres reconnaissant.

Bonne soiree.

Pierre.M


Publicité
Poster une réponse
Anonyme