Supprimer une partie d'une cellule

[Boby71C]

Bonjour à tous
J'ai un fichier avec dans la colonne A 2 données.
ex:
10xxxA NOM PERSONNE.
je désir duppliquer la colonne donc après cette dupplication, une colonne A et une colonne B qui sont identiques.
Mon problême:
Comment faire pour garder en colonne A
10xxxA
Comment faire pour garder en colonne B
NOM PERSONNE

Merci pour votre aide
à+

 

[andré]

Salut,

As-tu essayé le menu Données / Convertir ?

Â+

 

[pierrejean]

bonjour Robert
bonjour andré

une solution par macro (qui divise l'expression a partir du premier espace)

Sub degroupage()
Dim n As Integer
Dim nb As Integer
With Sheets('Feuil1')
For n = 1 To .Range('A65536').End(xlUp).Row
nb = InStr(.Range('A' & n), ' ')
.Range('B' & n) = Right(.Range('A' & n), Len(.Range('A' & n)) - nb)
.Range('A' & n) = Left(.Range('A' & n), nb - 1)
Next n
End With
End Sub

 

[Boby71C]

Bonjour André
Je n'avais jamais utilisé cette fonctionnalité.
C'est impeccable

Merci pour tes conseils
@+

 

[Boby71C]

Bonjour PierreJean
Excuse moi, je n'avais pas vu ta réponse, je répondais à André.

Je vais également faire un éssai avec VBA juste pour ma connaissance personnelle.

Merci beaucoup à vous deux
@+

 

[Issam]

J'en profite aussi pour vous remercier tous deux, c'est une info que je cherchais aussi !

 

[Boby71C]

Bonsoir à tous
Pour André
J'ai essayé le code que tu m'as indiqué et il y a un bug sur la ligne suivante:
.Range('A' & n) = Left(.Range('A' & n), nb - 1)
La fenêtre m'indique:
Erreur d'exécution 5
Argument ou appel de procédure incorrect.

Dans ma procédure, j'ai Option Explicit
ou alors j'utilise mal la macro.
j'ai essayé en sélectionnant la colonne, en ne sélectionnant rien et j'ai le même message.
Y a t' il quelque chose de particulier à faire ?

😱 😱
Merci beaucoup pour ton aide.
@+

 

[andré]

Salut,

J'ai l'impression quen c'est pour pierrejean !

Â+

 

[pierrejean]

re Boby71C

effectivement andré ce doit etre pour moi

@ boby

il peut y avoir un probleme si la cellule ne comporte pas d'espace

voila une version qui se sort de ce probleme

Sub degroupage()
Dim n As Integer
Dim nb As Integer
With Sheets('Feuil1')
For n = 1 To .Range('A65536').End(xlUp).Row
nb = InStr(.Range('A' & n), ' ')
if nb>2 then
.Range('B' & n) = Right(.Range('A' & n), Len(.Range('A' & n)) - nb)
.Range('A' & n) = Left(.Range('A' & n), nb - 1)
end if
Next n
End With
End Sub

Message édité par: pierrejean, à: 21/06/2006 20:32

 

[Boby71C]

Bounjour

Oups !!! 😱 😱
Toutes mes excuses PierreJean.
Je fais un essai avec la nouvelle version.
Il y avait pourtant bien un espace.
A suivre.


La suite
Merci beaucoup PierreJean, ça fonctionne parfaitement bien.
Merci aux pros d' Excel

Bonne soirée.
@+

Message édité par: Boby71C, à: 22/06/2006 17:16