Sélection de ligne à partir d'une valeur

[pierrof]

Bonjour

J'aimerai réaliser à partir d'une macro, une sélection des lignes qui comporte une cellule avec une valeur décimale et de la recopier sur une autre feuille

Je joint un fichier pour un exemple plus concret

Merci de votre aide

A+

 

[pierrejean]

Re : Sélection de ligne à partir d'une valeur

bonjour pierrof

Vois si cela te convient

 

[Cousinhub]

Re : Sélection de ligne à partir d'une valeur

bonsoir,

une méthode parmi d'autres

A base d'un filtre élaboré

Attention, pour que cela fonctionne, il faut que dans la feuille 2, tous les titres soient les mêmes que dans la feuille 1

le code :

Sub extract()
Dim DerLig As Long
DerLig = [A65000].End(xlUp).Row
Range("A1:N" & DerLig).Name = "base"
Range("P2").FormulaR1C1 = "=NOT(RC[-8]=INT(RC[-8]))"
With Sheets("Feuil2")
    Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets( _
        "Feuil1").Range("P1:P2"), CopyToRange:=.Range("A1:N1"), Unique:=False
End With
[P2].ClearContents
End Sub

Le fichier :