Discussion :

[william coppola]

Bonjour,

Cela fais des heures que je cherche une solution, mais impossible.
J'ai une liste déroulante (voir fichier joint), que je dois exporter en XML, avec une boucle for en parcourant toutes ses options. Je pensais que ce serait simple, mais IMPOSSIBLE de mettre la main sur la fonction qui permet cela.
Au mieux, j'obtiens la valeur de base, qui ne m'intéresse pas.

Mais impossible de pouvoir compter le nombre d'option dans la liste, ni même de les afficher/manipuler !

Merci infiniment de votre aide à l'avance.

[piotr76]

Bonjour

C'est juste du traitement de texte appliqué à Range("A1").Validation.Formula1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Macro1()
 
Dim myStr(100) As String       'Si + de 100:aie:
 
    strInit = Range("A1").Validation.Formula1
    MsgBox strInit, vbInformation
    j = 0
    myStr(0) = ""
    For i = 1 To Len(strInit)
        If Mid(strInit, i, 1) <> ";" Then
            myStr(j) = myStr(j) & Mid(strInit, i, 1)
        Else
            j = j + 1
            myStr(j) = ""
        End If
    Next i
    strInit = ""
    For i = 0 To j
        strInit = strInit & myStr(i) & vbCrLf
    Next i
    MsgBox strInit             '
 
End Sub

Cordialement