Vérification d'une colonne avant action

Bonjour,

Je suis actuellement bloquer sur un bout de code sans trouvé la solution.

J'aimerais verrouiller l'encodage d'une production en fonction du poids de chaque palette.

Je m'explique:

• L'utilisateur saisie le poids de chaque palette dans la colonne B du fichier. le poids doit etre entre 340 et 468kg. Il y a actuellement une MFC pour mettre les cellules en rouge si le poids n'est pas bon, mais cela ne bloque rien.
• Une fois tous les poids saisie, l'utilisateur clique sur un bouton pour basculer le total dans un autre fichier (dans le fichier d'exemple, la copie se fait sur la meme page, dans une autre celulle)

Ce que je n'arrive pas a faire, c'est de verifier que tout les poids soit conforme, et si un poids n'est pas bon, la copie ne doit pas se faire.

Avec le code que vous trouverez sur le fichier, la boucle indique bien les erreurs, mais n'empèche pas la copie.

J'espère avoir été assez clair

Merci d'avance pour l'aide que vous pourrez m'apporter.

Cordialement,

Fonbs

Bonjour Fonbs, bonjour le forum,

Essaie comme ça :

        MsgBox "Erreur sur la palette : " & Cell.Offset(0, -1): Exit Sub

ThauThème a écrit :

Bonjour Fonbs, bonjour le forum,

Essaie comme ça :

        MsgBox "Erreur sur la palette : " & Cell.Offset(0, -1): Exit Sub

Bonjour,

Cette solution ne fonctionne pas, je l'avais déjà essayer , Si le mauvais poids est sur la 1er palette, ca marche, mais sinon, ca encode quand meme !

Merci de la réponse rapide en tout cas.

Fonbs

Bonjour,

si j'ai bien compris :

    If Application.Min([B:B]) < 340 Or Application.Max([B:B]) > 468 Then
        MsgBox "non conforme"
    Else
        ' on copie
    End If

eric

Bonjour le fil, bonjour le forum,

Cette solution ne fonctionne pas, je l'avais déjà essayer ,

Oui tu as tout à fait raison ! Si j'avais pris la peine de tester j'aurais évité de dire des bêtises... La solution d'Éric me semble plus correcte.

eriiic a écrit :

Bonjour,

si j'ai bien compris :

    If Application.Min([B:B]) < 340 Or Application.Max([B:B]) > 468 Then
        MsgBox "non conforme"
    Else
        ' on copie
    End If

eric

Bonjour,

Juste impeccable, ca fonctionne nickel ! Merci beaucoup !

Bonne journée a vous,

Cordialement,

Fonbs