Insertion de caractere dans Excel ?

Résolu/Fermé
mathraxe Messages postés 26 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 23 mai 2012 - 10 août 2010 à 13:35
mathraxe Messages postés 26 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 23 mai 2012 - 10 août 2010 à 16:26
Bonjour à tous,

Je suis nouveau sur ce forum, j'éspere que vous trouverez une solution à mon probleme.

Je m'explique, j'ai 6500 lignes dans Excel sous forme "022176438" et j'aimerai trouver une solution pour les mettre sous ce format "02/21176438" ça fait 2 jours que je cherche une solution mais toujours rien. Si vous connaissez une technique n'hesitez pas

encore merci
A voir également:

8 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
10 août 2010 à 14:40
Bonjour,

Il existe plusieurs "techniques". Il faut juste savoir si les données sont sur une plage allant par exemple de Ax à Zy, ou sur une colonne uniquement, sur plusieurs feuilles etc ...

;o)
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
10 août 2010 à 14:41
Bonjour,
Un exemple,
Sub AjoutSlach()
Dim Lig As Long
'Supposons colonne B, commence en ligne 2
    For Lig = 2 To Range("B65536").End(xlUp).Row
        If Mid(Cells(Lig, 2), 3, 1) <> "\" Then 'Eviter de faire 2 fois
            Cells(Lig, 2) = Left(Cells(Lig, 2), 2) & "/" & Mid(Cells(Lig, 2), 3)
        End If
    Next Lig
End Sub

A+
0
si tu ne veux pas faire de vba et en supposant que :
- la chaine de caractère à toujours la même taille,
- c'est après le deuxième caractère que tu veux mettre un "/"
dans la formule A1 désigne une cellule contenant une chaine :

=CONCATENER(GAUCHE(A1;2);"/";DROITE(A1;NBCAR(A1)-2))

a+
0
mathraxe Messages postés 26 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 23 mai 2012
10 août 2010 à 15:05
Les données ne sont pas sur une ligne horizontal mais vertical, je viens d'essayer la macro mais je ne vois pas le changement :-s

encore merci de votre aide
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
10 août 2010 à 15:08
Tu dois adapter la colonne, sur quel colonne sont tes données ?
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
10 août 2010 à 15:16
Bonjour lermite,

Si mathraxe avait pris la peine de lire toutes les réponses, il aurait surement compris qu'il faut donner plus de renseignements pour obtenir de l'aide.
Il faut aussi faire preuve de don divinatoire pour venir en aide aujourd'hui ... ^^

Bon courage.

;o)
0
mathraxe Messages postés 26 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 23 mai 2012
10 août 2010 à 15:14
Mes données son dans la colonne "J" de 1 a 6500

merci de l'aide
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 10/08/2010 à 15:23
Change par..
Sub AjoutSlach() 
Dim Lig As Long 
'Supposons colonne J, commence en ligne 1 
    For Lig = 1 To Range("J65536").End(xlUp).Row 
        If Mid(Cells(Lig, 10), 3, 1) <> "\" Then 'Eviter de faire 2 fois 
            Cells(Lig, 10) = Left(Cells(Lig, 10), 2) & "/" & Mid(Cells(Lig, 10), 3) 
        End If 
    Next Lig 
End Sub

Edit : Rectifier pour colonne J
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
0
mathraxe Messages postés 26 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 23 mai 2012
10 août 2010 à 16:26
Nikel :-) plaisir d'avoir enfin trouver une solution

je vous remercie pour vos réponses et un grand merci lermite bon boulot

Bonne fin de journée
0