XL pour MAC (RESOLU) Macro Pour Contrôler cohérence cellules

[luno123]

Bonjour,

J'ai un contrôle récurrent que j'effectue sur des données importées (onglet BASE) de notre ERP. Des soucis d'affectation peuvent exister. Pour un contrôle rapide et efficace `, je souhaiterais:
- 1. j'alimente l'onglet BASE
- 2. Je lance un contrôle automatique qui vérifiera à partir de la feuille REFERENCE, que toutes les lignes de la colonne C (Analytique Tiers Articles) de BASE ont été codifiées selon la feuille REFERENCE. Par exemple si dans BASE, une ligne de 1ENERGIE comporte en ANALYTIQUE TIERS ARTICLES autres que les codifications PRAMBOPO; PRINBOGC; PRAMBBCH; PRRCBOGC; PRSCBBCH , toute la ligne sera colorée en rouge.
Ainsi, je n'aurai qu'à sélectionner toutes les lignes en rouge pour modifier l'erreur.
NB: il faudrait se garder la possibilité de rajouter ou supprimer des lignes dans la feuille REFERENCE sans perturber la macro.

Merci d'avance pour votre aide précieuse.

Luno

 

[Columbo]

Bonjour Bruno, Luno,
Le code que Bruno a fait hier était top et répondait bien au besoin.
Le nouveau code fonctionne bien également bien et répond au besoin également.
@luno, j'ai fais un copier coller du code suivant et je l'ai mis dans un nouveau module
Sub test()
Set dico = CreateObject("Scripting.Dictionary")
With Feuil2
bas = .[B65000].End(3).Row
For k = 2 To bas
tx = .Cells(k, 1) & .Cells(k, 2)
dico.Item(tx) = dico.Item(tx)
Next
End With
For k = 2 To [B65000].End(3).Row
tx = Cells(k, 2) & Cells(k, 4)
If Not dico.Exists(tx) Then Range("A" & k & ":E" & k).Interior.Color = 49407
Next
Range("A1:E" & bas).AutoFilter Field:=3, Criteria1:=RGB(255, _
192, 0), Operator:=xlFilterCellColor
End Sub
@Bruno, je n'ai pas la connaissance VBA (tu as du le voir sur le code que j'ai pondu sur le post #22) pour décortiquer le code.

 

[youky(BJ)]

Nouveau fichier avec déclaration des variables
Bruno

 

[luno123]

Quelle ligne est en jaune?

Set dico = CreateObject("Scripting.Dictionary")

 

[luno123]

Nouveau fichier avec déclaration des variables
Bruno

J'ai une erreur: la ligne en jaune du dernier fichier envoyé par bruno:
Set dico = CreateObject("Scripting.Dictionary")

 

[youky(BJ)]

Je vois que tu es sur Mac c'est sans doute pour ça.
Je viens de regarder sur le web et oui pas sur Mac . . . . dommage.
Luno, console toi tu as ma première version.
Bruno

 

[luno123]

Je vois que tu es sur Mac c'est sans doute pour ça.
Je viens de regarder sur le web et oui pas sur Mac . . . . dommage.
Luno, console toi tu as ma première version.
Bruno

Pas de souci Bruno, la version d'hier m'allait très bien. Les limites de mac ou les caprices des pc...

 

[luno123]

Bonjour Bruno et Columbo,

J'ai bien peur que le souci relevé par l'inspecteur plus haut ne soit pas résolu. En effet, j'ai voulu me servir du fichier ce matin et je note quelque anomalies.
Quand je lance la macro, elle me souligne en jaune des lignes qui ne devraient pas être présentes. Exceptées celle ci-dessous , pour laquelle j'ai mis ok

le reste ne devait pas être en jaune car la codification existe bien dans l'onglet REFERENCE

Merci d'avance pour votre aide précieuse

Luno

 

[youky(BJ)]

Désolé de mon retard,
Il y a eu mélange des macros.
Voici qui doit être bon (reste 1 seule ligne jaune)
Bruno

 

[luno123]

Désolé de mon retard,
Il y a eu mélange des macros.
Voici qui doit être bon (reste 1 seule ligne jaune)
Bruno

Bonjour Bruno,

Merci beaucoup c'est impeccable.

 

[youky(BJ)]

@Columbo ,
>>>Quand je vais dire ça à ma femme
C'est seulement maintenant que je tilt . . HIHI!
Bruno