Message box

Bonjour à tous,

Je viens à vous car je ne trouve pas de solution à mon problème.

J'ai une feuille excel :FEUILLE INDEX (voir piece jointe) avec des valeurs.

Voici le but de ce fichier:

Je reçoit des palettes de produits et il faut que je vérifie que tout est là.

Chaque produit possède sont codic (sa référence).

Auparavant, j'avais un listing papier et je cocher a la main mais beaucoup trop long.

donc avec ce fichier, je copie la liste des produit que je doit recevoir (colonne C a I) puis au fur et a mesure que je déballe les palette, je saisis le codic de l'article que j'ai en main (dans la colonne A)

Le fichier est fait de façon à ce qu'en colonne J, le nombre de fois que j'ai saisis dans A le même codic se calcul.

Si la quantité saisis est différente de la quantité à recevoir, alors ERREUR s'affiche en H. Si la quantité saisis est égale à la quantité à recevoir, alors OK s'affiche en H.

Jusque là j'espère être clair.

Voici maintenant ce que j'ai besoin:

Dans la colonne I j'ai le nombre de commande client concernant le produit (colonne F).

Il faut que quand je saisis un codic en A, si il y a une commande client concernant ce produit, un POPUP s'affiche et me préviens afin d'isoler le produit dans un endroit réservé au commande client.

Comment puis je faire cela?

exemple avec la ligne 10:

APM PANAS (codic 3727718). il y a une commande client.

Donc quand je vais saisir ce codic dans la colonne A, un popup doit me dire "attention commande client".

j'espère être clair, car pour moi c'est évident, mais peut être pas pour vous.

Merci de votre aide.

Bon travaillage de neurone (lol)

Bonsoir,

Pas facile de plancher sur un fichier verrouillé...

Je suis sûr qu'avec une formule de MFC il y a moyen faire quelque chose... Mais un pro de la VBA te trouveras quelquechose pour ta msgbox.

