Extraire un code et un sous code de la même colonne

Version imprimable

2 pièce(s) jointe(s)

bonjouur

J essaye de remplir dans un formulaire un code" et le" sous code : SUBCODE" a partir du tableau que j ai mis en pièce jointe dans le formulaire que j ai mis en piece jointe aussi
J ai fait ce code mais ça marche pas et je comprends pas pourquoi
Quelqun pourra m aider?

Code:

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
29
30
31
32
33
34
Dim CodeSubCode As Variant
 
        If Worksheets("DATA").Range("M" & i).Value = 10 Then
            Set bouton = IEDoc.all("goodsSubCodesList[0]")
                CodeSubCode = Split(Worksheets("DATA").Range("M" & i))
                bouton.Value = ""
            Set bouton = IEDoc.all("goodsTitlesList[0]")
             bouton.Value = Worksheets("DATA").Range("N" & i).Value
        End If
 
        bouton.Focus
 
 
 
        Set bouton = IEDoc.all("goodsCodesList[0]")
 
 
 
        For Each oElement In bouton
 
            Debug.Print oElement.Value
            'bouton.Value = Replace(Worksheets("DATA").Range("M" & i).Value, ",", ".")
          CodeSubCode = Split(Worksheets("DATA").Range("M" & i), ".")
 
                 If oElement.Value = CodeSubCode(0) Then
                oElement.Selected = True
            End If
             If UBound(CodeSubCode) = 2 Then
        Set bouton = IEDoc.all("goodsSubCodesList[0]")
        CodeSubCode = Split(Worksheets("DATA").Range("M" & i), ".")
        bouton.Value = CodeSubCode(1)
 
        End If
        Next

Merci en ts cas

21/06/2016, 18h25
Menhir

1 pièce(s) jointe(s)

Citation:

Envoyé par hs.hs

J ai fait ce code mais ça marche pas

Avec une description aussi claire de ton problème, je pense que les probabilités de réponses sont faibles.

Tu ne dis pas ce qui ne marche pas :
- un message d'erreur ? Quelle message ? Sur quelle ligne ?
- un résultat incohérent ? Quel résultat souhaites-tu ? Quel résultat obtiens-tu ?

Un code sans aucun commentaire, non balisé et sans indentation.
http://club.developpez.com/regles/#LIII-E

En regardant en vaguement ton code, j'ai l'impression qu'il est parcellaire puisque certaines variable qu'il utilise sont sans doute renseignées postérieurement.
J'ai aussi l'impression qu'il récupère des données Internet dont tu ne dis rien de la structure ni du contenu.

Bref, seuls ceux disposant d'une boule de cristal peuvent espérer pouvoir répondre.
Pièce jointe 213560

1 pièce(s) jointe(s)

Bonjour

Il n y a pas de message d'erreur
mais le subcode n est pas copié dans la zone ou il devait
genre si je saisis 5.3 ça remplit dans code 5 mais rien dans subcode
desolee pour ne pas avoir respecté les regles du forum je suis nouvelle ici
Du coup Voila le code encore une fois mais modifié
M-> mes codes par example 9.1 6.3 7.2
N-> Une DESCRIPTION du code

Code:

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
29
30
31
32
33
34
35
36
37
 
Dim CodeSubCode(3) As Integer
 
        If Worksheets("DATA").Range("M" & i).Value = 10 Then
            Set bouton = IEDoc.all("goodsCodesList[0]")
            bouton.Value = Worksheets("DATA").Range("M" & i).Value
            Set bouton = IEDoc.all("goodsTitlesList[0]")
             bouton.Value = Worksheets("DATA").Range("N" & i).Value
        bouton.Focus
        Else
        Set bouton = IEDoc.all("goodsCodesList[0]")
        For Each oElement In bouton
            Debug.Print oElement.Value
                    Range("M" & i) = Replace(Range("M" & i), ",", ".")
            CodeSubCode(0) = Split(Worksheets("DATA").Range("M" & i), ".")
            If oElement.Value = CodeSubCode(0) Then
                oElement.Selected = True
            End If
            Set bouton = IEDoc.all("goodsSubCodesList[0]")
            CodeSubCode(1) = Split(Worksheets("DATA").Range("M" & i), ".")
            bouton.Value = CodeSubCode(1)
        Next oElement
 
        End If
 
        Next
 
        Set bouton = IEDoc.getElementsByClassName("submit")(2)
        bouton.Click
 
        Do While ie.Busy
            Application.Wait (Now() + 1 / 3600 / 24)
        Loop
 
 
 
