SUPPRESSION

Bonjour

Je cherche une assistance pour le cas de figure présenté au fichier que je joins à mon présent message qui j’espère trouvera une solution.

Je souhaite supprimer toutes les séries dont le nombre est inférieur à 5 chiffres.

Merci

bonjour le forum,

si j'ai bien compris ton explication ceci devrait convenir.

Pour être sur, toutes les séries qui ne possèdent pas 5 nombres ont forcément au moins le cellule en colonne F de vide dans ton fichier ? Ou bien peut-il y avoir des vides entre 2 nombres ? du style B2=5 C2=3 D2=vide E2=9 F2= 12 ?

Si c'est le cas une modification du code ci-dessous est nécessaire.

Sub suppr()

' A adapter si en colonne F est forcément vide en cas de série de moins de 5 nombres
deb = Range("F" & Rows.Count).End(xlUp).Row

For Each Cel In Range("F3:F" & deb)

r = Cel.Row

    If Cel.Value = "" Then

    'A adapter au besoin de la longueur de la ligne à supprimer
    Range("B" & r & ":F" & r).Delete Shift:=xlUp

    End If

Next Cel

End Sub