Discussion :

[hydredelerne]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

2.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[mercatog]

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

[hydredelerne]

Voici la fonction qui appelle tableau() :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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

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

Sélectionner tout - Visualiser dans une fenêtre à part

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

Autant faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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