Discussion :

[blackty1]

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 :

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
 
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

[Theze]

Bonjour,

Teste le code ci-dessous :

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
 
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é.

[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

[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

[Theze]

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 :

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
 
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 :

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
 
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é.

[Sogestion]

Bpnjour Hervé,

Merci de l'explication et de la solution

_____________________________

Bonne journée
Cordialement

Albert