Discussion :

[Au2laDeNosReves]

Bonjour,

Je voudrais une information, j'ai beau chercher sur le forum je n'ai pas trouvé :-(.

Donc en faite je vous explique je récupère une information dans la base de donnée :

Code :

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

 .Options = rs.Fields("Options").Value

Qui donne en gros par exemple :

Code :

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

.Options = "Options : 1 Grande Gouttière, 1 Kit Décor, 2 Rampe d'accès, à livrer avant le [Date]"

Donc en faite je voudrais récupérer les options pour les afficher dans un tableau excel.

Colone 1 - Colonne 2
Qté - Désignation
1 - Grande Gouttière
1 - Kit Décor
2 - Rampe d'accès

Si quelqu'un aurait une idée s'il vous plaît ?

Merci

[ouskel'n'or]

Une idée ? Oui ! La meilleure ? pas sûr...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test
Dim Tablo As Variant, i as integr
 
     Tablo = Split(Replace(.option, ":", ","), ",")
     Ligdeb = 5 ' première ligne du report des données, à adapter
     Cells(Ligdeb, 1) = "Qté"
     Cells(Ligdeb, 2) = "Désignation"
     For i = Ligdeb + 1 To Ligdeb + UBound(Tablo) - 1
          Cells(i, 1) = Split(Tablo(i - Ligdeb), " ")(1)
          Cells(i, 2) = "'- " & Right(Tablo(i - Ligdeb), Len(Tablo(i - Ligdeb)) - 2)
     Next
End Sub

Mais Cafeine va certainement te donner un code plus sioux

[Au2laDeNosReves]

Re ;-)

Donc après quelque test voici se que j'ai construit mais j'ai une erreur C marque :

Erreur d'exécution '9' :
L'indice n'appartient pas à la selection

Sachant que

Code :

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

objCommande.Options = "OPTIONS: 1 Grande gouttière 100mm 2 pentes <=3,0m, 1 Kit décor (Planches de rive, jardinière, haut de fenêtre festonnées, 1 Rampes d'accés 100x100)"

Apparament le problème viendrais du <=3,0m, je parle principalement de la "," qui doit m'ennuyer :-(

Sachant également que je n'ai pas besoin de note qui sont entre parenthèse
)Planches de rive, jardinière, haut de fenêtre festonnées, 1 Rampes d'accés 100x100)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub AjoutLigneOption(objCommande As Commande)
    Dim LigneOptionAs Variant, i As Integer
 
    LigneOption= Split(Replace(objCommande.Options, ":", ","), ",")
        For i = Ligne + 1 To Ligne + UBound(Tablo) - 1
            Cells(i, 1) = Split(LigneOption(i - Ligne), " ")(1)
            Cells(i, 2) = "'- " & Right(LigneOption(i - Ligne), Len(LigneOption(i - Ligne)) - 2)
        Next
 
End Sub

Si tu as une petit solution s'il te plait ?
J'ai pas compris tout le code actuellement, j'essaye de le traduire pour essayer de me débrouiller tout seul.
Merci

[Au2laDeNosReves]

Rebonjour,

Donc je cherche toujours actuellement je voudrais supprimer tout se qui me sers a rien comme se qu'il y a entre parenthèse donc j'avais commencer à faire ceci :

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
Public Sub Recherche()
Dim LigneOption As Variant, m As Integer, Ligne As Long
 
    Ligne = 1
 
    Options = "OPTIONS: 1 Grande gouttière 100mm 2 pentes <=3,0m, 1 Kit décor (Planches de rive, jardinière, haut de fenêtre festonnées, 1 Rampes d'accés 100x100), Standby"
 
    Debut = InStr(1, Options, "(")
    Fin = InStr(1, Options, ")") + 1
 
    For m = Debut To Fin
            OptionsFinal = Replace(Options, "(", "", Debut)
            Debut = Debut + 1
            Cells(1, 3) = OptionsFinal
    Next
 
    Cells(1, 1) = Debut
    Cells(1, 2) = Fin
 
 
End Sub

Mais sa me supprime tout le début de ma ligne :-(

[Au2laDeNosReves]

Coucou,

Donc j'ai trouvé une solution en m'aidant de ceci :

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
24
25
26
27
28
Sub Command1()
 
Dim sChaine As String
Dim sString As String
Dim iLocateFirst As Integer
Dim iLocateSecond As Integer
Dim iDiff As Integer
 
sChaine = "OPTIONS: 1 Grande gouttière 100mm 2 pentes <=3,0m, 1 Kit décor (Planches de rive, jardinière, haut de fenêtre festonnées), 1 Rampes d'accés 100x100, Standby"
'"Pomme (123456789)"
 
iLocateFirst = InStr(1, sChaine, "(")
iLocateSecond = InStr(iLocateFirst, sChaine, ")")
sDiff = iLocateSecond - iLocateFirst
 
 
sString = Mid$(sChaine, iLocateFirst, sDiff)
DebutString = Mid$(sChaine, 1, iLocateFirst - 1)
FinString = Mid$(sChaine, iLocateSecond + 1, sDiff)
FinalString = DebutString & FinString
 
Cells(5, 1) = sString
Cells(6, 1) = DebutString
Cells(7, 1) = FinString
Cells(8, 1) = FinalString
 
 
End Sub

[ouskel'n'or]

Il est clair que mon code ne pouvait fonctionner que si les données présentait toujours un format identique et que la quantité, elle-même séparée par un espace de la virgule qui la précède, était séparée également par un espace de l'article.
Donc, tant mieux si tu as pu trouver un code qui correspond à tes besoins