selection sur nombre

[cococh]

bonjour a tous,
J'ai un classeur comportant une base de donnée comme ceci:

désignation//ref//date de dernière vérif//autonomie//nb de jours restans//

exemple:
pied a coulisse//0254//02/04/05//365(jours)//-36//

j'aimerais dans une autre feuille, avoir un tableau de uniquement les lignes ou la valeurs de "nombre de jours restants" est négative.

Le but étant, comme le nombre de jours restants est calculé automatiquement, de ne m'afficher que les éléments dont la date est périmée.
merci a tous

 

[SergiO]

Re : selection sur nombre

bonjour cococh,

Ci-joint un essai par VBA.

Pour voir le code, Alt F11 - Module1

@+

 

[cococh]

Re : selection sur nombre

c'est pas mal mais le code est plutot compliqué pour moi et mon tableau n'est pas tout a fait identique donc pourais-tu stp ajouter tous les commentaires nécéssaires (genre: "cela signifie qu'il selectionne le plage tan de la feuille tan et la colle en tan....")
.De plus je ne vois rien dans ce code VBA qui parle le le feuille 1 de ton classeur (feuille base de donnée sur le mien).
merci de ta compréhension

 

[cococh]

Re : selection sur nombre

une autre idée?

 

[cococh]

Re : selection sur nombre

une nouvelle idée?

 

[SergiO]

Re : selection sur nombre

Re,

Voici le code avec commentaires.

Sub Extraction()
'Nettoyage de la feuille 2
Sheets("Feuil2").Range("A2:E65536").ClearContents
'Initialisiion de la première ligne vide pour la feuille 2
Lig = 2
'Dernière ligne de la base de données
DerLig = [A65536].End(xlUp).Row
'Boucle de laligne 2 à la dernière ligne
For L = 2 To DerLig
'Si la valeur en colonne E esi inférieure à zéro
If Cells(L, 5) < 0 Then
'Copie la ligne dans la feuille 2
Cells(L, 5).EntireRow.Copy Destination:=Sheets("Feuil2").Cells(Lig, 1)
'Nouvelle première ligne vide
Lig = Lig + 1
End If
'Fin de la boucle
Next L
End Sub

@+