Sélection de ligne à partir d'une valeur

pierrof · 7 Décembre 2009

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 · 7 Décembre 2009

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

bonjour pierrof

Vois si cela te convient

Cousinhub · 7 Décembre 2009

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 :

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 :

Sélection de ligne à partir d'une valeur

pierrof

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

Cousinhub

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Sélection de ligne à partir d'une valeur

pierrof

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

Cousinhub

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency