Mise en forme

Le
Pitolivier
Bonsoir,
voici mon problème :
j'ai une série de caractères dans une centaine de cases de la colonne A

Exemple :
dans A1 : 30ABC01428C01
dans A2 : 30EFG03433CZ02
dans A3 : 30HIJ01444CZ01
ect

Je souhaite obtenir dans :
A1 : 30ABC01428C01
A2 : 30
A3 : ABC
A4 : 01
A5 : 428
A6 : C
A7 :01
A8 : 30EFG03433CZ02 (anciennement A2)
A9 : 30
A10 : EFG
A11 : 03
A12 : 433
A13 : CZ
A14 : 02
A15 :30HIJ01444CZ01 (anciennement A3)
ainsi de suite
Il faut donc décomposer en
2 caractères
3 caractères
2 caractères
3 caractères
1 ou 2 caractères (soit C soit CZ)
2 caractères

Pensez-vous que cette opération soit réalisable autrement que manuellement ?
Merci d'avance pour vos réponses.

Pitolivier
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Francois L
Le #5327731

Bonsoir,

Une chtite macro ?

' Adapter le 3 de "For i = 1 to 3" selon le nombre de données en colonne A

Sub zozo()
Dim i As Integer, j As Integer
With ActiveSheet
j = 1
For i = 1 To 3
mstr = .Range("A" & i)
.Range("B" & j) = mstr
.Range("B" & j + 1) = "'" & Left(mstr, 2)
.Range("B" & j + 2) = "'" & Mid(mstr, 3, 3)
.Range("B" & j + 3) = "'" & Mid(mstr, 6, 2)
.Range("B" & j + 4) = "'" & Mid(mstr, 8, 3)
If Len(mstr) = 13 Then
.Range("B" & j + 5) = "'" & Mid(mstr, 11, 1)
Else
.Range("B" & j + 5) = "'" & Mid(mstr, 11, 2)
End If
.Range("B" & j + 6) = "'" & Right(mstr, 2)
j = j + 7
Next
.Columns(1).Delete
End With

End Sub


--
François L
Bonsoir,
voici mon problème :
j'ai une série de caractères dans une centaine de cases de la colonne A

Exemple :
dans A1 : 30ABC01428C01
dans A2 : 30EFG03433CZ02
dans A3 : 30HIJ01444CZ01
ect...

Je souhaite obtenir dans :
A1 : 30ABC01428C01
A2 : 30
A3 : ABC
A4 : 01
A5 : 428
A6 : C
A7 :01
A8 : 30EFG03433CZ02 (anciennement A2)
A9 : 30
A10 : EFG
A11 : 03
A12 : 433
A13 : CZ
A14 : 02
A15 :30HIJ01444CZ01 (anciennement A3)
ainsi de suite
Il faut donc décomposer en
2 caractères
3 caractères
2 caractères
3 caractères
1 ou 2 caractères (soit C soit CZ)
2 caractères

Pensez-vous que cette opération soit réalisable autrement que manuellement ?
Merci d'avance pour vos réponses.

Pitolivier




Publicité
Poster une réponse
Anonyme