Microsoft 365 contrôle planning

[@lea]

Bonjour l'équipe,

Voila j'ai mon planning qui se rempli par rapport à mes commandes mais j'aimerai pouvoir contrôler et surtout limiter les quantités pour ne pas prêter plus de stock que je n'ai déjà.
Dans l'idéal ca serait même bloquer la saisie si la quantité dépasse avec un message du style "quantité trop importante sortante" tout ca par rapport à une date… Je sais pas si je suis claire. N'hésitez pas à me demander des éclaircissement. Merci par avance. Mon fichier étant lourd je ne parviens pas à le mettre en PJ...

 

[danielco]

Bonjour,
Mets-le sur OneDrive et partage un lien.
Daniel

 

[@lea]

Bonjour,
Mets-le sur OneDrive et partage un lien.
Daniel

Voici le lien : https://drive.google.com/file/d/1fcZEtrOI8ogI8LSOQtdhWeNTa77b28tZ/view?usp=drive_link
Merci

 

[TooFatBoy]

Bonjour,

Génial... et comment on fait pour y accéder ??? Il faut créer un compte chez monsieur Google ?
Sérieusement, il y a suffisamment d'hébergeurs gratuits pour éviter cet hébergement alakon !

Dans ta dernière question ton fichier passait largement. Que lui est-il arrivé ?

 

[@lea]

Dans ta dernière question ton fichier passait largement. Que lui est-il arrivé ?

Je l'ai développé et le soucis est qu'il passe pas en PJ....

 

[danielco]

Bonjour,
J'ai mis le classeur sur un site de partage accessible à tous :
https://www.transfernow.net/dl/20240228r0vrHQAZ
Daniel

 

[danielco]

Essaie :

https://www.transfernow.net/dl/20240228UV1N67gE

Daniel

 

[@lea]

Essaie :

https://www.transfernow.net/dl/20240228UV1N67gE

Daniel

Bonjour,
Merci
Je n'arrive pas à voir comment vous avez fait...

 

[danielco]

Bonjour,

Je vais mettre des commentaires dans le code.

Daniel

 

[Phil69970]

Bonjour à tous

@@lea
Ton fichier est complètement bugué
Même vide il fait 12 Mo
Tu ajoutes une feuille vide et tu supprimes toutes les autres feuilles et tu enregistres le fichier (donc vide) et tu verras qu'il fait 12Mo !!!
Et même si tu supprimes la totalité du code donc il reste un fichier complètement vide et sans VBA de 12 Mo !!!

 

[TooFatBoy]

Même vide il fait 12 Mo

Exact !

En fait ça vient de 4 images png (2 gobelets et 2 assiettes) nommées image2, image3, image4 et image10.

 

[danielco]

Bonjour,

Indépendamment de la remarque de Phil69970, voici le code commenté :

Sub OKCMDE()
    Dim Sh As Worksheet, Typ As String
'on assigne le nom Sh à la feuille "Commandes"
    Set Sh = Sheets("Commandes")
    With Sheets("enregistrement commande")
    Sh.Rows("5:5").Insert Shift:=xlDown, _
        CopyOrigin:=xlFormatFromLeftOrAbove
'copies de enregistrement commande" vers "Commandes"
      .Range("B8").Copy Sh.Range("B5")
      .Range("D8").Copy Sh.Range("C5")
      .Range("F8").Copy Sh.Range("D5")
      .Range("H8").Copy Sh.Range("E5")
      .Range("J8").Copy Sh.Range("F5")
      .Range("B12").Copy Sh.Range("G5")
      .Range("D12").Copy Sh.Range("I5")
      .Range("F12").Copy Sh.Range("J5")
      .Range("H12").Copy Sh.Range("K5")
      .Range("J12").Copy Sh.Range("L5")
'Appels à la macro ChercheStock
  'ChercheStock vérifie l'existence du stock
      ChercheStock .Range("B16"), Sh.Range("M5")
      ChercheStock .Range("D16"), Sh.Range("N5")
      ChercheStock .Range("F16"), Sh.Range("O5")
      ChercheStock .Range("H16"), Sh.Range("P5")
      ChercheStock .Range("J16"), Sh.Range("Q5")
      ChercheStock .Range("B20"), Sh.Range("R5")
      ChercheStock .Range("D20"), Sh.Range("S5")
      ChercheStock .Range("F20"), Sh.Range("T5")
      ChercheStock .Range("H20"), Sh.Range("U5")
      ChercheStock .Range("J20"), Sh.Range("V5")
      ChercheStock .Range("B24"), Sh.Range("W5")
      ChercheStock .Range("D24"), Sh.Range("X5")
      .Select
          Application.CutCopyMode = False
      .Range("B24,B20,D20,F20,H20,J20,J16,H16,F16,D16,B16,B12,F12,H12,J12,J8,H8,F8,D8,B8").ClearContents
    End With
End Sub
Sub ChercheStock(C As Range, D As Range)
  Dim Stock As Variant
  With Sheets("stock&tarifs")
    ' cheche le stock dans la plage C17:C28 à partir du libellé
    Stock = Application.VLookup(C.Offset(-2), .[A17:C28], 3, 0)
    'si le stock est suffisant, la commande est validée
    If C <= Stock Then
      D = C
    Else
      MsgBox (C.Offset(-2) & " quantité trop importante sortante")
    End If
  End With
End Sub

 

[TooFatBoy]

En fait ça vient de 4 images png

Voici donc le fichier, sans les quatre images, qui du coup fait moins de 166 ko.

 

[TooFatBoy]

Je l'ai développé et le soucis est qu'il passe pas en PJ....

C'est quoi ces 4 images (qui en plus ne sont pas très agréables à voir ) ?