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

Staple1600

XLDnaute Barbatruc

• 19 Mai 2019

• #16

Bonjour ma pomme

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

VB:

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

 

Vote positif 0 Vote négatif

Gribouille83

XLDnaute Nouveau

• 19 Mai 2019

• #17

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Mai 2019

• #18

Re,

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

 

Vote positif 0 Vote négatif

Gribouille83

XLDnaute Nouveau

• 19 Mai 2019

• #19

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Mai 2019

• #20

Re

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

VB:

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

 

Vote positif 0 Vote négatif

Gribouille83

XLDnaute Nouveau

• 19 Mai 2019

• #21

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

 

Vote positif 0 Vote négatif

Gribouille83

XLDnaute Nouveau

• 19 Mai 2019

• #22

Staple1600 à dit:

Re,

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

VB:

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 😉

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Mai 2019

• #23

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

 

Vote positif 0 Vote négatif

Gribouille83

XLDnaute Nouveau

• 19 Mai 2019

• #24

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

 

Pièces jointes

• Ma Collection de TIMBRES.xls

  1.7 MB · Affichages: 12

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Mai 2019

• #25

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

 

Pièces jointes

• Ma Collection de TIMBRES-Chti160.xls

  1.7 MB · Affichages: 12

Vote positif 0 Vote négatif

Gribouille83

XLDnaute Nouveau

• 20 Mai 2019

• #26

ChTi160 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 21 Mai 2019

• #27

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

 

Vote positif 0 Vote négatif

Gribouille83

XLDnaute Nouveau

• 21 Mai 2019

• #28

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

 

Vote positif 0 Vote négatif