Bonjour,

en étant débutant, j'essaye de convertir la colonne A vers B1 dans une cellule 1QB;3QB;2DA....

Formule utilisé:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 Sub Bouton1_Cliquer()
 DerniereLigne = Cells(65535, 1).End(xlUp).Row
 Dim ContenuInitial As String
 Dim a() As String
 For I = 1 To DerniereLigne
 ContenuInitial = Cells(I, 1).Value
 a() = Split(ContenuInitial, ";")
 For j = 0 To UBound(a)
 Cells(I, j + 1).Value = a(j)
 Next j
 Next I
 End Sub
Merci de votre aide