Modification d'une range = arrêt de la fonction

Version imprimable

Bonjour,

J'essaie d'afficher un tableau de String sous forme de vecteur colonne dans Excel.
Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 Sub tableau(ByRef s() As String) ' Ecrit en tableau (vecteur colonne) le vecteur passé en paramètre Dim i As Long, row As Long Dim col As String col = ColumnLetter(ActiveCell.Column) row = ActiveCell.row For i = 1 To UBound(s) Range(col & (row + i)).Value = s(i) Next i End Sub
Malheureusement, le code plante à la 1ère itération de la boucle. J'ai pourtant vérifié au débuggage que le paramètre col & (row+i) donnait bien quelque chose sous la forme "A3", et que s(i) était bien reconnu comme un String, mais la fonction s'arrête tout simplement à cette ligne, sans même créer une erreur...

Si quelqu'un a une idée...
Merci !

2 propositions pour faire ce que tu veux (malgré certaines réticences personnelles)
1.

Code:

1
2
3
4
5
6
7
Sub tableau1(ByRef s() As String)
Dim i As Long
 
For i = Lbound(s) To UBound(s)
    ActiveCell.Offset(i, 0) = s(i)
Next i
End Sub

Code:

1
2
3
4
Sub tableau2(ByRef s() As String)
 
Range(ActiveCell.Offset(Lbound(s), 0), ActiveCell.Offset(UBound(s), 0)) = Application.Transpose(s)
End Sub

09/02/2011, 13h39
hydredelerne

Merci pour ta réponse, mais aucune des 2 ne fonctionne... C'est la même chose qu'avec ma fonction, dès qu'une ligne de code essaie de modifier le contenu d'une cellule, l'exécution s'arrête...
Please help !
09/02/2011, 13h54
mercatog

Comment tu fais l'appelle de cette procédure (et non fonction). On a besoin de plus de détails

Voici la fonction qui appelle tableau() :

Code:

1
2
3
4
5
6
7
8
9
10
Function AffichePopIni(p_0 As Double, N As Long) As String
    Dim s As String
    s = ColumnLetter(ActiveCell.Column)
    Range(s & ActiveCell.row + 1).Select
    Dim P() As String
    ReDim P(1 To N)
    P = CreationPop(p_0, N)
    Call tableau(P)
    AffichePopIni = "Population"
End Function

Et voici la fonction qui crée mon tableau de String P :

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
Function CreationPop(p_0 As Double, N As Long) As String()
' Initialise une population de taille N avec une proportion initiale p_0 de malades
    Dim i As Long, P As Long, u As Double
    Dim P0() As String
    ReDim P0(1 To N)
 
    For i = 1 To N
        P0(i) = "S"
    Next i
 
    If p_0 = 0 Then GoTo fin
    P = PartieEntSup(p_0 * N)
 
    For i = 1 To P
        u = Rnd
        If P0(Int(u * N) + 1) = "S" Then
            Call infecter(P0(Int(u * N) + 1))
        Else
            i = i - 1
        End If
    Next i
    CreationPop = P0
 
fin:
End Function

Merci pour ton aide !

09/02/2011, 22h52
Qwazerty
Salut
Et si tu expliquais clairement ce que tu souhaites faire, parce que j'ai beau relire ton code, tu utilises des fonctions dans tous les sens, tu sélectionne des range avec des méthodes plutôt alambiqués
Code:

1 2 s = ColumnLetter(ActiveCell.Column) Range(s & ActiveCell.Row + 1).Select
Autant faire

Code:

ActiveCell.Offset(1).Select

Tu ne peux pas retourner un tableau de string, il faudrait soit retourner un tableau contenu dans un variant, soit passer ton tableau de string en paramètre et le modifier dans ta fonction.
++
Qwaz
09/02/2011, 23h05
hydredelerne

Citation:

Envoyé par Qwazerty

Tu ne peux pas retourner un tableau de string, il faudrait soit retourner un tableau contenu dans un variant, soit passer ton tableau de string en paramètre et le modifier dans ta fonction.
Qwaz

