XL 2013 Suite à une liste mettre cette liste dans un tableau avec for To Next

[Gribouille83]

bonjour toutes et à tous

avant il existait l'instruction DATA, et c'était pratique.
après le mot DATA on mettait une liste de mots séparés par une virgule et on pouvait mette l'ensemble dans un tableau avec
bien sur l'instruction DIM
est-ce possible,
y a t'il une autre possibilité?

exemple : une lise des signes astrologiques et en fonction du choix sortir le bon signe

je vous remercie de m'aider

bonne journée à toutes et à tous

 

[Staple1600]

Bonjour ma pomme

Je respecte ton instruction et fait dont acte de déclaration de salutation en passant en mode modification

Sub Sans_Boucle_ALA_Verticale()
' version pour mapomme qui préfère la langue de JBP ;)
Dim Tableau
Tableau= Split("N? C²Année²N? T²Type²Valeur²S/taxe²Libell?²Couleur²Neuf²Obli²Ligne", "²")
[A1:A11] = Application.Transpose(Tableau)
End Sub

 

[Gribouille83]

ma version ne connait pas l'instruction Split
erreur de compilation
Nbre d'arguments incorrect ou affectation de propriété incorrect
je passe par ne boucle car je n'utilise pas toujours la totalité de la ligne titre

 

[Staple1600]

Re,

Gribouille83
Quelle est ta version d'Excel?
(Tu n'es pas sur Windows peut-être mais sur Mac?)

 

[Gribouille83]

je suis PC et j'utilise EXCEL 2007
pourquoi une boucle...
parfois j'utilise la totalité des titres, et en fonction de mes restits j'occulte certaines colonnes
Merci de m'aider

 

[Staple1600]

Re

Gribouille83
Est-ce que cette macro plante sur ton Excel 2007?
(C'est juste une macro de test, rien d'autre)

Sub Test_Split()
Dim vArrA, vArrB
vArrA = Array(1, 2, 3, 4, 5)
vArrB = VBA.Split("1 2 3 4 5")
MsgBox UBound(vArrA) & Chr(13) & UBound(vArrB), vbInformation, "Affiche Ubound de vArrA et vArrB"
MsgBox vArrA(UBound(vArrA))
MsgBox vArrB(4)
End Sub

 

[Gribouille83]

ta macro fonctionne
question, la partie en rouge fonction super bien, j'ai voulu faire pareil avec l'autre et j'ai un message d'erreur
"ERREUR de Compilation... Impossible d'affecter à un tableau"
la partie marin sera affichée dans une inputbox avec devant un nombre de 1 à 15 et individuellement sera récupéré dans la restit
je coule de plus en plus

Dim marin(15) As Variant
Dim libellé()
Dim p As Byte
Dim titre(11) As Variant
Dim noms()
Dim i As Byte
marin = Array("d'Ager", "de BEAUJARD", "de BEQUET", "de BRIART", "de CHEFFER", "de CIAPPA", "de COCTEAU", "de DECARIS", "de DULAC", "de GANDON", "de la libération", "de LAMOUCHE", " de BECQUET", "de St-Estève", "de l'Europe")
noms = Array("N° C", "Année", "N° T", "Type", "Valeur", "S/taxe", "Libellé", "Couleur", "Neuf", "Obli", "Ligne")
For i = LBound(noms) To UBound(noms)
titre(i) = noms(i)
Next
For p = LBound(marin) To UBound(marin)
libellé(p) = marin(p)
Next

 

[Gribouille83]

Re,

Gribouill83
Au cas, où il faille mettre les titres en colonne
Ma dernière macro modifiée pour ce faire

Sub No_Loop_But_Vertically_Baby()
Dim tablo: tablo = Split("N? C²Année²N? T²Type²Valeur²S/taxe²Libell?²Couleur²Neuf²Obli²Ligne", "²")
[A1:A11] = Application.Transpose(tablo)
End Sub

PS: Si tu as des questions sur mes syntaxes, elles sont les bienvenues

merci, ta solution me plait, je sais que je l'utiliserai au moment venu

 

[Staple1600]

Re

Il est temps
Il est temps à nouveau
Il est temps (ne crois-tu pas?) de joindre un fichier Excel en guise d'exemple qui nous servirait de bouée pour nous éviter, nous aussi de couler

Pour joindre, cette Lumière Tabulée (je parle du classeur ) qui éclairera notre chemin, il te suffit de cliquer sur:
Joindre des fichiers

 

[Gribouille83]

voila mon fichier de ma collection de timbres
j'avance à petite vitesse, je n'ai pas votre savoir...
Merci

 

[ChTi160]

Bonjour Gribouille83
Bonjour le Fil ,le Forum
une avancée !
Pas tout testé !
variables non déclarées correctement .... etc
Bonne journée

 

[Gribouille83]

Bonjour Gribouille83
Bonjour le Fil ,le Forum
une avancée !
Pas tout testé !
variables non déclarées correctement .... etc
Bonne journée

Merci ChTi160
effectivement je ne sais pas déclaré mes variables
pourquoi certaines sont As Byte et d'autres As Integer
merci
maintenant je pourrais faire mon tableau et utiliser différemment les noms des "Marianne"
merci

 

[ChTi160]

Bonjour Griboulle83
Bonjour le fil ,le Forum
pour ce qui est des variables , il te faut rechercher sur le Net ou via la Touche F1
Tu y trouveras les explications.
Cela ne se fait pas au hasard .
n'hésite pas si besoin
Bonne journée
jean marie

 

[Gribouille83]

merci J-Marie
je sais que le site est super et toujours de bon conseil
à +
Marcel