Insérer des ; dans une liste de caractère Fermé

Question

Bonjour à tous 

j'ai une tache a faire sous excel, mais je bloque !  

j'ai un fichier de plus de 1000 lignes, dans une des colonnes, j'ai une chaines de caractères, dont le nombre peut varier en gros de 2 à 192 

Exemple: 
810253951525455 
84 
384269 
2776 
596280 
18 
30 
33 

ces nombres (qui sont en fait des N° de département), je souhaite les séparer deux par deux avec un point virgule, comme ci dessous: 

81;02;53;95;15;25;45;50; 
84; 
38;42;69; 
27;76; 
59;62;80; 
18; 
30; 
33; 

mais je ne sais pas comment faire ca de maniere "industrielle", pour les 1000 lignes d'un coup, mes compétences en macro sont largement dépassées 

je remercie par avance la communauté pour son aide ! 

A bientot, 

Vincent

(config: vista, office 2007)

eriiic · Answer

Bonjour,

dans un module :
Function sep2(s As String) As String
    Dim i As Long
    For i = Len(s) - 2 To 1 Step -2
        s = Left(s, i) & ";" & Mid(s, i + 1)
    Next i
    sep2 = s
End Function
eric

tchernosplif · Answer

Bonjour,

J'ai décomposé le problème en 4 étapes:

- découpage par paires (stxt)
-concatener des paires avec un ; intermédiaire
-supression des ; en double (substitue)
-ajoute le dernier ; si manquant

http://www.cijoint.fr/cj201012/cij2y5KHqP.xls

ccm81 · Answer

bonjour
une autre ...

Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Selection
  c.Value = inserepv(c.Value)
Next c
End Sub

Function inserepv(ByVal s As String) As String
  If Len(s) = 2 Then
    inserepv = s
  Else
    inserepv = Left(s, 2) & ";" & inserepv(Right(s, Len(s) - 2))
  End If
End Function

dans ton pb
RQ1. les cellules contiennent des chaines de caracteres
RQ2. les chaines de caracteres sont de longueurs paires (ce n'est pa verifie)

bonne suite

Maxime · Answer

Ton exemple d'énoncé est incorrect (nombre impair de car).

Voici la solution.

F11 éditeur VBA, ajouter module, dedans du colles ça 

Public Function DeuxParDeux(Cel As Range) As String
 Dim S As String
 Dim S2 As String
 Dim i As Integer
 Dim Ct As Integer
 S = CStr(Cel)
 If Len(S) / 2 = Len(S) \ 2 Then
  'Delete possible blanks
  S = Replace(S, " ", "")
  S = Replace(S, ";", "")
  For i = 1 To Len(S)
   S2 = S2 & Mid$(S, i, 1)
   Ct = Ct + 1
   If Ct = 2 Then
    Ct = 0
    S2 = S2 & ";"
   End If
  Next i
  DeuxParDeux = S2
  Else
   DeuxParDeux = "IMPAIR !"
 End If
End Function

Puis tu fais dans une colonne =deuxpardeux(colonnenonséprarée)

si le nombre de car est impair, il retourne impair.

TRES vite fait sur le gaz, signale-moi si tu vois un bug.

Oki ?

Insérer des ; dans une liste de caractère

4 réponses

Discussions similaires