ELIMINER ? MAIS COMMENT

E

Eric C

Guest

• 30 Juin 2004

• #2

Bonjour le forum
Bonjour bono

Je suppose que la colonne côte est la B (Donc données dans B6:B116) A adapter :


Private Sub SuppSiCoteSup()

Dim NumCol As Byte
Dim NumLig As Integer, i As Integer
Range("B6:B116").Select 'Ici tes colonnes
NumCol = ActiveCell.Column
NumLig = Range(Cells(116, NumCol).Address).End(xlUp).Row

Application.ScreenUpdating = False
For i = NumLig To 1 Step -1
If Cells(i, NumCol) > 5 Then Rows(i).Delete
Next i
Application.ScreenUpdating = True

End Sub


@ ++ Eric C

 

Vote positif 0 Vote négatif

B

bono

Guest

• 30 Juin 2004

• #3

merci bien je vais adapter cela tout de suite
merci et bonne soiree
bono

 

Vote positif 0 Vote négatif

B

bono

Guest

• 30 Juin 2004

• #4

le probleme c est qu il me garde les 0 et je ne les veux pas non plus , mais je ne l avais pas dit ds mon messages , milles excuses
bono

 

Vote positif 0 Vote négatif

E

Eric C

Guest

• 30 Juin 2004

• #5

Re le forum
Re bonsoir Bono

Je suppose que tu parles de lignes vides ??
If Cells(i, NumCol) > 5 or Cells(i, NumCol) = "" Then Rows(i).Delete
à ajouter au code pour supprimer les lignes vides.

PS personne n'a regardé mon problème avec la # d'heures d'hier ?? Snif snif ...
@ ++ Eric C

 

Vote positif 0 Vote négatif

B

bono

Guest

• 30 Juin 2004

• #6

merci bien
je ne peux d aider je suis nul
merci encore

 

Vote positif 0 Vote négatif