Discussion :

[Rirette21]

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

[keygen08]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Rirette21]

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

[kiki29]

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