Rendre un array dynamique
Bonjour la communauté.
Dans une procédure j'utilise : Array(2, 2, 0, 0, 0)
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
| '------------------------------------------------------
'---------------------- MANCHE 1 ----------------------
'------------------------------------------------------
Case 1
countTheme(1) = countTheme(1) + 1
If countTheme(1) <= NbChoixTheme(1) Then
Separateurs = Array(2, 2, 0, 0, 0) ' Définit le nombre de vbLf après chaque info
valeurConcatenee = RecupererValeursListesDeDonnees(1, Separateurs)
With WS_ExportMaxiQuizz.Cells(cellTheme(1), 1)
'.Value = "Manche 1" & vbLf & valeurConcatenee & vbLf & "Thème : " & WS_Choix.Cells(i, 14)
.Value = valeurConcatenee & "Thème : " & WS_Choix.Cells(i, 14)
.WrapText = False
End With
NomTheme(1) = WS_Choix.Cells(i, 14).Value
End If
'------------------------------------------------------
'---------------------- MANCHE 2 ----------------------
'------------------------------------------------------
Case 2
countTheme(2) = countTheme(2) + 1
If countTheme(2) <= NbChoixTheme(2) Then
Separateurs = Array(2, 2, 0, 0, 0) ' Définit le nombre de vbLf après chaque info
valeurConcatenee = RecupererValeursListesDeDonnees(2, Separateurs)
With WS_ExportMaxiQuizz.Cells(cellTheme(2), 1)
'.Value = "Manche 1" & vbLf & "2/3" & vbLf & valeurConcatenee & vbLf & "Thème : " & WS_Choix.Cells(i, 14)
.Value = valeurConcatenee & "Thème : " & WS_Choix.Cells(i, 14)
.WrapText = False
End With
NomTheme(2) = WS_Choix.Cells(i, 14).Value
End If |
Cet array, me sert a mettre des sauts de lignes entre chaque infos.
Exemple Case 1 pour le thème 1 : Array(2, 2, 0, 0, 0)
Infos + 2 saut de lignes, infos 2 + 2 sauts de ligne , infos 3 pas de saut, infos 4 pas de saut, infos 5 pas de saut.
Comme cela va être amené a changé (Mon collègue change d'avis suivant ces quizz), je pensais passer par des cellules (1 par case) case représente le numéro de thème
Cette infos est dans un Tableau structuré "DonneesTheme" colonne 12 "Nb de saut" et le numéro de thème est dans la colonne 3 "N° de thème".
Les cellules pour les Nb de saut, sont renseignées a l'aide d'un autre UserForm avec un textBox "Txt_NbSaut", comme ceci :
.Cells(1, Tbl_DonneesTheme.ListColumns("Nb de saut").index).Value = Txt_NbSaut.Value
Est-ce possible de faire cela?
J'espère avoir était le plus explicite possible et dans le cas contraire n'hésitez pas a me le dire.
Je vous remercie par avance.
Bonne nuité, LeLighteux26