effacer lignes avec nombre decimaux

G

Guest

Guest

• 15 Octobre 2013

• #2

Re : effacer lignes avec nombre decimaux

Bonjour,

Si j'ai bien compris, dans ton exemple cela revient à ne garder que les cellules contenant un entier!?

Code:

 With Plage.Cells(i)
              If (.Value) - Int(.Value) <> 0 Then Plage.Cells(i).EntireRow.Delete
     'ou If Int(.Value) <> .Value Then Plage.Cells(i).EntireRow.Delete
             End With

A+

 

Dernière modification par un modérateur: 15 Octobre 2013

Vote positif 0 Vote négatif

S

so.fine

Guest

• 15 Octobre 2013

• #3

Re : effacer lignes avec nombre decimaux

D'abord merci pour ta reponse,
c'est bien ca, je voudrais garder que les entiers de la colonne A.

Quand je colle ton code dans le lecteur vba, il m'indique une erreure au niveau de la ligne "With Plage.Cells(i)"

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 15 Octobre 2013

• #4

Re : effacer lignes avec nombre decimaux

Bonsour®

Filtre avancé personnalisé
🙄 + quelques petites modifications de mise en forme des données originales

 

Pièces jointes

• exemplea.xlsm

  38.4 KB · Affichages: 30

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 15 Octobre 2013

• #5

Re : effacer lignes avec nombre decimaux

Bonjour so.fine

Salut Hasco

A tester:

Code:

Sub efface()
Application.ScreenUpdating = False
For n = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
  If Range("A" & n) - Int(Range("A" & n)) <> 0 Then
   Rows(n).Delete
  End If
Next
Application.ScreenUpdating = True
End Sub

Nb: A mettre dans un module Standard

Edit: Salut Modeste

 

Vote positif 0 Vote négatif

S

so.fine

Guest

• 15 Octobre 2013

• #6

Re : effacer lignes avec nombre decimaux

Merci pour ta peoposition, cela marche tres bien. Mais est-il possible de faire la meme chose en remplacant les nombres et non en les copiant. Il y aura plusieurs series de test sur la meme et cela va vite devenir lourd sinon...


J'ai essayer plusieurs code avec des conditions mais je ne sais pas comment exprimer un condition sur nombres decimaux ou entiers 🙁



" Dim i As Integer
Application.ScreenUpdating = False

With Sheets("Qmat Curves1")

For i = 10480 To 1 Step -1
If "c'est la que je seche" Then
.Rows(i).Delete
End If
Next i

End With

Application.ScreenUpdating = True "

 

Vote positif 0 Vote négatif

S

so.fine

Guest

• 15 Octobre 2013

• #7

Re : effacer lignes avec nombre decimaux

Bonjour Pierrejean. T'as solution marche parfaitement, c'est ce qu'il me fallait.
Un grand merci 😀

 

Vote positif 0 Vote négatif

S

so.fine

Guest

• 15 Octobre 2013

• #8

Re : effacer lignes avec nombre decimaux

J'aurais une petite question pour rebondire la dessus maintenant,

Si je veux ajouter plusieurs serie de donnees sur la meme feuille, y aurait-il un moyen que cette macro s'applique sur chaque nouvelle serie?
si par exemple je met des donne sembleble mais pour un autre objet tester a cote des premiere, en commencant a la colonne D cette fois 😕

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 15 Octobre 2013

• #9

Re : effacer lignes avec nombre decimaux

Re

A tester:

Code:

Sub efface(colonne_d, colonne_f)
Application.ScreenUpdating = False
For n = Range(colonne_d & Rows.Count).End(xlUp).Row To 1 Step -1
  If Range(colonne_d & n) - Int(Range(colonne_d & n)) <> 0 Then
   Range(colonne_d & n & ":" & colonne_f & n).Delete
  End If
Next
Application.ScreenUpdating = True
End Sub


Sub eff_toutes()
Call efface("A", "B")
Call efface("D", "E")
End Sub

 

Vote positif 0 Vote négatif