Microsoft 365 Transformation d'un tableau ?

[antoine333]

Bonjour,

Je souhaite transformer un tableau qui à cette forme :

	x	y	z	x	y	z
a	1	2	3	4	5	6

en:

	x	y	z
a	1	2	3
a	4	5	6

avec une formule ou en VBA si possible

Quelqu'un à t-il une idée ?

MERCI

 

[MP59]

Bonjour antoine333,
avec Power Query
Cordialement
MP59

 

[sylvanu]

Bonsoir Antoine,
En PJ un essai avec un peu de VBA. Simple voire simpliste mais fait le job en moins de 0.3s sur mon PC.

 

[antoine333]

Bonsoir,
Parfait! Merci pour votre rapidité ! les deux solutions me vont parfaitement .

MERCI!

 

[sylvanu]

Je suppose qu'ensuite il y aura des tris, ils peuvent être inclus dans la macro.

 

[antoine333]

Non après je sors un tcd, mais est-il possible de convertir automatiquement, c'est à dire au moment ou il à des nouvelles valeurs, au lieu de cliquer sur le bouton.

 

[sylvanu]

Bonsoir,
Ce serait une bien mauvaise idée. A chaque nouvelle entrée vous perdriez 0.3s à 0.5s, ce serait insupportable.
Par contre on peut lancer dès que vous sélectionnez la feuille 2, et vous n'avez plus de boutons. Voir PJ.

 

[antoine333]

Oui c'est mieux comme ça, merci! j'ai un autre problème (je profite de vos compétences tant que je vous tiens ), j'avais créé une macro pour actualiser un Excel tous les 30 min mais le problème est qu'il s'ouvre tout seul quand je suis sur un autre Excel ..., si vous avez une meilleure solution pour actualiser, je ne suis pas contre^^.
(L'actualisation est pour que les personnes qui utilisent cet Excel n'aient pas à toucher le document)
voici l'Excel

 

[sylvanu]

Si c'est juste un problème d'affichage, alors tentez ça pour voir :

Sub Tempo()
Application.ScreenUpdating = False
ActiveWorkbook.RefreshAll
Application.OnTime TimeValue("7:02:00"), "Tempo"
.......
Application.OnTime TimeValue("18:32:00"), "Tempo"
ActiveWindow.WindowState = xlMinimized
End Sub

On fige l'écran et à la fin on minimise la feuille.
Par contre il est possible que ce fichier reste actif et non le nouveau. A tester.

 

[antoine333]

Ça à tout l'air de marcher, il ne s'est pas rouvert!
Merci pour votre aide précieux!

 

[antoine333]

Petit souci au moment où je l'ouvre il se réduit de suite, (certaines personnes l'ouvre et ne le trouve pas, alors qu'il est juste réduit --')

 

[soan]

Bonjour antoine333, sylvanu, le fil,

essaye en remplaçant : ActiveWindow.WindowState = xlMinimized

par : ActiveWindow.WindowState = xlNormal

---

tu peux aussi essayer en mettant :

ActiveWindow.WindowState = xlMaximized



soan

 

[sylvanu]

Oups !
Effectivement il se minimalise toujours .... même quand c'est lui qui est censé être actif.
Et je ne vois pas de solution simple pour contourner le problème.
Solution "très batarde" : à chaque exécution de tempo toutes les 30 min, un message demande si on doit ou non afficher la feuille.
En PJ un essai, avec un message toutes les 30 min. J'avoue que c'est biscornu comme proposition.

Bonjour Soan,
Le problème n'est pas là.
On a deux classeur XL qui tournent dont l'un à une macro qui s'exécute toutes les 30 min, et un second sur lequel l'utilisateur travaille.
Donc toutes les 30min ce classeur devient actif, or on veut continuer à travailler sur l'autre. Or à ce moment c'est le premier fichier qui s'affiche.
D'où l'idée de finir la macro par un xlMinimized pour rester sur l'autre classeur.
Le problème est que quand on veut travailler sur ce premier fichier alors à la première exécution on a le classeur qui se minimalise. Oups.
Question : Comment savoir si un classeur est affiché parce que l'utilisateur le veut, ou parce qu'une macro vient de s'exécuter ?

 

[antoine333]

C'est exactement ça..
Il n'existe pas un "si première exécution alors xlMaximized" ?

 

[sylvanu]

Ca ne changerai pas grand chose car comment décider que l'application ensuite doit être minimaliser ou non ? Comment savoir que l'utilisateur travaille sur ce fichier ou non ?
Peut être une solution avec cette PJ. Il y a un bouton; L'utilisateur choisit le mode Invisible ou normal.
Quand le mode est invisible on fait xlMinimized , sinon xlNormal.
La variable est initialisée en "normal" dans ThisWorkbook à l'ouverture du fichier.
C'est peut être la solution ... la moins tordue.