Macro déterminer numéros compris dans des tranches de numéros

Bonsoir,

Pour mieux vous expliquer mon problème, je joins un fichier Excel à ce sujet, représentant à peu près celui que j’ai actuellement (sans données confidentielles).

A partir de ce fichier, j’aimerais savoir s’il est possible, à l’aide de macros VBA, de déterminer si le serial number (colonne 2 dans la feuille « Fichier Data ») se trouve dans les tranches de serial (présentes dans les colonnes 2 et 3 de la feuille « Tranche serial »).

Le but étant de supprimer les lignes non concernées par les tranches de serial.
Je précise que j’aimerais que cette requête s’effectue tant qu’il y a un serial dans la colonne B de la feuille « Fichier Data », et tant qu'il y a des lignes avec des tranches de serials dans la feuille "tranche serial".

Je me torture l’esprit depuis quelques jours, impossible de trouver une solution, je suis encore débutante en VBA.

Je vous remercie par avance de l’aide que vous pourrez m’apporter !!!
N'hésitez pas à revenir vers moi si je ne suis pas claire.

Bien cordialement,

Marine

Bonjour
Si j'ai bien compris le probleme, ceci devrait alors faire cela

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub rirette() Dim cell As Range, Present As Range, Tranche As Range Dim r As Integer   For Each cell In Sheets("Fichier data").Range("b2:b" & Sheets("Fichier data").[b65000].End(xlUp).Row) With Sheets("Tranche serial") For Each Tranche In .Range("b2:b" & .[b65000].End(xlUp).Row) r = Tranche.Row   If Tranche < cell And cell < Tranche.Offset(0, 1) Then GoTo suivant Else If r = .[b65000].End(xlUp).Row Then 'cell.EntireRow.Delete ' supprime la ligne si le serial nest pas trouve cell.Interior.ColorIndex = 4 ' pour essai, colorie les serial non trouvé End If End If   Next Tranche End With suivant: Next cell End Sub

---

ça fonctionne parfaitement, c'est exactement ce que je voulais faire!
Merci!!!!

Salut, tu dois pouvoir remplacer ce vilain Goto suivant par un Exit For ?