Simply
XLDnaute Occasionnel
Hi,
Je dois obtenir une liste AZ dans une List Box...
Maintenant, je dois changer le nombre de combinaisons A - IV
Merci
Code:
Je dois obtenir une liste AZ dans une List Box...
Maintenant, je dois changer le nombre de combinaisons A - IV
Merci
Code:
Code:
Sub LoopThroughString()
Dim txt As String
Dim I As Integer
Dim C As String
Dim arr()
txt = UCase$("ABCDEFGHIJKLMNOPQRSTUVWXYZ")
ReDim arr(1 To Len(txt) * 2, 1 To 1)
For I = 1 To Len(txt)
C = Mid$(txt, I, 1)
' MsgBox C
arr(I, 1) = C
Next
X = a
For I = 1 To Len(txt)
C = "A" & Mid$(txt, I, 1)
' MsgBox C
arr(Len(txt) + I, 1) = C
Next
Range("A1").Resize(Len(txt) * 2).Value = arr
End Sub