MsgBox sur référence déjà existante

Version imprimable

11/07/2018, 11h47
jaihna

MsgBox sur référence déjà existante

Bonjour à tous,

J'ai une petite requête, concernant une macro à mettre en place.

J'ai un fichier Excel, en colonne C j'ai des n° de lot, je voudrais qu'il y ait une box qui s'ouvre en indiquant "N° déjà existant", une fois que la personne à rentrer un N° dans la cellule.

Du coup je ne sais plus comment faire, ça fait très longtemps que je n'ai plus utilisé VBA, donc si une âme bien charitable pouvait me venir en aide ça serait super sympa.

Bonne journée à tous et merci d'avance.

Bonjour Jainha, bonjour le forum,

Peut-être comme ça (à mettre dans le composant de la feuille où tu veux que ça agisse) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
 
If Target.Column <> 3 Then Exit Sub 'si le changement a lieu ailleurs que dans la colonne 3 (=> colonne C), sort de la procédure
If Target.Value = "" Then Exit Sub 'si la cellule est effacée, sort de la procédure
DL = Cells(Application.Rows.Count, "C").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne C
For I = 1 To DL 'boucle sur toutes les lignes I de la première à DL
    'condition : si le nouveau Nº de lot édité existe déjà (convertie en majuscule pour autoriser tous les cas de figure)
    If UCase(Cells(I, "C").Value) = UCase(Target.Value) Then
        MsgBox "Ce Numéro de lot existe déjà !"
        Target.Value = "" 'efface le doublon
        Target.Select 'sélectionne la cellule éditée
        Exit Sub 'sort de la procédure
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
End Sub

11/07/2018, 13h20
joe.levrai

Bonjour,

sans VBA, via l'outil de validation des données :

1) sélectionner l'intégralité de la colonne C
2) Menu DONNEES >> Validation des données
3) Dans l'onglet option de la validation des données :
- Autoriser : Personnalisé
- Cocher : Ignorer si vide
- Formule : =NB.SI(C:C;C1)=1
4) Dans l'onglet Alerte d'erreur :
- Titre : Erreur de Saisie
- Message d'erreur : Numéro de lot déjà existant !

Et voilà
11/07/2018, 13h44
jaihna

Super les 2 fonctionnent très bien...

MErci beaucoup je vais choisir la méthode VBA. :ptdr:

Bonne journée à tous ! ;)
11/07/2018, 13h45
joe.levrai

Donc, si un utilisateur n'active pas les macros, ta mécanique tombe à l'eau et il pourra saisir des doublons

A toi de voir, quand on a une fonctionnalité Excel, il est préférable de l'exploiter au maximum, et de passer en VBA quand nativement rien n'est satisfaisant
11/07/2018, 13h51
Menhir

Comme joe.levrai, je pense que la solution utilisant la Validation de données est la plus simple et la plus souple à mettre en place.

@ Thautheme : je n'ai pas testé ton code mais je pense qu'il ne va pas fonctionner tel qu'il est car le Worksheet_Change se déclenche après que la valeur de la cellule ait été modifiée. Donc il va forcément trouvé la cellule qui vient d'être saisie.
Il faudrait modifier le If ainsi :

Code:

If Cells(I, "C").Value = Target.Value And Target.Row <> I Then
11/07/2018, 15h45
Thautheme

Bonjour le fil, bonjour le forum,

Oui c'est exact Menhir ! Autre solution a mon erreur :

Code:

DL = Cells(Application.Rows.Count, "C").End(xlUp).Row - 1 'définit l'avant dernière ligne éditée DL de la colonne C