Tu es sûr de ça ? Parce que dans les autres fonctions qui utilisent ce tableau (en appelant la fonction CreationPop), tout fonctionne bien. C'est quand j'essaie de l'afficher dans Excel que ça bloque.

Citation:

Envoyé par Qwazerty

Et si tu expliquais clairement ce que tu souhaites faire

J'étudie un modèle d'épidémiologie... C'est compliqué à expliquer en 2 mots... Si tu veux je t'envoie le code complet.
10/02/2011, 06h19
Qwazerty

Salut
Essai toujours de nous envoyer le code complet.
Même si on ne comprend pas tout, à ce que j'en ai vu des quelques lignes que tu as présenté, il sera certainement possible de faire du nettoyage.

~~Pour ce qui est des tableaux, je ferais l'essai de ton code ce soir(d'autre t'auront certainement répondu entre temps), mais je doute que ça te renvoie un tableau de string.~~
[Edit]
Je viens de faire l'essai, tu retournes bien un tableau de string ... autant pour moi, je vais réviser ma copie. D’ailleurs, pas besoin de redimensionner ta variable

Code:

ReDim P(1 To N)

avant l'appelle à ta fonction.
Mais ne t'y troupe pas, le reste reste vrai ;) Explique ce que tu cherches a faire.
J'ai regardé un tuto vite faite de SilkyRoad au sujet des fonctions personnelles, c'est avec ça que je dois confondre, dans le cas d'une fonction utilisé dans une cellule, si celle ci renvoie un tableau il doit comparativement être de type Variant ;), donc rien a voir ici,sauf si la finalité est d'utiliser tout ceci dans une forume de cellule??
[/Edit]

Tu utilises Rnd, mais il faut initialiser le générateur de nombre aléatoire, sinon tu te retrouveras toujours avec le même numéro de départ dans tes séries (voir l'aide et Randomize)

++
Qwaz
10/02/2011, 07h56
hydredelerne

Salut,

La finalité est bien d'utiliser la fonction AffichePopIni dans une cellule. Elle doit afficher dans les cellules d'en dessous la population (créée grâce à la fonction CreationPop) en utilisant la fonction tableau.
C'est peut-être un peu compliqué, mais je n'ai pas trouvé plus simple.

En fait j'ai tout envoyé... La fonction PartieEntSup renvoie la partie entière supérieure d'un nombre, et la fonction infecter met le String passé en paramètre à "I" (en utilisant ByRef).
10/02/2011, 12h22
Qwazerty

Salut
Attention, il n'est pas possible de modifier le contenu d'un cellule autre que celle ou tu utilise ta fonction.
Disons que ta formule est en cellule A10, seul le contenu de la cellule A10 sera affecté lors du retour de valeur de ta fonction, tu n'as pas le droit dans le corp de ta fonction de modifier la cellule B10 par exemple. La fonction stoppera net lors de cette tentative (ce que j'ai cru lire plus haut dans un de tes messages et c'est aussi pourquoi Mercatog t'a demandé comment tu utilisais ta fonction ;))

++
Qwaz
10/02/2011, 12h31
hydredelerne

AAAaaaah... Je me disais bien qu'il y avait une "règle" que je ne connaissais pas.
Merci beaucoup !

Donc je n'ai pas de moyen d'afficher mon tableau ?
10/02/2011, 12h44
Qwazerty

C'est pas ce que j'ai dis, j'ai juste dis que tu pouvais pas le faire a partir de ta fonction en l'utilisant dans une formule.
Maintenant si tu expliques un peu la structure de ton fichier et a quel moment sur quel changement du contenu de ta feuille tu veux afficher ton tableau, il sera certainement possible de faire quelque chose.

Dans un tel cas, je pense qu'il faut utiliser l’évènement Change de ton onglet, contrôler que la cellule modifiée correspond à celle attendue (ou à une des cellules attendues), puis afficher ton tableau en fonction de la cellule modifiée