Problème d'affichage

Bonjour,

Etant débutant en VBA, je reviens vers vous pour avoir un peu d'aide, au fait, j'ai un problème d'affichage sur ma feuille, j'ai des identifiants uniques pour lesquels je recupère leur ressources mais à chaque fois sur ma feuille il m'affiche la ressources de la dernière ressource.

voici la partie du code le concernant :

les identifiants se trouve dans le tabeau 5 (tablo5)

objCommandLDAP3.CommandText = "<LDAP://127.0.0.1:1389/OU=provisioningparams,OU=security,DC=ilex-si,DC=eu>;(ixuid=" & tablo5 & ");displayName,ixuid;subtree"

Set objRecordSetLDAP3 = objCommandLDAP3.Execute // ma requete ldap

objRecordSetLDAP3.movefirst

If Not objRecordSetLDAP3.EOF Then

strRessource = objRecordSetLDAP3.Fields("displayName") //nom de la ressource

ThisWorkbook.Sheets(1).Cells(i, 5).Value = strRessource // colonne d'affiche

objRecordSetLDAP3.MoveNext

Salut diopkhad,

on peut voir le code entier? avec la boucle For

@++

m3ellem1 a écrit :

Salut diopkhad,

on peut voir le code entier? avec la boucle For

@++

objCommandLDAP2.CommandText = "<LDAP://127.0.0.1:1389/OU=provisioningvalues,OU=security,DC=ilex-si,DC=eu>;(ixrulecontent=" & tablo0 & ");ixprovisioningparams, ixvalue;subtree"
            Set objRecordSetLDAP2 = objCommandLDAP2.Execute
            If Not objRecordSetLDAP2.EOF Then
                j = 1
                i = 1
                objRecordSetLDAP2.movefirst
                ' Parcours des résultats
                While Not objRecordSetLDAP2.EOF
                    tablo4 = objRecordSetLDAP2.Fields("ixvalue")
                    tablo5 = objRecordSetLDAP2.Fields("ixprovisioningparams")
                    For k = 0 To UBound(tablo4)
                        ThisWorkbook.Sheets(1).Cells(i, 3).Value = tablo4(k)
                        ThisWorkbook.Sheets(1).Cells(i, 4).Value = tablo5
                    Next
                    j = j + 1
                    i = i + 1
                    objRecordSetLDAP2.MoveNext
                Wend

                objCommandLDAP3.CommandText = "<LDAP://127.0.0.1:1389/OU=provisioningparams,OU=security,DC=ilex-si,DC=eu>;(ixuid=" & tablo5 & ");displayName,ixuid;subtree"
                Set objRecordSetLDAP3 = objCommandLDAP3.Execute
                objRecordSetLDAP3.movefirst
                If Not objRecordSetLDAP3.EOF Then
                strRessource = objRecordSetLDAP3.Fields("displayName")
                ThisWorkbook.Sheets(1).Cells(i, 5).Value = strRessource
                objRecordSetLDAP3.MoveNext

               End If

            End If
        End If
        i = i + 1
        objRecordSetLDAP.MoveNext
    Wend
End If

MsgBox "fini"

End Sub

le code n'est pas complet

m3ellem1 a écrit :

le code n'est pas complet

oui j'ai juste mis la partie qui concerne mon problème d'affichage.....

diopkhad a écrit :

m3ellem1 a écrit :

le code n'est pas complet

oui j'ai juste mis la partie qui concerne mon problème d'affichage.....

ok pas de soucis, je laisse la main aux autres collègues car moi avec juste cette partie de ce code je ne suis pas capable de faire une analyse!

Bonne continuation