XL 2013 Réduire mon code

D

Dim.Reichart

XLDnaute Occasionnel

• 5 Août 2019

• #2

Bonjour,
Il y a parfois 2 label sur la meme ligne, parfois 3, pourquoi?

Personnellement, je pense que j'essayerais avec une boucle basée sur i=N° de label, qui calcule l'ecart gauche selon le modulo de i/3, et l'écart haut selon l'entier de i/3. Je ne sais pas si je suis très clair.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 5 Août 2019

• #3

Bonjour @maval,

Y a t il une trame logique ou c'est au hasard ?
Si tu ne nous aides pas, on ne pourra pas t'aider...
Un fichier serait le top.

edit : bonjour @Dim.Reichart

 

Dernière édition: 5 Août 2019

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 5 Août 2019

• #4

Bonjour Dim Reichart, mapomme

Tu dit dit qu'Il y a parfois 2 label sur la meme ligne, parfois 3 ou je ne voit pas?

mapomme, Y a t il une trame logique

Merci à vous

 

Vote positif 0 Vote négatif

D

Dim.Reichart

XLDnaute Occasionnel

• 5 Août 2019

• #5

Et bien lorsque je regarde les coordonnées des label Left et Top, je vois bien qu'il y en a 2 sur la ligne .top=234, 3 sur la ligne .top=270, 3 sur la ligne .top=306, 2 sur la ligne .top=342 etc...

Je vois aussi que l'écart d'une ligne a l'autre est toujours de 36, et que l'ecart gauche est toujours 18, 168 et 306. Lorsqu'il n'y a que deux label sur la ligne, il semblerait que ce soit celui du milieu qui disparaisse.

Donc je peux dire que .left = index((18,168,306), modulo((N° label-1)/3))
et que .top = ent((N°label-1)/3)*36 + 198

Ca reste à traduire en formulation correcte VBA, mais l'idée est la.

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 5 Août 2019

• #6

Re,

Je te remercie je vais essayé

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 6 Août 2019

• #7

Bonjour

Après des heures de tentatives je n’ai pas réussis

Merci

 

Vote positif 0 Vote négatif

D

Dim.Reichart

XLDnaute Occasionnel

• 6 Août 2019

• #8

Et toujours pas de fichier anonymisé?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Août 2019

• #9

Bonjour maval, Dim.Reichart, mapomme,

VB:

Dim L, T, i%
L = Array(18, 306, 18, 168, 306, 18, 168, 306, 18, 168, 18, 336, 18, 144, 2012)
T = Array(234, 234, 270, 270, 270, 306, 306, 306, 342, 342, 378, 378, 414, 414, 414)
For i = 4 To 18
    Me("Label" & i).Left = L(i - 4)
    Me("Label" & i).Top = T(i - 4)
Next

A+

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 6 Août 2019

• #10

Bonjour Job

Nickel

Je vous remercie beaucoup

 

Dernière édition: 6 Août 2019

Vote positif 0 Vote négatif