Trop de caractères de continuïté :(

[Halffy]

Bonsoir le Forum,

Me voici de retour car je suis limité par un nombre de caratères de continuïté > à 24 en VBA; et donc Excel ne veut pas de mon 24ème "_" 🙁 (d'autant qu'à terme j'en aurais eu plus de 100 😱)

Savez-vous comment contourner le problème, à tout hazard... s'il vous plait?
Pour plus de clareté, je vous ai joint un morceau de ma macro, pour de plus amples explications sur le pourquoi du comment.

Avec, par avance tous mes Remerciements à tous pour votre aide.
Je vous souhaite un bon week-end, & précise qu'il n'y a aucun caractère d'urgence 😀
Encore Merci, Halffy/.

 

[PMO2]

Re : Trop de caractères de continuïté 🙁

bonjour,

Peut-être

Sub aa()
Dim Inclure As String


Inclure = "AE 11600,FT 11608,KV 11651,PSV 11613,PT 11650,PT 11652,PV 11650,PV 11652,TT 11650,"
Inclure = Inclure & "FIL 11606,PAH 11648,PDT 11651,PSE 11606,PSV 11606,PT 11649,"
Inclure = Inclure & "FT 11643,HV 11691,PG 11643,PSV 11607A,PSV 11607B,PSV 11608,PT 11642,PT 11645A,PT 11645B,TT 11642,XV 11643A,XV 11643B,"
Inclure = Inclure & "FI 11640A,FI 11640B,PT 11644A,PT 11644B,XV 11644A,XV 11644B,XV 11650A,XV 11650B,XV 11651A,XV 11651B,XV 11656,ZF 11658A,ZF B11658B,"
Inclure = Inclure & "LE 11715 / 1,LE 11715 / 2,LX 11715,PCV 11712,TT 11634,"
Inclure = Inclure & "GAE 0301-05,LT 11640,LV 11640,LXH 11641,PG 11638,PG 11641,PSV 11609,PT 11640,PV 11640,TSV 11619,TT 11641,"
Inclure = Inclure & "FAL 11614,FAL 11615,FAL 11616,FAL 11617,PT 11655,PT 11656,PT 11657,TT 11666,TT 11667,TT 11668,TT 11670,TY 11666TY 11667,TY 11668,"
Inclure = Inclure & "LE 11653A,LE 11653B,LE 11654A,LE 11654B,LX 11653A,LX 11653B,LX 11654A,LX 11654B,XV 11652A,XV 11652B,"
Inclure = Inclure & "FI 11658,FI 11659,FI 11660,FI 11668,FT 11620,FT 11621,FT 11622,FT 11624,FT 11625,FT 11626,FT 11627,FT 11641,FV 11626,FV 11631,FV 11641,"
Inclure = Inclure & "PG 11660,FT 11651,FT 11652,FT 11653,FT 11654,FT 11655,FT 11656,FT 11669,FT 11750,FV 11651,FV 11652,FV 11653,FV 11654,FV 11655,FV 11656,FV 11750,PG 11639,PG 11660,PSV 11621,TT 11649,TT 11651,TT 11652,TT 11653,TT 11655,TT 11656,TT 11658,TT 11659,TT 11663,TV 11663,"
Inclure = Inclure & "F 1172,PG 11664A,PG 11664B,PG 11665A,PG 11665B,PT 11659,PT 11662,XV 11654,XV 11655,XV 11657,XV 11659,XV 11660,XV 11661,"
Inclure = Inclure & "FT 11672,FV 11666A,FV 11666B,LE 11655A,LE 11655B,LX 11655A,LX 11655B,PT 11665B,TT 11701,XV 11663A,XV 11663B,XV 11664A,XV 11664B,XV 11665A,XV 11665B,"
Inclure = Inclure & "FI 11657,FI 11671,GAE 0301-07,GAE 0301-08,GAE 0301-12,GAE 0301-13,PDV 11663A,PDV 11663B,PDV 11678,PT 11661A,PT 11661B,PT 11678,TSV 11612,TW 11665,XV 11653A,XV 11653B,"
Inclure = Inclure & "FI 11698,LAH 11647,LAH 11657,LXL 11659,PAH 11647A,PDI 11699C,PDS 11699D,PG 11671,PG 11699A,PG 11699B,PT 11672,TG 11697,TG 11698,TH 11699,"
Inclure = Inclure & "LAL 11649A,LAL 11649B,PAL 11670A,PAL 11670B,PG 11666A,PG 11666B,PG 11667A,PG 11667B,PSV 11641A,PSV 11641B,"
Inclure = Inclure & "AE 11600-1,FT 11680,FT 11690,FV 11690,PG 11679,PG 11688,PSV 11615,PT 11790,PV 11656,TE 11654,TSV 11620,TT 11682,TT 11688,TT 11689,TV 11682,XV 11680,XV 11682,"
Inclure = Inclure & "A3 V1152,AE 11600-2,FT 11681,FT 11681B,FT 11689,LT 11710,LV 11710,LXHH 11711,PG 11686,PG 11687,PSV 11616,PSV 11644,PT 11680A,PT 11710,PV 11710,TSV 11643,TT 11680,XV 11683,"
Inclure = Inclure & "PG 11689B,FT 11682,FT 11683,FT 11684,FT 11685,FV 11682,FV 11684,FV 11685,GAE 0301-04,PDI 11682,PDT 11682,PG 11689A,PSV 11622,PT 11683,TT 11685,"
Inclure = Inclure & "AE 11600-2,FT 11666,FT 11670,FT 11686,FT 11687,FT 11787,FT 11790,FV 11681,FV 11687,FV 11689,FV 11787,FV 1186,PSV 11623,PSV 11628,PT 11675,PV 11675,TT 11686,XV 11629,XV 11688,"
Inclure = Inclure & "LH 11664,LH 11667,LHH 11665,LHH 11668,PG 11613,PG 11614,PG 11615,PSV 11629,PT 11611,PT 11612,PT 11616,PV 11611,TE 11613,TE 11616,TG 11612,TG 11615,TI 11613,TI 11616,TT 11614,XV 11667,"
Inclure = Inclure & "LH 11670,LHH 11671,PCV 11646A,PG 11603,PG 11617,PG 11618,PG 11622,PSV 11630,PSV 11631,PSV 11632,PT 11619,PT 11621,PT 11623,TG 11618,TG 11619,TG 11621,TG 11645,TT 11617,TT 11620,TT 11622,TT 11643,VH 11660,XV 11670,"
Inclure = Inclure & "LG 11623,PDT 11626,PG 11605,PG 11624A,PG 11624B,PG 11627,PG 11646B,PT 11629,PT 11646B,TC 11623A,TG 11625,TG 11627,TT 11626,TT 11640D,"
Inclure = Inclure & "FXL 11611,FXL 11613,PG 11602,PG 11606,PSV 11635,PSV 11636,TG 11602,TG 11644A,TG 11644B,TG 11644C,TG 11644D,TG 11644E,TG 11644F,TG 11644G,TG 11644H,TT 11628,TV 11622,TV11628.1,TV 11628.2,TV 11643,"
Inclure = Inclure & "FT 11695,FV 11695,GAE 0301-02,LL 11693A,PCV 11628,PCV 11697A,PDI 11694B,PDT 11677,PDT 11694A,PG 11676,PG 11680B,PG 11681B,PG 11697B,PSV 11642,PT 11681A,SE 11652,TE 11679.1,TE 11679.2,TE 11679.3,TG 11677B,TG 11678B,TT 11677A,TT 11678A,TT 11679.1,TT 11679.2,TT 11679.3,VEX 11651,"
Inclure = Inclure & "FG 11697,FH 11694,FI 11694,PDI 11691B,PDT 11691A,PG 11696B,PG 11698A,PG 11698B,PG 11698C,PT 11692,PT 11693,PT 11696A,TCV 11687,TG 11692B,TT 11692A,"
           
'Si TextBox1 a pour Valeur "AE 11600, ...", alors
 If InStr(Inclure, TextBox1.Value & ",") <> 0 Then
 Image2.Visible = True 'Appareil-Photo Démasquée
 Else 'Sinon
 Image2.Visible = False 'Appareil-Photo Masquée
 End If

End Sub

Cordialement.

PMO
Patrick Morange

 

[Halffy]

Re : Trop de caractères de continuïté 🙁

Bonsoir PMO2,
Un seul mot: MERCI 😉
Formidablement "Simpliste" finalement, puisque la ligne suivante = la ligne précédente & la ligne en cours... mais Formidable tout de même.
Félicitations, bonne soirée & Bon week-end,
Halffy, au plaisir /.

 

[Banzai64]

Re : Trop de caractères de continuïté 🙁

Bonjour

Une idée comme ça
Si liste dans une colonne (triée/non triée) et un simple Find ?
Plus simple pour modifier la liste

 

[Halffy]

Re : Trop de caractères de continuïté 🙁

Bonjour Banzai64,
Merci pour ta participation /
Mais je souhaite garder ma gestion initiale, pour les raisons suivantes:
Pour faire simple, je fais correspondre des photos avec des références instrum sur plan PID; et vue mes quelques trois milles références... j'ai trouvé plus simple ma gestion personnelle de la "chose".
Voili, voilou, bon week-end et merci Banzai64.
Cordialement, Halffy /.