Discussion :

[mathis86]

Boonjour,

J'ai un problème que je n'arrive pas à régler.
J'aimerais recopier des données de ma feuille 1 vers ma feuille 2 en faisant un filtre au préalable.
En effet je voudrais recopier les donnée de la feuille 1 que lorsque ma colonne O vaut "Charente Maritime".

Voici mon code.
Merci pour votre aide!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub CharenteMaritime()
'
' CharenteMaritime Macro
'
 
'ActiveSheet.Range("$A$1:$P$3000").AutoFilter field:=15, Criteria1:="CHARENTE CHARENTE"
 
Worksheets("feuille 1").Range("$A$1:$G$3000").AutoFilter _
 field:=15, _
 Criteria1:="CHARENTE MARITIME"
 
 
'Selectionner toutes les cellules pleines
Dim MaPlage As Range
Set MaPlage = Range("A2:P" & Range("A2").End(xlDown).Row)
MaPlage.Select
 
'Copier la selection Selection.Copy
Selection.Copy
 
'Activer la feuille Charente Maritime
Sheets("Charente-Maritime").Activate
 
'Selectionner la première ligne vide
Range("A7").Select
 
'Copier les valeurs dans la ligne selectionnée
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
 
'Retirer les filtres
Sheets("feuille 1").Activate
Worksheets("Copie Requête Webhelp ALPC").Range("$A$1:$G$3000").AutoFilter _
 field:=15
 
End Sub

[Philippe Tulliez]

Bonjour,
Pour exporter des données suivant critères, le plus simple est l'utilisation des filtres avancés d'excel (méthode AdvancedFilter de l'objet Range pour le VBA)
A lire Les filtres avancés ou élaborés dans Excel

[Zekraoui_Jakani]

Le code est correct mais ton problème vient de l'action de copie. Lorsque XL copie une plage, il ignore les filtres; il faudra donc lui indiquer les cellules à copier via: Ruban\zone d'édition à droite de l'écran\Find & select\Go to special\visible cells only. Désolé, j'ai une version USA de XL.

Ces action doivent être écrites juste après "MaPlage.Select", et après avoir appliqué le filtre; voici un exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
'
    Range("A1:C5").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Range("F1").Select
    ActiveSheet.Paste
    Range("J1").Select
    Application.CutCopyMode = False
End Sub

[mathis86]

ok je vais tester ça. Autre question, comment faire si je veux sélectionner la plage des cellules B2 à B1000 et de D2 à I1000 par exemple.
Ce code ne fonctionne pas : (

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B2:B1000;D2:I1000" & Range("B2").End(xlDown).Row)

[Zekraoui_Jakani]

Voici un exemple (seul le séparateur pourrait changer; virgule dans mon exemple):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B2:B1000,D2:I1000").Select

[Philippe Tulliez]

Bonjour,
A la lecture de tes nouvelles explications, il semblerait que tu ne souhaites exporter que certaines colonnes de ta base de données "source"
Au risque de me répéter, l'utilisation de la méthode AdvancedFilter est nettement plus simple à utiliser en VBA que AutoFilter surtout si tu souhaites exporter les données répondant aux critères.
Tu ne précises pas non plus si les données exportées doivent écraser les anciennes données de la feuille cible ou si elles doivent s'ajouter aux données déjà présentes.

Si tes données sont bien organisées dans la feuille source, c'est à dire que la première ligne contient bien les étiquettes de colonnes (les titres) et que la première colonne est bien remplie de la première à la dernière ligne, le plus simple pour délimiter la plage source est l'emploi de la propriété CurrentRegion de l'objet Range. C'est l'équivalent du raccourci Ctrl + *.

Petit exemple que je t'invite à tester en adaptant le cas échéant le nom de la feuille et éventuellement l'adresse de la première cellule. Dans cette courte procédure la feuille source se nomme db et la première cellule de cette liste est A1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Test()
 Dim rngSource As Range, txt As String
 Set rngSource = ThisWorkbook.Worksheets("db").Range("A1").CurrentRegion
 txt = "Adresse de la source " & rngSource.Address
 txt = txt & vbCrLf & "Nombre de lignes de la source " & rngSource.Rows.Count
 MsgBox txt
 Set rngSource = Nothing
End Sub