Parcourir un tableau excel et filtrer (macro)
Fermé
missdedicaces
Messages postés
3
Date d'inscription
jeudi 27 janvier 2011
Statut
Membre
Dernière intervention
17 février 2011
-
27 janv. 2011 à 18:12
Info - 28 janv. 2011 à 14:05
Info - 28 janv. 2011 à 14:05
A voir également:
- Parcourir un tableau excel et filtrer (macro)
- Tableau croisé dynamique - Guide
- Liste déroulante excel - Guide
- Si et excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Tableau ascii - Guide
1 réponse
Bonjour,
Votre question n'est pas clair pour moi !
Toutefois, si je comprends le tout ...
Info
Votre question n'est pas clair pour moi !
Toutefois, si je comprends le tout ...
Sub Parcourir() Dim A As Integer, Adresse As String Dim c As Range, Plage As Range, Cible As Range, Origine As Range DimValeur As Variant Plage = Range("B1:B34290") Cible = Range("$A$1:$G$34426") ActiveSheet.Cible.AutoFilter Field:=1, Criteria1:="Réel" For Each c In Plage ' parcours le tableau If c.Value() = "10000" Then Origine = Range(c.Adresse & ":" & c.Offset(0, 1).Address) Adresse = c.Address Origine.Select Selection.Copy 'ecrire dans une autre cellule d'un autre onglet Sheets("Feuil2").Range(Adresse).Select Activesheets.Paste Sheets("Feuil1").Select End If Next c End Sub
Info