MsgBox " Bravo, vous venez de déposer votre demande de Claim "

et en piece jointe le code html il va falloir juste afficher la source

Merci beaucoup

22/06/2016, 15h18
Marc-L
Bonjour,

p'tite démonstration :
Code:

1 2 3 4 Sub Demo1() SP = Split("5.3", ".") MsgBox "Code : " & SP(0) & vbLf & "SubC : " & SP(1) End Sub
_________________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

_________________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

3 pièce(s) jointe(s)

Je galere toujours avec ce code
je n arrive a saisir que le code et subcode de ma 1ere ligne sur le tableau
et ca me donne pas le texte qui doit se générer automatiquement dans la zone de texte qui suit le subcode apres avoir saisi le code et subcode

ci-joint un capture d cran de mon fichier excel de la page internet ou mes donnees du tableau doivent etre saisis
et le code source de la page
Si quelqun a la solution de ce probleme je serai tres reconnaissante

Mercii

Code:

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
29
30
 
        Dim CodeSubCode(3) As Integer
 
        If Worksheets("DATA").Range("M" & i).Value = 10 Then
            Set bouton = IEDoc.all("goodsCodesList[0]")
            bouton.Value = Worksheets("DATA").Range("M" & i).Value
            Set bouton = IEDoc.all("goodsTitlesList[0]")
             bouton.Value = Worksheets("DATA").Range("N" & i).Value
 
        Else
        Set bouton = IEDoc.all("goodsCodesList[0]")
        For Each oElement In bouton
            Debug.Print oElement.Value
            Range("M" & i) = Replace(Range("M" & i), ",", ".")
            CodeSubCode(0) = Split(Worksheets("DATA").Range("M" & i), ".")(0)
            If oElement.Value = CodeSubCode(0) Then
                oElement.Selected = True
            End If
 
            Set bouton = IEDoc.all("goodsSubCodesList[0]")
            CodeSubCode(1) = Split(Worksheets("DATA").Range("M" & i), ".")(1)
             bouton.Value = CodeSubCode(1)
 
            Set bouton = IEDoc.all("goodsTitlesList[0]")
            bouton.Click
        Next oElement
 
        End If
        bouton.Focus
        Next

05/07/2016, 10h56
Marc-L

Lignes de code n°15 & 21 : l'indice de la variable CodeSubCode est fixe au sein de la boucle ‼
05/07/2016, 11h01
hs.hs

j ai pas compris
il faut les mettre en dehors de ma boucle ou quoi?
Merci
05/07/2016, 11h06
Marc-L

Tout dépend de la logique du code : si le besoin est au sein de la boucle, il faut donc faire varier l'indice de la variable …
05/07/2016, 12h28
hs.hs

de quel indice tu parles?
en fait ca change pas grand chose quand je mets les lignes en dehors de la boucle

j ai réussi a affecter le code et sub code dans les zones correspondantes mais j arrive toujours pas à activer la 3"m" zone de texte qui normalement doit afficher du texte des qu on entre le subcode Quelqun pour m aider svp??
05/07/2016, 15h03
Marc-L

Si quelqu'un a une boule de cristal …
05/07/2016, 15h43
hs.hs

j ai mis en piece joint capture d ecran de la page du fichier excel aue j ai et du code source de la page internet explorer donc normalemnt ça peut aller