selection et condition pour une macro VBA

Version imprimable

Sur un fichier Excel, je souhaiterai copier des infos d'un onglet à un autre avec une condition .
Par exemple colonne A, B, C, D sur "onglet 1" coller les infos des colonnes A,B,C sur le 2ème onglet a condition qu'il y ait un "ko" sur la colonne D

J'espère avoir été claire

Merci

Voici le script:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 With Sheets("Résultat final") ' Saisie_anomalie Macro ' Coller dans l'onglet résultat final les colonnes de l"onglet anomalie, ceux qui dans la colonne selection est ko Touche de raccourci du clavier*: Option+Cmd+Maj+L"&chr(10)&"' Application.Goto Reference:="Saisie_anomalie" Sheets("Résultat final").Select Range("A5:D11").Select Sheets("anomalie").Select ActiveSheet.Range("$A$1:$E$79").AutoFilter Field:=1, criterial:="ko" Range("I23").Select Sheets("base de donnée").Select End With Sheets("Résultat final").Select Range("A6").Select Sheets("Résultat final").Select Range("D26").Select End Sub

Bonjour,

Teste le code ci-dessous :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub Copier()
 
    Dim Plage As Range
    Dim I As Long
 
    'défini la plage en feuille "Feuil2" sur les colonnes A à D
    With Worksheets("Feuil2")
 
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 4).End(xlUp))
 
    End With
 
    'filtre sur la colonne D
    Plage.AutoFilter 4, "ok"
 
    'colle en feuille "Feuil1" le résultat du filtrage
    Worksheets("Feuil2").AutoFilter.Range.EntireRow.Copy Worksheets("Feuil1").Range("A1")
 
    'vire le filtre
    Plage.AutoFilter
 
End Sub

Hervé.

02/10/2012, 10h20
blackty1

Bonjour,

La macro fonctionne, par contre j'ai oublié une précision, lorsque la copie s'éffectue sur le second onglet je souhaiterai qu'il ne prenne en compte les 1ère colonne de l'onglet 1.
Autre chose comment définir les lignes sur lequel je voudrai que la copie s'effectue.

Merci
02/10/2012, 20h03
Sogestion

Bonjour Hervé

Ce code m'intéressant, j'ai donc construit un tableau comme suit

100 B-100 C-100
200 B-200 C-200 Ko
300 B-300 C-300
400 B-400 C-400
500 B-500 C-500 Ko
600 B-600 C-600
700 B-700 C-700 Ko
800 B-800 C-800
900 B-900 C-900
1000 B-1000 C-1000 Ko

Voici le résultat de l'exécution du code

100 B-100 C-100
200 B-200 C-200 Ko
500 B-500 C-500 Ko
700 B-700 C-700 Ko
1000 B-1000 C-1000 Ko

Question

Pourquoi le ligne No 1 est elle reprise dans le résultat
alors que la colonne < D> ne comprend pas "Ko"

Merci d'avance
____________________
Cordialement

Bonsoir,

Sogestion,
La 1ère ligne est prise en compte par le compilateur car il considère que c'est la ligne d'entêtes et donc, il la récupère avec les données filtrées !
Tu peux la virer avec la ligne de code rajoutée ci-dessous :

Code:

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
 
Sub Copier()
 
    Dim Plage As Range
    Dim I As Long
 
    'défini la plage en feuille "Feuil2" sur les colonnes A à D
    With Worksheets("Feuil2")
 
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 4).End(xlUp))
 
    End With
 
    'filtre sur la colonne D
    Plage.AutoFilter 4, "ok"
 
    'colle en feuille "Feuil1" le résultat du filtrage
    Worksheets("Feuil2").AutoFilter.Range.EntireRow.Copy Worksheets("Feuil1").Range("A1")
 
    'supprime la ligne d'entêtes
    Worksheets("Feuil1").Range("A1").EntireRow.Delete
 
    'vire le filtre
    Plage.AutoFilter
 
End Sub

blackty1,
Dans le code modifié ci-dessous, le collage est effectué à partir de A10 et les deux premières colonners sont supprimées :

Code:

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
 
Sub Copier()
 
    Dim Plage As Range
    Dim Fe As Worksheet
    Dim I As Long
 
    'défini la plage en feuille "Feuil2" sur les colonnes A à D
    With Worksheets("Feuil2")
 
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 4).End(xlUp))
 
    End With
 
    'filtre sur la colonne D
    Plage.AutoFilter 4, "ok"
 
    'colle en feuille "Feuil1" à partire de "A10" le résultat du filtrage
    Worksheets("Feuil2").AutoFilter.Range.EntireRow.Copy Worksheets("Feuil1").Range("A10")
 
    'supprime les deux premières colonnes
    Worksheets("Feuil1").Columns("A:B").EntireColumn.Delete
 
    'vire le filtre
    Plage.AutoFilter
 
End Sub

Hervé.

03/10/2012, 10h50
Sogestion

Bpnjour Hervé,

Merci de l'explication et de la solution

_____________________________

Bonne journée
Cordialement

Albert