Discussion :

[Lighteux26]

Bonjour la communauté.

Dans une procédure j'utilise : Array(2, 2, 0, 0, 0)

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

[tototiti2008]

Bonjour,

Je suppose que la question est : comment remplacer mon Array Separateurs par un tableau renseigné par des données du tableau structuré DonneesTheme ?

Si c'est bien ça, avoir un aperçu du tableau structuré DonneesThemes nous aiderait à proposer un code qui lirait des données dedans

[Nain porte koi]

https://excel-downloads.com/threads/...rray.20086668/

[Lighteux26]

https://excel-downloads.com/threads/...rray.20086668/

N'ayant pas eu de réponse, je tente ici, on ne sais jamais.

Merci, Bonne journée.

[Lighteux26]

Bonjour,

Je suppose que la question est : comment remplacer mon Array Separateurs par un tableau renseigné par des données du tableau structuré DonneesTheme ?

Si c'est bien ça, avoir un aperçu du tableau structuré DonneesThemes nous aiderait à proposer un code qui lirait des données dedans

Bonjour

Merci pour la réponse.

Oui, a la base c'était cela, mais je pense changer de fusille d'épaule, pour que mon ami le remplissage soit plus simple, je vais passer par 1 colonne pour l'infos et la colonne d'aprés le nombre de saut.

Comme cela dans l'userform, il aura une liste déroulante pour modifier cela de 1 a 10.




Pour la structure de mon tableau structuré :



Et le résulta (Suivant le nombre que l'on renseigne dans la cellule du tableau structuré)

Ici, il y aura de renseigné

Infos1 = Manche 1
NbSautInf1 = 2

Infos2 = 1/3
NbSautInf2 = 2

Les autres infos = ""
Les autres NbSautInf = 0

Le resultat :



Merci

Bonne fin de journée.

Lelighteux26

[Nain porte koi]

N'ayant pas eu de réponse, je tente ici, on ne sais jamais.

L'énoncé disait

Le but est de cela est de mettre des saut de ligne paramétrable (Num Colonne et Nb saut) dans chaque cellule

Si "1, 2, 2, 3, 2"

Infos 1 & VbLf " Infos 2 & VbLf & VblF & Infos 3 & VbLf & VbLf & Infos 4 & VbLf & VblF & VbLf & infos 5

J'ai compris qu'il fallait mettre N VbLf entre "Infos 1" et Infos 2" etc etc
j'ai donc proposé d'utilise la fonction Rept pour mettre de 0 à X VbLf entre les textes, donc de répéter N fois le VbLf, mais il semblerait que ça ne soit pas ça ou que vous n'ayez pas compris ma proposition.
Il reste à récupérer les nombre de sauts de lignes dans les cellules au lieu d'utiliser l'array en dur dans le code VBA.

[Lighteux26]

L'énoncé disait
J'ai compris qu'il fallait mettre N VbLf entre "Infos 1" et Infos 2" etc etc
j'ai donc proposé d'utilise la fonction Rept pour mettre de 0 à X VbLf entre les textes, donc de répéter N fois le VbLf, mais il semblerait que ça ne soit pas ça ou que vous n'ayez pas compris ma proposition.
Il reste à récupérer les nombre de sauts de lignes dans les cellules au lieu d'utiliser l'array en dur dans le code VBA.

Oui c'était cela.

Tout se que j'ai pu tenter, ne fonctionnait pas au remplacement de ce qu'il y a entre parenthèse, soit des problèmes de incompatibilités, des interprétation des espaces, de format etc...

J'ai poussé même de pousser le vice a demander a CharGPT, lol

Et en discutant avec mon ami, qui me disait que de remplire, avec des chiffres un contrôle, il avait peur de se gourrer souvent, aux paramétrage, d'où le choix de passer sur cette nouvelle solution.

1 colonne infos et 1 colonne Saut de ligne, et l'userform avec liste déroulante.

L'idée lui a plus, car c'était visuel.

Voili, voila.

Merci pour votre réponse.

Bonne soirée, Le Lighteux