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

Message dans une box

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion aziz
  • 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
A

aziz

XLDnaute Occasionnel
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
 

Pièces jointes

Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
Re : Message dans une box

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

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

VB: 
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 🙂
 
Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
Cliquez pour agrandir...

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

VB: 
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 🙂
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Message dans une box

Bonjour, le Fil, le Forum,

Peut-être ainsi :

VB: 
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 🙂
 
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

G
  • Question Question
XL 2010 Copier coller une image dans le corps de message via gmail
Réponses
8
Affichages
867
gwenn49
G
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
19 20 21
Réponses
303
Affichages
72 K
NONO14
N
  • Question Question
Microsoft 365 Macro pour renvoyer la valeur par rapport à un intervalle
Réponses
6
Affichages
588
sylvanu
N
  • Question Question
Microsoft 365 Navigation avec boutons d'une Listbox dans un Userform
Réponses
1
Affichages
809
Oneida
L
  • Résolu(e)
Microsoft 365 VBA double clic et saisie de cellule avec texte et horaire
Réponses
4
Affichages
671
Le novice
L
C
  • Question Question
XL 2021 case à cocher dans ListView impacte une cellule de feuille
Réponses
1
Affichages
988
fanch55
P
  • Résolu(e)
XL 2016 Besoin d'ajouter une fonctionnalité d'envoi d'e-mails pour deux personnes dans un outil 5S
2
Réponses
15
Affichages
2 K
Pauuul35
P
  • Résolu(e)
Autres (RESOLU) AFFICHER MESSAGE DANS TEXTBOX SOUS CONDITION
Réponses
7
Affichages
862
chaelie2015
T
  • Question Question
Microsoft 365 Insérer une image à fond transparent à format png dans un Userform
2
Réponses
18
Affichages
4 K
patricktoulon
L
  • Question Question
XL 2016 Barre de recherche Userform pour modifier formulaire
Réponses
2
Affichages
1 K
Laurent_7
L
H
  • Question Question
XL 2019 Trouver le nom d’une colonne et reporter les erreurs dans un tableau de bord
Réponses
7
Affichages
886
Homero18
H
  • Question Question
Microsoft 365 Automatiser résultat en fonction de saisies et enregistrer les résultats en PDF
Réponses
0
Affichages
771
samimi94
L
  • Question Question
XL 2016 Création message box
Réponses
5
Affichages
899
sylvanu
C
  • Résolu(e)
XL 2019 Recherche une valeur dans une feuille et renvois à la valeur adjacente
Réponses
3
Affichages
824
mapomme
A
  • Résolu(e)
Microsoft 365 Formule Excel pour modifier la "référence" dans une colonne
Réponses
2
Affichages
806
AlexiaC
A
D
  • Question Question
XL 2010 Enregistrement automatique dans un tableau avec une txt_box
Réponses
1
Affichages
766
Dylan67
D
K
  • Question Question
Google Sheets Aide pour l'élaboration d'une macro sous google sheet
Réponses
2
Affichages
1 K
Kiritora
K
G
  • Résolu(e)
XL 2016 Définir Boucle pour afficher plusieurs tableaux dans des textbox sur une userform (ou sur une feuille Excel)
Réponses
6
Affichages
2 K
gaby.jvx
G
M
  • Question Question
Microsoft 365 Petit problème ajout ligne à un tableau
Réponses
4
Affichages
794
Mathieu35190
M
T
  • Question Question
XL 2016 calcul nb de ticket par semaine et insérer formule dans formule
Réponses
3
Affichages
2 K
Trapipo
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…