Copie de lignes suivant conditions. Plage avant et après valeur recherchée

richard31 à dit:

Bonjour

j'ai un fichier source avec un onglet "Analyse" et " Reporting". J'aimerai être capable d'analyser les entrées dans la colonne "AI" d'Analyse, et quand je rencontre l'entrée "NOK" copier toute la ligne correspondante dans l'onglet "Reporting".
Exemple en AI9 j'ai "NOK "et je désire copier toute la ligne 9 dans l'onglet "Reporting".

je n'y arrive pas avec la fonction rechercheV car la plage de recherche ce situe avant et après la valeur recherchée ..

Merci les gens ^^

Cliquez pour agrandir...

Sub copieJJ()
Sheets("Reporting").Range("b2:ar" & Rows.Count).Clear
[Tableau1].AutoFilter Field:=34, Criteria1:="=NOK"
[Tableau1].SpecialCells(xlCellTypeVisible).Copy Feuil2.[b2]
End Sub

Jacky67 à dit:

Bonjour,
Ceci peut-être

Code:

Sub copieJJ()
Sheets("Reporting").Range("b2:ar" & Rows.Count).Clear
[Tableau1].AutoFilter Field:=34, Criteria1:="=NOK"
[Tableau1].SpecialCells(xlCellTypeVisible).Copy Feuil2.[b2]
End Sub

Cliquez pour agrandir...

Jacky67 à dit:

RE...
A priori, je ne vois pas d'erreur sur ce code .....
Dans le classeur qui était joint, les données étaient sous forme de tableau==>"Tableau1"
Les données réelles doivent être sous cette forme et avoir ce nom
Feuil4 doit être le "codename" de la feuille "Reporting"
Le mieux serait de joindre un classeur avec les dispositions réelles sans données confidentielles.

Cliquez pour agrandir...

richard31 à dit:

Voici donc le fichier limité à 50 lignes car il en fait 50 000. Tout à été renommé donc pas de souci .

Merci d'avance ! le point positif c'est que j'ai apparemment saisi le VB mais je comprends pas pourquoi il ne fonctionne pas ..

Cliquez pour agrandir...

Jacky67 à dit:

Re...
Je n'éprouve aucune difficulté à appliquer le code

Cliquez pour agrandir...

richard31 à dit:

ha oui cela fonctionne ! j'ai du m'y prendre avec des mouffles..

par contre c'est d'une longueur incoryable.. Je pensais que passer en VBA le serai moins mais ce n'est du coup pas le cas. je vais voir

mais merci pour ton aide en tout les cas ^^

Cliquez pour agrandir...

Jacky67 à dit:

RE..
OUI c'est certain que sur 50 000 lignes..........
Tester en mettant en début et fin de macro
'----------
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
'--------
'--------
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
'---------------

Cliquez pour agrandir...

richard31 à dit:

merci pour ton aide précieuse !

Une dernière question vue que tu gère bien les macros contrairement à moi .. J'ai cette commande qui n'est pas très complexe et qui en fait copie des données d'un fichier vers un autre. Mais je n'arrive pas à lui indiquer de prendre le fichier excel situé au même endroit qui commence par "Lievelink" ou alors contient le mot "Report". Sachant que c'est toujours un fichier de type xlsx. Cela est compliqué ? Car obligé de mettre le nom
source.xlsx. Et donc renommer le fichier source qui s'appelle en gros "Livelink Migration Scan Analysis Report........"
Code :

Sub Import()
'
' Nettoyage Macro

Range("A11:J50001").Select
Selection.ClearContents
'
' import
Workbooks.Open ThisWorkbook.Path & "\source.xlsx"
If MsgBox("Remplacement des données de la feuille désiré ? (attention limité à 50 000 entrées)", vbYesNo + vbExclamation, "Importation") _
= vbYes Then ActiveWorkbook.Worksheets("Migration Risk Analysis").[A2:J50001].Copy Destination:=Feuil1.[A11]
ActiveWorkbook.Close False
End Sub

MERKI^^

Cliquez pour agrandir...

Sub Import()
Dim LeFichier As String
LeFichier = Dir(ThisWorkbook.Path)
Do While LeFichier <> ""
    If UCase(LeFichier) Like "*REPORT*" Then Exit Do
    LeFichier = Dir
Loop
If LeFichier = "" Then
    MsgBox "Fichier non trouvé"
Else
    Workbooks.Open LeFichier
End If
End Sub

Jacky67 à dit:

Re...
Je ne sais pas si j'ai bien compris.....
Ceci ouvre un classeur se trouvant dans le répertoire en cours ayant dans son nom le mot "Report"

Code:

Sub Import()
Dim LeFichier As String
LeFichier = Dir(ThisWorkbook.Path)
Do While LeFichier <> ""
    If UCase(LeFichier) Like "*REPORT*" Then Exit Do
    LeFichier = Dir
Loop
If LeFichier = "" Then
    MsgBox "Fichier non trouvé"
Else
    Workbooks.Open LeFichier
End If
End Sub

Si c'est ce que tu recherches, je pense que tu arriveras à l'adapter à ton besoin
Attention toutefois, si plusieurs fichiers comportent le mot "Report", c'est le premier trouvé qui sera ouvert.

Cliquez pour agrandir...

richard31 à dit:

Re

J'ai mis tes commandes seules, mais il me dit que le fichier n'existe pas alors qu'il est bien présent

Cliquez pour agrandir...

Jacky67 à dit:

Re..
Si le fichier cherché se trouve dans le répertoire du classeur par lequel le code est lancé, il n'y a aucune raison que celui-ci ne soit pas trouvé.
Dans l'exemple donné, le nom du fichier cherché doit contenir le mot "Report" et dans le code *REPORT*
Je n'éprouve aucune difficulté à appliquer dans mes tests.

Cliquez pour agrandir...

richard31 à dit:

Alors j'avoue ne pas comprendre car le fichier est bien présent et au même endroit avec ce nom :

Livelink Migration Scan Analysis Report20160125153842.xlsx

J'ai essayé avec l'entrée REPORT , SCAN , Livelink et idem il me dit que le fichier n'existe pas !

pas grave! je vis rester avec l'ancien code et le nom exact du fichier. Merci en tout les cas pour ton aide ^^ je découvre VBA et c'est bien pratique !

Cliquez pour agrandir...

Jacky67 à dit:

RE...
Alors c'est que ce n'est pas le bon répertoire.
Le classeur cherché doit se trouver dans le même répertoire que le classeur qui lance la macro (dans l'exemple donné), sinon il faut modifier le code.

Cliquez pour agrandir...