Microsoft 365 Tri automatique

nike780 · 11 Juillet 2023

Bonjour,

Nous allons organiser un loto géant et afin de nous organiser au mieux, nous avons créé un fichier excel avec plusieurs onglets :
- le premier nous permet d'y inscrire toutes les demandes avec les achats et les choix de placement (colonne J), est-il possible d'attirer notre attention si la personne placée est déjà rattachée à une autre personne pour pouvoir la rattacher directement à la première personne, cela nous aidera à bien placer les joueurs dans la salle ?
- le second onglet est à disposition des caisses pour distribuer les achats des joueurs, il faudrait qu'il soit trié automatiquement à chaque nouvelle inscription.
- le troisième onglet est à disposition des personnes chargées d'effectuer le placement dans la salle, il faudrait lui aussi qu'il soit trié automatiquement à chaque nouvelle inscription.

J'espère que cela ne demandera pas trop de travail, je sais qu'en VBA il est possible de faire plein de chose, peut être que ma demande n'est pas réalisable.

En attendant de vos nouvelles.

Cdt

sylvanu · 11 Juillet 2023

Bonjour Nike,
Toutes ces formules posent problème pour le tri.
Aussi en PJ, j'efface tout, j'y met les formules, les transforme en valeurs puis fait le tri.
Les macros s'exécutent automatiquement lorsqu'on sélectionne la feuille Caisse ou Placement.
Avec par ex pour Caisse :

VB:

Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    [A4:G504].ClearContents
    [A4:A504].FormulaLocal = "=si(Inscription!A5="""";"""";Inscription!A5)"
    [B4:B504].FormulaLocal = "=Inscription!C5"
    [C4:C504].FormulaLocal = "=Inscription!F5"
    [D4:D504].FormulaLocal = "=Inscription!G5"
    [E4:E504].FormulaLocal = "=Inscription!H5"
    [F4:F504].FormulaLocal = "=Inscription!I5"
    [G4:G504].FormulaLocal = "=Inscription!L5"
    [A4:G504] = [A4:G504].Value
    DL = [A65500].End(xlUp).Row
    Range("A4:G" & DL).Resize(DL - 3).Sort key1:=[A4], order1:=xlAscending, Header:=xlNo
End Sub

Par contre j'espère que vos formules sont correctes sinon il vous faudra rentrer dans le VBA.

Je n'ai fait que quelques vérifs ponctuelles, donc bien vérifier.

sousou · 11 Juillet 2023

Bonjour Nike
Pour répondre à la première question
lorsque tu entre un nom dans la colonne j une vérification s'éffectue

nike780 · 12 Juillet 2023

sousou à dit:
Bonjour Nike
Pour répondre à la première question
lorsque tu entre un nom dans la colonne j une vérification s'éffectue

Bonjour,
que se passe t'il après la vérification, je ne vois rien qui s'affiche ?
Cdt

sousou · 12 Juillet 2023

Re les couleurs des cellules concernées
une petite modif.

nike780 · 12 Juillet 2023

sousou à dit:
Re les couleurs des cellules concernées
une petite modif.

Ca fonctionne super bien, est-il possible de mettre ce code VBA dans le fichier que m'a fait Sylvanu, comme ça j'aurai un fichier correct.

sousou · 12 Juillet 2023

il te suffit de copier les macro de la feuille inscription et module 3 dans le fichier de sylvanu

sylvanu · 12 Juillet 2023

Bonsoir,
Dans votre fichier la macro événementielle Worksheet_Change de Sousou est dans la feuille Placement, alors qu'elle concerne la feuille Inscription.
De plus cette macro appelle la macro "attache" qui est absente, elle doit être dans un module.
Voir PJ. J'ai recopié les deux macros de Sousou à leur emplacement correct.

nike780 · 13 Juillet 2023

Bonjour,
Un grand merci à Sousou et Sylvanu pour votre aide.
Cdt

Microsoft 365 Tri automatique

nike780

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

sousou

XLDnaute Barbatruc

Pièces jointes

nike780

XLDnaute Junior

sousou

XLDnaute Barbatruc

Pièces jointes

nike780

XLDnaute Junior

Pièces jointes

sousou

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

nike780

XLDnaute Junior

Discussions similaires