Insertion de caractere dans Excel ?

Résolu
mathraxe Messages postés 26 Date d'inscription   Statut Membre Dernière intervention   -  
mathraxe Messages postés 26 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 8
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
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
Réponse 2 / 8
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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
Réponse 3 / 8
Jean-Marie
 
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
Réponse 4 / 8
mathraxe Messages postés 26 Date d'inscription   Statut Membre Dernière intervention  
 
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
Réponse 5 / 8
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Tu dois adapter la colonne, sur quel colonne sont tes données ?
0
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
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
Réponse 6 / 8
mathraxe Messages postés 26 Date d'inscription   Statut Membre Dernière intervention  
 
Mes données son dans la colonne "J" de 1 a 6500

merci de l'aide
0
Réponse 7 / 8
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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
Réponse 8 / 8
mathraxe Messages postés 26 Date d'inscription   Statut Membre Dernière intervention  
 
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