Message dans une box

[aziz]

Bonsoir à tous et au forum

Lors de ma saisie et si je me trompe , Je souhaiterai afficher un message
"Attention le lot ne correspond à votre produit"
dans mon exemple le code produit est les deux dernier chiffre : 09
et apres mon message d'alerte je souhaite effacer le numéro erroner
pour ensuite le ressaisir


Merci pour votre aide

 

[JCGL]

Re : Message dans une box

Bonjour à tous,

dans mon exemple le code produit est les deux dernier chiffre : 09

Peux-tu en dire un peu plus ?

A+ à tous

 

[aziz]

Re : Message dans une box

Bonsoir
dans mon fichier le numéro de lot doit toujours finir par 09
ex: 2014080709
si on saisie 2014080710 je souhaite avoir un message qui me dit qu'il y a une erreur
j'espere avoir été clair.
merci pour ton aide

 

[JCGL]

Re : Message dans une box

Bonjour à tous,

Un essai avec :



A+ à tous

Edition : Bisous ++ à 00

 

[DoubleZero]

Re : Message dans une box

Bonjour, aziz, le Forum, bonjour + bises, JCGL 😀,

Un essai avec ce code, placé dans le module de l'onglet :

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    Application.EnableEvents = False
    If c.Row > 1 And c.Column = 2 Then
        If Right(c, 2) <> 9 Or Len(c) <> 10 Then c.Clear: MsgBox "Attention le lot ne correspond à votre produit": c.Select
    End If
    Application.EnableEvents = True
End Sub

A bientôt 🙂

 

[aziz]

Re : Message dans une box

bonjour à vous deux et merci pour votre aide
J'ai repris la soluce de doublezero qui fonctionne très bien,
mais contre quand j'essaye de l'appliqué dans mon fichier Monty
j'ai une erreur de compil.
Merci encore pour votre aide

 

[natorp]

Re : Message dans une box

Bjr Aziz, JCGL et DoubleZero

Aziz, voici le fichier corrigé, un seul "Private Sub Worksheet_Change"

Cordialement, Gérard

 

[aziz]

Re : Message dans une box

Bonjour Natorp,
je souhaite conserver mon controle de doublon en colonne A
et rajouter cette vérification en colonne B.

Merci pour votre aide
Voici le code :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

'colonne à "surveiller" (ici colonne A)
If Target.Column = 1 And Target.Count = 1 Then

' pour vérifier si la saisie n'existe pas déjà dans les lignes précédentes
' If Application.WorksheetFunction. _
' CountIf(Range(Cells(2, 1), _
' Cells(Target.Row, 1)), Target.Value) > 1 Then

' pour vérifier si la saisie n'existe pas déjà dans la colonne
If Application.WorksheetFunction. _
CountIf(Range("A:A"), Target.Value) > 1 Then

MsgBox "Numéro déjà utilisé -- Try again"
Target.Value = ""
Target.Select
End If
End If
End Sub
-------------------------------------------------------
Private Sub Worksheet_Change(ByVal c As Range)
Application.EnableEvents = False
If c.Row > 1 And c.Column = 2 Then
If Right(c, 2) <> 9 Or Len(c) <> 10 Then c.Clear: MsgBox "Attention le lot ne correspond à votre produit": c.Select
End If
Application.EnableEvents = True
End Sub

 

[DoubleZero]

Re : Message dans une box

Re-bonjour, bonjour, natorp,

je souhaite conserver mon controle de doublon en colonne A
et rajouter cette vérification en colonne B

Pour le cumul de deux Private Sub Worksheet_Change, peut-être ainsi :

Private Sub Worksheet_Change(ByVal c As Range)
    Application.EnableEvents = False
    If c.Row > 2 And c.Column = 1 And c.Count = 1 Then
        If Application.WorksheetFunction.CountIf(Range("A:A"), c.Value) > 1 Then c.Clear: MsgBox "Numéro déjà utilisé -- Try again": c.Select
    End If
    If c.Row > 1 And c.Column = 2 Then
        If Right(c, 2) <> 9 Or Len(c) <> 10 Then c.Clear: MsgBox "Attention le lot ne correspond à votre produit": c.Select
    End If
    Application.EnableEvents = True
End Sub

A bientôt 🙂

 

[aziz]

Re : Message dans une box

Merci doublezero
ça fonctionne nickel

 

[aziz]

Re : Message dans une box

Bonjour à tous et au Forum, Hello Double zero
J'ai une autre question ?
La formule fonctionne très bien. Lorsque ma saisie est erronée j'ai donc mon ou mes messages d'erreurs
et la je souhaiterai que ma cellule controlée conserver la même mise en forme:
ARIAL 7 centrée Horizontalement et Verticalement.

Merci pour ton aide
bonne Journée

 

[natorp]

Re : Message dans une box

Bjr aziz

Je me permets une réponse à la place de DoucleZero :

remplacer c.clear par c.clearcontents

Cordialement, Gérard

 

[aziz]

Re : Message dans une box

Bonjour Natorp
j'ai remplacer mais cela ne fonctionne pas.

 

[DoubleZero]

Re : Message dans une box

Bonjour, le Fil, le Forum,

Peut-être ainsi :

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    Application.EnableEvents = False
    If c.Row > 2 And c.Column = 1 And c.Count = 1 Then
        If Application.WorksheetFunction.CountIf(Range("A:A"), c.Value) > 1 Then c.Clear: MsgBox "Numéro déjà utilisé -- Try again": c.Select
    End If
    If c.Row > 1 And c.Column = 2 Then
        If Right(c, 2) <> 9 Or Len(c) <> 10 Then c.Clear: MsgBox "Attention le lot ne correspond à votre produit": c.Select
    End If
    With Range("b3:b" & Cells(Rows.Count, 2).End(xlUp).Row): .Font.Size = 7: .VerticalAlignment = xlCenter: .HorizontalAlignment = xlCenter: End With
    Application.EnableEvents = True
End Sub

A bientôt 🙂

 

[natorp]

Re : Message dans une box

Re,

Ci-joint le fichier corrigé

Gérard