Macro + filtres + copier-coller

Bonjour,

Comment peut on faire avec une macro le copier-coller d'une ligne filtrée sans prendre les titres du filtre ? (quand on prend le titre du filtre ca marche si on fait atteindre les cellules visibles uniquement mais la sans les titres...je sèche)

help me please

merci !!!

svp c'est important et urgent :s

merci de votre aide

Bonjour

Peut-être pas la meilleure solution

Option Explicit

Sub Copie()
Dim NbLg As Long
Dim LgDer As Long
Dim Critere As String

  Critere = "A définir"

  With Sheets("Feuil1")
    LgDer = .Range("A65536").End(xlUp).Row
    .Range("A1:C" & LgDer).AutoFilter Field:=1, Criteria1:=Critere

    NbLg = WorksheetFunction.Subtotal(3, Columns(1)) - 1
    If NbLg > 0 Then
      .Range("A2:C" & LgDer).SpecialCells(xlCellTypeVisible).Copy Sheets("Feuil2").Range("A2")
    End If
    .ShowAllData
  End With
End Sub

Bonne journée

Merci, je vais essayer mais en fait j'y connais rien en langage VBA ! Il faut mettre la formule telle quelle ?

Il y a pas un moyen sans utiliser de code VBA ?

Merci

Bonjour

Comment peut on faire avec une macro

Réponse que j'ai faite

Ensuite pour l'inclure das ton fichier

Alt F11

menu : Insertion ----> Module

Colles le code dans cette page

ne reste plus qu'à l'adapter à tes données

Bonne journée

OK merci ! je vais essayer ça!!

-- 11 Mai 2011, 14:57 --

A oui j'ai oublié aussi, je veux faire un copier-coller transposé. Comment le mettre dans le code ??

Merci encore !!!

Bonjour

Pour un copier/coller transposé essayes

      .Range("A2:C" & LgDer).SpecialCells(xlCellTypeVisible).Copy
      Sheets("Feuil2").Range("A2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
                      SkipBlanks:=False, Transpose:=True

Je vais essayer ca. Mais je crois que la macro copie-colle toujours la même ligne qui est en A2...