Discussion :

[hs.hs]

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 :

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
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