Afficher chaque chiffres dans trois colonnes ?

  • Initiateur de la discussion Initiateur de la discussion Guido
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Guido

XLDnaute Accro
Bonjour le Forum

je recherche a mettre chaque chiffres dans trois colonnes differentes.

0_1(2)
8_3(1)
7_8(1)
1_6(1)
7_6(2)
2_3(1)
2_4(2)
3_2(2)

soit col B 0 col C 1 col D 2
soit col B 8 col C 3 col D 1


Merci pour votre aide

Guido
 
Re : Afficher chaque chiffres dans trois colonnes ?

Bonsoir Guido, SergiO,

Même avec excel 2007, il suffit de relire les formulations de SergiO... qui sont très claires....

Le petit fichier, comme tu dis, c'était à toi de le déposer en ZIP, tiens, histoire de rigoler.... mais à personne d'autre d'hypothéser ce que tu souhaite...

Tu as un clavier, tu tapes = et le texte donné par SergiO et c'est bon... Si ce n'est pas bon, tu développes ta problèmatique....

Si tu n'y arrives pas, c'est que ta question est mal posée....

Alors et comme dit plus haut, tu nous mets un Zip de ton fichier avec ce que tu as et ce que tu veux....

Plus simple ensuite....

Jean-Pierre
 
Re : Afficher chaque chiffres dans trois colonnes ?

Bonsoir,
jp 😉
vite fait un petit code :

Code:
Sub Macro1()
derlig = [A65000].End(xlUp).Row
    With Range("A1:A" & derlig)
        .TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
            Other:=True, OtherChar:="_", FieldInfo:=Array(Array(1, 1), Array(2, 1)), _
            TrailingMinusNumbers:=True
        .Offset(0, 1).Resize(derlig, 1).TextToColumns Destination:=Range("B1"), _
            DataType:=xlDelimited, Other:=True, OtherChar:="(", FieldInfo:=Array(Array(1, 1), Array(2, 1)), _
            TrailingMinusNumbers:=True
        .Offset(0, 2).Resize(derlig, 1).Replace What:=")", Replacement:=""
    End With
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
19
Affichages
760
Réponses
15
Affichages
524
Réponses
2
Affichages
240
Retour