XL 2013 (RESOLU) Modification Manuelle et changement Automatique

[chaelie2015]

Bonsoir Forum,
Je reviens vers vous avec mon fichier (usine à Gaz)) dans la feuille 'BdD CEO', plus précisément dans les tableaux (Zone_Lot_...).
Prenons l'exemple du fichier attaché, en considérant le cas du 'Lot_01'. Si je modifie MANUELEMENT la cellule de la dernière colonne (attribution) de 'Attribution après alignement' à 'Refus d'alignement', je souhaite passer AUTOMATIQUEMENT ensuite au 'Job 06'. Cependant, cela dépend de la condition du nombre de lots maximum (cellule D5). Si 'Job 06' est saturé, nous passerons AUTOMATIQUEMENT au lot suivant, à condition qu'il ne soit pas saturé par rapport à l'ensemble des lots, bien sûr.


Edit : Prenons le 'Lot 02' comme un autre exemple, c'est une illustration pertinente. Imaginons que pour le 'JOB 12', il refuse de s'aligner. Dans ce cas, je modifie la cellule pour indiquer "Refus d'alignement." Dans cette situation, je passe automatiquement à la ligne suivante (JOB 1), à condition qu'elle ne soit pas saturée (c'est-à-dire qu'elle doit être inférieure ou égale à la cellule D5). Supposons qu'elle soit saturée (par exemple, elle a déjà pris le 'LOT 7'), alors j'affiche automatiquement dans la cellule 'Nombre de lots saturés' et je passe automatiquement au suivant (JOB 8). Dans le cas où JOB 8 n'a rien pris, nous lui attribuons automatiquement alors "Attribution après alignement" s'il accepte, et ainsi de suite.

J'espère que cette explication est plus claire.
A+

 

[job75]

Bonsoir chaelie2015,

L'inconvénient de faire des modifications manuelles c'est qu'elles seront effacées si l'on clique sur RAFRAICHIR ou si l'on modifie D2 D4 ou D5.

Je n'irai donc pas plus loin.

Bonne nuit.

 

[chaelie2015]

Bonsoir chaelie2015,

L'inconvénient de faire des modifications manuelles c'est qu'elles seront effacées si l'on clique sur RAFRAICHIR ou si l'on modifie D2 D4 ou D5.

Je n'irai donc pas plus loin.

Bonne nuit.

Bonsoir JOB75, le forum
Malheureusement, cela n'est pas réalisable.?
Je te remercie quand même.
A+

 

[job75]

Bonjour chaelie2015, le forum,

Ce que l'on peut faire c'est tester par double-clic les cellules situées sous "Refus d'alignement" ou "Attribution après alignement" :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range, n%
Set c = Target(1).EntireColumn.Find("alignement", , xlValues, xlPart)
If c Is Nothing Then Exit Sub
If Target.Row <= c.Row Then Exit Sub
Cancel = True
Target(1, -2).Name = "Nom" 'nom défini
ThisWorkbook.Names.Add "col", Target.Column 'nom défini
n = [SUMPRODUCT((BE7:MM56=Nom)*(LEFT(BH7:MP56,8)="Attribut")*(COLUMN(BH7:MP56)<>col))]
MsgBox IIf(n < [D5], "Vous pouvez utiliser '" & [Nom] & "' comme attributaire à la place de '" & c(1, -2) & "'", "'" & [Nom] & "' ne peut pas être attributaire")
End Sub

En fonction du résultat on remplira la cellule manuellement avec "Nombre de lots saturés" ou "Attribution après alignement".

Edit : avant de tester il faut ôter la protection de la feuille...

A+

 

[job75]

Pour éviter d'avoir à déprotéger la feuille on peut utiliser une simple macro lancée par un raccourci clavier :

Sub Test()
'se lance par les touches Ctrl+T
Dim c As Range, n%
Set c = ActiveCell.EntireColumn.Find("alignement", , xlValues, xlPart)
If c Is Nothing Then Exit Sub
If ActiveCell.Row <= c.Row Then Exit Sub
ActiveCell(1, -2).Name = "Nom" 'nom défini
ThisWorkbook.Names.Add "col", ActiveCell.Column 'nom défini
n = [SUMPRODUCT((BE7:MM56=Nom)*(LEFT(BH7:MP56,8)="Attribut")*(COLUMN(BH7:MP56)<>col))]
MsgBox IIf(n < [D5], "Vous pouvez utiliser '" & [Nom] & "' comme attributaire à la place de '" & c(1, -2) & "'", "'" & [Nom] & "' ne peut pas être attributaire")
End Sub

 

[chaelie2015]

Bonjour JOB,
Je tiens à t'exprimer ma gratitude pour ton idée ingénieuse et la solution exceptionnelle que tu as partagées. Afin d'améliorer davantage cette solution, j'envisage d'intégrer une info-bulle dans les cellules de la colonne "Attribution". Cela permettrait aux utilisateurs de savoir qu'ils doivent sélectionner la cellule suivante et utiliser la combinaison de touches Ctrl+T en cas de modification manuelle.
MERCI

 

[job75]

Une info-bulle ? Il suffit d'afficher une MsgBox, placez dans la macro Worksheet_Change :

If Target(1) = "Refus d'alignement." Then MsgBox "Les cellules sous ""Refus d'alignement."" peuvent être testées par la combinaison de touches Ctrl + T"

 

[chaelie2015]

Re
C'est parfait, merci beaucoup, Job.
A+

 

[ChTi160]

Bonjour le Fil !
Bien que la solution ait été donnée
Une question :
Dans la feuille "BdD CEO" dans chaque tableau "Lot_1" à "Lot_50" tu ne récupères en feuille "Recap" qu'une seule Ligne ? Est-ce à dire qu'il n'y aura qu'une seule Ligne qui contiendra soit "Attribution par écart." ou "Attribution après alignement."
Bonne Journée
Jean marie

 

[job75]

Bonjour ChTi160,

Est-ce à dire qu'il n'y aura qu'une seule Ligne qui contiendra soit "Attribution par écart." ou "Attribution après alignement."

Bien sûr mais comme rien n'interdit les modifications manuelles on pourrait en mettre plusieurs par erreur.

A+