Bonjour à tous,
Je souhaite à partir d'une macro vérifier que les données des cellules d'une plage de données (TabloT) existent bien dans une autre plage de données (tabloD) contenue dans une autre feuille excel.
Si c'est n'est pas le cas, une msgbox se déclenche pour indiquer que les données sont incorrectes.
Le code ci-dessous fonctionne, cependant, j'aimerai faire une boucle et éviter dans ma conditionnelle de faire and [...] tabloD(3,1) ...... sachant que ma plage données fait 10 000 lignes !
Mais je n'arrive pas à créer une 2ème boucle sur le même principe que la 1ère.
Je vous remercie pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub Vérif() tabloD = Sheets("Données").Range("A1:A100000") tabloT = Sheets("Tableau").Range("A7:D" & Sheets("Tableau").Range("A" & Rows.Count).End(xlUp).Row) For i = 1 To UBound(tabloT, 1) If tabloT(i, 1) = 2 Then If tabloT(i, 4) <> tabloD(1, 1) And tabloT(i, 4) <> tabloD(2, 1) _ And tabloT(i, 4) <> tabloD(3, 1) Then MsgBox "Le contenu de la cellule A" & i + 6 & " est incorrect." End If End If Next i End Sub![]()
Partager