Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Réalisation d'un WMS pour rangement caisse entrepot

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ted1057
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

ted1057

XLDnaute Occasionnel
Bonjour à la communauté,

Je travaille actuellement sur un outil permettant le rangement de caisse dans un entrepôt et la recherche de ces caisses de façon aisée.
Mon outil se décompose en 2 étapes.
- Enregistrement des caisses
- Recherche de la localité des caisses

Enregistrement des caisses :
Les caisses portent un numéro à 7 chiffres. Il se peut qu'il y est plusieurs caisses portant le même numéro à ranger. De plus, les caisses peuvent être de type moyenne ou grosse. Dans ce cas, le rangement ne peut se faire que dans les racks dédiés à ce type de caisse.
=> Je n'ai pas encore réfléchi à cette étape

Recherche de la localité des caisses :
L'objectif est en tapant un numéro le fichier indique la localité des caisses ainsi que le type de caisse. J'ai réussi à sortir un numéro mais dés qu'il y a plusieurs numéro identiques, il ne me sort qu'un seul numéro. Ma macro est directement dans ma feuille principal.


Auriez vous des pistes de recherches à ce sujet?

Un fichier joint à ma demande
 

Pièces jointes

Trier par date Trier par votes
Instruction FindNext

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Emplacement As Range, reportLine As Integer, FirstEmplacement As String
If Target.Address = "$O$5" Then
Sheets("Principal").Range("P5:Q36").Clear
With Sheets("Principal").Range("f3:L36")
        Set Emplacement = .Find(Sheets("principal").Range("o5").Value, LookIn:=xlValues)
        If Not Emplacement Is Nothing Then
                reportLine = 5
                FirstEmplacement = Emplacement.Address
                Do
                         With Sheets("Principal").Cells(reportLine, 16)
                            .Value = Sheets("Principal").Cells(Emplacement.Row, 5).Value & " - " & Sheets("Principal").Cells(2, Emplacement.Column).Value
                            .Interior.Color = Emplacement.Interior.Color
                        End With
                        Set Emplacement = .FindNext(Emplacement)
                        reportLine = reportLine + 1
                Loop While Not Emplacement Is Nothing And Emplacement.Address <> FirstEmplacement
        'Else
               
        End If
End With
End If

End Sub
 
Vote positif 0 Vote négatif
Bonjour la communauté,

Je me permet de revenir vers vous car après plusieurs jours d’essais je ne trouve pas la bonne formule pour ranger mes caisses dans leurs racks.

Je dois ranger des caisses selon 2 formats « Grosse caisse » et « Moyenne caisse ». Code couleur utilisé dans le fichier (Vert pour Grosse caisse et Bleu pour Moyenne caisse).

Le rangement s’effectue dans différents racks. Il peut y avoir des racks avec un mix de caisse grosse et moyenne caisse.

Le rangement des caisses doit tenir compte du poids de celles-ci => classification poids en fonction des hauteurs dans l’onglet Racks.

J’ai essayé de changer un code mais j’ai un message d’erreur à chaque fois qu’il troue une case vide. Je n’ai pas de message d’erreur quand la macro ne trouve pas de cellule vide.

Emplacement pour ranger des grosses caisses
[F3 :F7] + [H3 :H7] + [J3 :J7] + [L3 :L7] + [F23 :F27] + [J23 :J27]

Emplacement pour ranger des moyennes caisses
[F10 :F18] + [H10 :H18] + [J10 :J18] + [L10 :L18] + [H20 :H28] + [L20 :L28] + F8 + H8 + J8 + L8 + F28 + J28

Auriez vous des pistes ou des morceaux de code à me proposer afin d’avancer dans mon sujet ?

Merci par avance
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

O
  • Résolu(e)
XL 2019 Gestion de métrage restant sur une bobine
2 3
Réponses
35
Affichages
2 K
OlivierS
O
G
  • Question Question
Microsoft 365 Reconstitution stock a date - besoin d'aide
Réponses
0
Affichages
607
GregH
G
T
  • Question Question
XL 2010 formule Excel pour chercher automatiquement le solde du bon de caisse
Réponses
0
Affichages
1 K
Tarekmosrati
T
N
  • Question Question
XL 2021 numérotation CheckBox
5 6 7
Réponses
90
Affichages
6 K
nano33320
N
  • Question Question
XL 2021 Aide pour recherche intuitive
2
Réponses
16
Affichages
1 K
jeff1494
POWERQUERY :: Importation d'un fichier texte .csv et sélection dynamique entre deux dates
Réponses
1
Affichages
520
oguruma
E
  • Question Question
XL 2013 Excel VBA - Problème lien hypertexte pour ouvrir un dossier
2
Réponses
19
Affichages
2 K
TooFatBoy
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
834
AtTheOne
G
  • Résolu(e)
Microsoft 365 Faire une collection de collection en VBA
2
Réponses
25
Affichages
2 K
dysorthographie
  • Question Question
XL 2021 Ouverture d'un PDF à l'aide d'un bouton clic et pour multi utilisateur PC
Réponses
3
Affichages
570
AugusteP
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
701
job75
V
  • Résolu(e)
XL 2021 Complétion d'un tableau automatisée
Réponses
9
Affichages
1 K
VincentH.DR
V
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
984
Nico2978
C
  • Résolu(e)
Microsoft 365 Identifier une cellule dans une colonne en fonction d'un numéro identifier dans une autre cellule avec VBA
Réponses
2
Affichages
1 K
Carine35
C
A
  • Question Question
Autres Tableau Excel pour l'organisation d'un tournoi.
Réponses
3
Affichages
6 K
gouge
G
K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
1 K
Dranreb
G
  • Question Question
XL 2016 Ecrire une boucle pour afficher ensemble dans un userform, toutes ses textbox complétées par la boucle! Voir mon code et photos feuilles joints !
Réponses
8
Affichages
1 K
vgendron
XLS : Lecteur Audio pour ChipTunes
Réponses
0
Affichages
480
Lu76Fer
C
  • Question Question
Microsoft 365 Transférer des données d'un tableau excel à un autre
Réponses
4
Affichages
1 K
clem!
C
W
  • Question Question
Microsoft 365 Forcer la selection multiple sur tous les segments TCD/GCD d'un classeur
Réponses
1
Affichages
1 K
danielco
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…