Diviser une colone en 2 apres le 4eme chiffre?

[jverdier]

Chers Xcliens!!



Ma requette est simple:
J'aimerais diviser la colone G (fichier ci joint) pour obtenir le meme format que celui des colonne B et C.

Concretement, j'aimerais que tous les codes contenus dans la colonne G soit copier (ou couper) dans la colone precedente.



Merci pour votre aide!

Jeremie

 

[vbacrumble]

Re : Diviser une colone en 2 apres le 4eme chiffre?

Bonjour



Tu peux utiliser Données/Convertir

 

[Gael]

Re : Diviser une colone en 2 apres le 4eme chiffre?

Bonjour Jverdier, Salut VBACrumble,

Ou en formules:

=CNUM(GAUCHE(G9;4))

pour le code

=STXT(G9;8;NBCAR(G9)-7)

pour le libellé.

@+

Gael

 

[vbacrumble]

Re : Diviser une colone en 2 apres le 4eme chiffre?

Bonjour Gael


Après les formules , le VBA

Sub Macro1() ' [COLOR="Green"]équivalent pour le début de Données/Convertir[/COLOR]
' Macro3 Macro
' Macro enregistrée le 22/04/2009 par VBACrumble
Dim fin As Long
Application.ScreenUpdating = False
Range("A1").EntireRow.Insert
Range("A1").Value = "TEST"
Range("A1").AutoFilter 1, "<>*Field Personnel*", xlAnd
Selection.SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
fin = [a65536].End(xlUp).Row
Range("A1:A" & fin).TextToColumns Range("A1"), , , , True, False, False, False, True, "-"
Columns("B:B").Insert Shift:=xlToRight
With Range("B1")
    .NumberFormat = "General"
    .FormulaR1C1 = "=TRIM(RC[1]&"" - ""&RC[2])"
    .AutoFill Range("B1:B" & fin), xlFillDefault
End With
Range("B1:B" & fin).Value = Range("B1:B" & fin).Value
Columns("C:D").Delete Shift:=xlToLeft
Columns("A:A").ColumnWidth = 5.14
Application.ScreenUpdating = True
End Sub

 

[jverdier]

Re : Diviser une colone en 2 apres le 4eme chiffre?

Merci

les questions appellent des infos... qui rappellent des questions...
Qu'est ce qu'on fait avec le VBA?

 

[vbacrumble]

Re : Diviser une colone en 2 apres le 4eme chiffre?

Re



Regardes ton fichier modfié joint dans ce message

 

[jverdier]

Re : Diviser une colone en 2 apres le 4eme chiffre?

Whaaou !!
J'aime
Comment tu fais..?

Merci
faire des marcos et installer un bouton pour les faire tout seul... Mon Reve!!!

 

[vbacrumble]

Re : Diviser une colone en 2 apres le 4eme chiffre?

Re


Moi je ne fais rien

C'est la magie d'Excel et de VBA et du merveilleux monde des macros.

 

[jverdier]

Re : Diviser une colone en 2 apres le 4eme chiffre?

Ah...

Mais... ou est ce que tu clique?

 

[vbacrumble]

Re : Diviser une colone en 2 apres le 4eme chiffre?

Bonjour


Dans Excel

Aller dans le menu Outils/->Macros/ [sélectionner le nom de la macro] / ->Exécuter

Dans ma pièce jointe la macro se nomme : Macro1

 

[CBernardT]

Re : Diviser une colone en 2 apres le 4eme chiffre?

Bonjour jverdier, vbacrumble et le forum,

Je me permet de rajouter une version qui permet de choisir le critère de tri.

C'est la fonction Split, spécialité de PierreJean, que j'ai utilisée.

Cordialement

Bernard

 

[jverdier]

Re : Diviser une colone en 2 apres le 4eme chiffre?

ThAnks!