Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Mise en forme

Mise en forme

1 réponse
Avatar
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
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Francois L

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