Il y a un point sur lequel je peux t'aider c'est ta liste de codic... Lorsque tu la construis, tu peux la rendre dynamique (elle s'adapte au nombre de valeurs) plus de vide avant et après tes valeurs, surtout une fois une référence renseignée celle-ci ce retire de ta liste de choix.

A me redire, (surtout ton mot de passe, ou tu re-postes ton fichier sans MDP)

Cordialement,

Leakim

Leakim, merci pour ta réponse rapide.

J'ai remis le fichier déverrouillé en pièce jointe, désolé

Pourquoi pas pour la liste dynamique.

merci encore

Bonsoir

leakim a écrit :

Je suis sûr qu'avec une formule de MFC il y a moyen faire quelque chose..

Je suis parti dans ce sens

A vérifier

Pourquoi pas, mais ce qui me chagrine c'est qu'on va saisir presque 300 codics à la suite, sans forcement avoir un œil sur l'écran. Doù l'idée de la message box qui émet un son a l'affichage. A moins que tu a un moyen de faire emmètre un son si la ligne passe verte?

Merci encore

Re, avec une liste dynamique et mise à jour automatique selon les codics déjà renseignés.

En espérant que cela te donne un peu de confort, dans ton travail.

Cordialement,

Leakim

Edit: Salutations nocturnes, Banzai64

Bonjour

Toujours MEFC + Beep

Bonjour à vous,

En compilant, le travail de Banzai64 et le mien.

A nous redire,

Leakim

Bonjour à tous,

Merci à tous de votre collaboration.

Banzaï64, peut tu me dire comment tu as fait pour mettre le beep car travaillant sur Mac, je n'est pas le bip.

Sans doute que tu as indiqué un fichier son quelque part.

merci d'avance

Bonjour

tsegp a écrit :

comment tu as fait pour mettre le beep

C'est juste une instruction : Beep

A voir dans le code du module de la feuille : Clic droit sur l'onglet de la feuille --> Visualiser le code

Sur Mac je ne connais pas

Peut-être que quelqu'un pourra te le dire

Bonsoir,

Bonsoir Banzai64

Si tu n'as pas un Mac à 50 ans, tu as raté ta vie

Plus sérieusement, "Beep" est reconnu par le Mac Excel 2011.

Je regarderai plus tard ce sujet. Je n'ai pas acheté un Mac pour Excel

Patience. Cdlt

Bonsoir à tous,

J'ai travaillé un peux sur mon fichier,

j'ai une modif à faire mais j'arrive pas, concernant la msgbox:

Je part de ça:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Cel As Range

If Target.Count > 1 Then Exit Sub

If Not Intersect(Range("A5:A" & Rows.Count), Target) Is Nothing Then

Set Cel = Columns("F").Find(what:=Target, LookIn:=xlValues, lookat:=xlWhole)

If Not Cel Is Nothing Then

If Range("I" & Cel.Row) <> "" And Range("J" & Cel.Row) >= Range("I" & Cel.Row) Then

Beep

MsgBox "EMD", , "Attention"

End If

End If

End If

qui fonctionnais, mais je dois modifié comme suis:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Cel As Range

If Target.Count > 1 Then Exit Sub

If Not Intersect(Range("A5:A" & Rows.Count), Target) Is Nothing Then

Set Cel = Columns("CopieMU10!D").Find(what:=Target, LookIn:=xlValues, lookat:=xlWhole)

If Not Cel Is Nothing Then

If Range("CopieMU10!G" & Cel.Row) <> "" And Range("J" & Cel.Row) >= Range("CopieMU10!G" & Cel.Row) Then

Beep

MsgBox "EMD", , "Attention"

End If

End If

End If

Modification car les données se trouve dans une autre feuille (Feuille CopieMU10).

mais sa marche pas.

Pourquoi???

Bonsoir

Comme tu ne dis plus rien le Beep fonctionne

Essayes ce code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range

  If Target.Count > 1 Then Exit Sub
  If Not Intersect(Range("A5:A" & Rows.Count), Target) Is Nothing Then
    Set Cel = Sheets("CopieMU10").Columns("D").Find(what:=Target, LookIn:=xlValues, lookat:=xlWhole)
    If Not Cel Is Nothing Then
      If Sheets("CopieMU10").Range("G" & Cel.Row) <> "" And Range("J" & Cel.Row) >= Sheets("CopieMU10").Range("G" & Cel.Row) Then
        Beep
        MsgBox "EMD", , "Attention"
      End If
    End If
  End If
End Sub

Juste pour info quand tu places une macro dans un message utiles les balises "Code" en haut à gauche de la fenêtre d'édition

Sa ne marche pas, je n'est plus l'affichage de la msgbox

Bonjour

tsegp a écrit :

je n'est plus l'affichage de la msgbox

C'est peut-être normal

Fournis un fichier en indiquant ce qu'il faut avoir

Bonjour a tous,

Tout d abord merci de toute vos réponses, c'est vraiment sympa.

Pour mon problème de msgbox c'est bon, mais je cherche un truc:

J'ai besoin que quand je clic sur RESET, (qui efface la colonne codic), qu'une msgbox s'affiche. Mais cette msgbox en faite doit être le userform2 car j'ai besoin d'une grosse écriture.

Pouvez vous m'aider.

MERCIIIIIII

Bonjour

A voir

Attention aux nom de tes boutons : Le bouton annuler n'était pas le bon

Super, un grand merci,

mais je vais abuser un peux, tu saurais m'enlever la msgbox "je me suis trompé" lol

merci beaucoup

C'est bon j'ai trouvé.

merci encore

Bonjour

Supprimes la ligne : et c 'est tout

Désolé je n'avais pas tout lu

Est il possible de faire la fonction "validation de donnés" en vba car toujours un problème de taille des msgbox, je voudrais que :

si j'entre un "codic" qui ne figure pas dans la colonne F, l'affichage d'un userform s'affiche au lieu de la msgbox du système.

actuellement si j'entre un codic qui ne figure pas dans F, j'ai une msgbox système "CODIC NON PRESENT A LA MUT".

J'ai crée un UserForm4 et je souhaiterais que ce soit lui qui s'affiche.

Merci encore et encore