ELIMINER ? MAIS COMMENT

[bono]

bonsoir

Dans le tableau ci joint je cherche à eliminer dans la colone cotes , toute les cotes superieur a 5 (je garde 5 ) et par la meme occassion ne garder que les lignes avec les cotes restantes .
peut on le faire par une macro ou un calcul excel est il possible .
merci pour vos reponses je vous souhaite un bon aperro
bono

 

[Eric C]

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

 

[bono]

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

 

[bono]

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

 

[Eric C]

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

 

[bono]

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