XL 2010 entier naturel

[dellal]

Bonjour,
je cherche le code suivant
en colone C (3)
je prend les chiffres que je divise par 100
puis supression de la ligne si le nombre n'est pas un entier naturel

 

[dg62]

Bonjour Dellal

à essayer

Sub entiernatSupp()
Dim cell As Range

For Each cell In Range("C3:C26")


    If cell.Value Mod 100 <> 0 Or cell.Value < 0 Then cell.EntireRow.Delete
  
    
Next cell

End Sub

 

[dg62]

re
une version sans bug

Sub suppligne()

Dim i As Integer

For i = 200 To 3 Step -1

    If Cells(i, 3).Value Mod 100 <> 0 Or Cells(i, 3).Value < 0 Then Rows(i).EntireRow.Delete
   
Next i



End Sub

 

[mapomme]

Bonsoir @dellal, @dg62 ,

Une version plus complexe mais qui devrait être beaucoup plus rapide si on a énormément de données dans la colonne C à supprimer. Dans la plupart des cas, la version de dg62 convient parfaitement (à condition de rajouter une instruction Application.ScreenUpdating = False avant la ligne du For pour accélérer ).