plumpony531
XLDnaute Nouveau
Bonjour au petit peuple de XLD.....
Je viens de finir une petite application, avec l'aide d'un membre eminent (hellboy) mais maintenant je voudrais rajouter une barre de progression à cette jolie App.
Il y a des dizainne d'exemples sur differents fil mais je ne comprends pas très bien.
Mon code contient deja un for Each ........... next (+ d'autres for each ..... next qui prennent si peu de temps que c'est pas la peine de les englober dans le bidule)
Dans ce fameux For ...... Each, je compte des users contenu dans des groupes que j'inventorie
Ou viens se caler ma progress bar ?
Comment s'incremente t'elle sachant que je ne connais pas le nombre de groupes manipulés et encore moins le nombre de users contenu dans ces groupes ?
Je suppose ( vous me direz que c'est facile de supposer lorsque c'est ecrit partout ......) qu'il me faut un Min et un Max..... ou y peuvent etres ces deux Zigotos sachant que par defaut je n'en est pas
Ci joint un extrait du code dans lequel je voudrais mettre la progress bar
MERCI
Je viens de finir une petite application, avec l'aide d'un membre eminent (hellboy) mais maintenant je voudrais rajouter une barre de progression à cette jolie App.
Il y a des dizainne d'exemples sur differents fil mais je ne comprends pas très bien.
Mon code contient deja un for Each ........... next (+ d'autres for each ..... next qui prennent si peu de temps que c'est pas la peine de les englober dans le bidule)
Dans ce fameux For ...... Each, je compte des users contenu dans des groupes que j'inventorie
Ou viens se caler ma progress bar ?
Comment s'incremente t'elle sachant que je ne connais pas le nombre de groupes manipulés et encore moins le nombre de users contenu dans ces groupes ?
Je suppose ( vous me direz que c'est facile de supposer lorsque c'est ecrit partout ......) qu'il me faut un Min et un Max..... ou y peuvent etres ces deux Zigotos sachant que par defaut je n'en est pas
Ci joint un extrait du code dans lequel je voudrais mettre la progress bar
Code:
' ENUMERATE GROUPS AND MEMBERS.
objADAM.Filter = Array('group')
Nom = Mid(objGroup.Name, 4, 20)
'LISTE DES GROUPES AD GGM2003
For Each objGroup In objADAM
'DETECTION GGM 2003
If Mid(objGroup.Name, 4, 11) = 'GGM_SMS2003' Then
User = 0
'DETECTION MEMBRES
For Each objMember In objGroup.Members
User = User + 1
Next
'REMPLISSAGE DU TAB EXCEL
'test premier lancement
If IsEmpty(Feuil1.Cells(x, 1).Value) = True Then
Feuil1.Cells(x, 1).Value = Mid(objGroup.Name, 4, 40)
Feuil1.Cells(x, 2).Value = User
Feuil1.Cells(x, 3).Value = 0
Feuil1.Cells(x, 4).Value = 0
Else
Feuil2.Cells(xtemp, ytemp).Value = Mid(objGroup.Name, 4, 40)
Feuil2.Cells(xtemp, ytemp + 1).Value = User
flag = 2
End If
'Positionnement des y en fonction du remplissage
While IsEmpty(Feuil1.Cells(x, y)) = False
y = y + 3
Wend
x = x + 1
xtemp = xtemp + 1
End If
Next
MERCI