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)
- Liste déroulante excel - Guide
- Formule excel - Guide
- Tableau croisé dynamique excel - Guide
- Si et excel - Guide
- 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