fonction qui écrit dans des cellules

Version imprimable

Bonjour,
je voudrais écrire une fonction qui écrit dans un range de cellules les groupes auxquels appartient un utilisateur de l'AD et je voudrais en même temps que cette fonction me retourne le nombre de groupes trouvés.

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
38
39
40
 
Function dgnLdapUserGroups(sDomain1 As String, sDomain2 As String, sLogin, sRangeDestName As String) As String
 
    Dim sQuery, objUser, Group
    Dim sResult, arrMemberOf ', intPrimaryGroupID
    Dim nOffset
 
    DoEvents
On Error GoTo Handle_Error
 
    ' recupere l'adspath du user
    sQuery = dgnLdapQueryLogin(sDomain1, sDomain2, sLogin, "adspath")
    If sQuery = "" Then
        dgnLdapUserGroups = ""
        Exit Function
    End If
 
    ' recupere l'objet user correspondant
    Set objUser = GetObject(sQuery)
 
    ' recupere la liste des groupes
    arrMemberOf = objUser.GetEx("memberOf")
 
    ' boucle sur les groupes
    sResult = ""
    nOffset = 0
    For Each Group In arrMemberOf
        Range("test").Offset(nOffset) = Group
        nOffset = nOffset + 1
    Next
 
    ' retour du resultat
    dgnLdapUserGroups = Format$(nOffset)
    Exit Function
 
Handle_Error:
    dgnLdapUserGroups = ""
    MsgBox Err.Description
    Exit Function
End Function

J'appelle cette fonction dans une cellule. Quand la cellule est mise à jour et appelle la fonction, ça plante au niveau du :
Range("test").Offset(nOffset) = Group
avec l'erreur

Citation:

Erreur définie par l'application ou par l'objet

Quelqu'un a une idée ?
merci

26/10/2012, 16h14
rvtoulon
bonjour,

Citation:

ça plante au niveau du :
Range("test").Offset(nOffset) = Group

pour répondre à ta question normal:
Offset attends un nomnbre de ligne et un nombre de colonne, regarde l'aide d'excel à ce sujet et tu auras la réponse à ta question.
exemple de l'aide d'excel:

Citation:

Exemple
Cet exemple montre comment appliquer un décalage de cellule de trois colonnes vers la droite et de trois lignes vers le bas à la cellule active de la feuille « Sheet1 ».
Code:

1 2 3 'Visual Basic pour Applications Worksheets("Sheet1").Activate ActiveCell.Offset(rowOffset:=3, columnOffset:=3).Activate
avec l'exemple ci-desssus tu peux simplifier :

Code:

ActiveCell.Offset(3, 3).Activate
26/10/2012, 16h46
jc2

Bonjour,

merci pour la réponse.

j'ai modifié le code mais l'erreur est toujours la même. J'ai l'impression qu'excel refuse de modifier des cellules quand la fonction sert en même temps à retourner une valeur dans une cellule ?
26/10/2012, 17h06
tedo01

Bonjour,
C'est tout à fait ça. Dans une fonction utilisée pour alimenter une cellule, on ne peut pas en modifier d'autres. Pour modifier la valeur de plusieurs cellules il faut passer par une procédure.

Pour des informations plus détaillées :
http://silkyroad.developpez.com/vba/fonctions/

A la fin de l'introduction :

Citation:

Si vous souhaitez intégrer une fonction personnelle dans des formules de la feuille de calcul, il est très important de noter que Les instructions permettent uniquement de renvoyer une donnée dans la cellule. Ces instructions ne peuvent pas modifier les différents objets du classeur.
26/10/2012, 22h35
jc2

merci. je vais transformer la fonction en procédure et je vais créer un bouton qui appelle la procédure