Insertion de caractere dans Excel ? Résolu/Fermé

Question

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

Polux31 · Answer

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)

lermite222 · Answer

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+

Jean-Marie · Answer

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+

mathraxe · Answer

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

lermite222 · Answer

Tu dois adapter la colonne, sur quel colonne sont tes données ?

mathraxe · Answer

Mes données son dans la colonne "J" de 1 a 6500 

merci de l'aide

lermite222 · Answer

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)

mathraxe · Answer

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

Insertion de caractere dans Excel ?

8 réponses

Discussions similaires