XL 2010 entier naturel

dellal · 24 Juin 2019

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 · 24 Juin 2019

Bonjour Dellal

à essayer

VB:

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 · 24 Juin 2019

re
une version sans bug

VB:

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 · 24 Juin 2019

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 😉 ).

XL 2010 entier naturel

dellal

XLDnaute Nouveau

dg62

XLDnaute Barbatruc

dg62

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

XL 2010 entier naturel

dellal

XLDnaute Nouveau

dg62

XLDnaute Barbatruc

dg62

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency