XL 2016 Vérification cellule base de données

razorlight · 19 Mars 2020

Bonjour,

Novice en macro, j'ai tenté plusieurs choses qui se sont révélées infrucutueuses.
Voici le contexte, j'ai une feuille avec un tableau regroupant un grand nombre d'informations. Sur les 6000 lignes, il y a une colonne (colonne I) où est inscrit un code.
Sur une autre feuille il y a un tableau (un référentiel) avec la liste des codes autorisés.

La macro que je cherche à créer servirait à vérifier que les informations renseignées dans la colonne I soient dans le tableau de la deuxième feuille. En cas de "condition fausse", la cellule se colorerait en rouge et dans la colonne d'à côté le terme "CODE ERRONE" s'afficherait par exemple.

Je joins l'exemple sur lequel je travaille, mais avec une macro vierge, je ne sais plus par quel bout prendre la solution.

Pourriez vous m'aider svp ?

pierrejean · 19 Mars 2020

Bonjour

A tester

Staple1600 · 19 Mars 2020

Bonjour le fil, pierrejean

Ma façon de faire

VB:

Sub test()
Dim f As Worksheet, ff As Worksheet, i&
Set f = Sheets("Referentiel")
Set ff = Sheets("Principal")
Application.ScreenUpdating = False
f.Range(f.Cells(3, "B"), f.Cells(Rows.Count, "B").End(3)).Name = "CODES"
For i = 2 To ff.Cells(Rows.Count, "C").End(3).Row
If IsError(Application.Match(ff.Cells(i, "C"), [CODES], 0)) Then
ff.Cells(i, "C").Interior.Color = vbRed
ff.Cells(i, "D") = "CODE ERRONE"
End If
Next
End Sub

Pré-requis
J'ai mis en forme la feuille Referentiel
(Pas de doublons dans les codes, pas de cellule fusionnées et/ou de retour à ligne)

razorlight · 19 Mars 2020

Merci beaucoup Pierrejean, votre solution fonctionne !

Staple, la soution foncitonne aussi et sans modification de la mise en forme !
Merci beaucoup également !

XL 2016 Vérification cellule base de données

razorlight

XLDnaute Nouveau

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

razorlight

XLDnaute Nouveau

Discussions similaires