Discussion :

[loulah]

Bonsoir le forum,
Encore une fois je me tourne vers vous pour vous demander de l’aide. Et ce n’est pas faute d’avoir essayé, mais en vain.
Si vous décider d’adhérer encore une fois à mon projet, le cahier des charges consiste à extraire, entre deux dates (date d’exigibilité), des données d’un fichier volumineux (A1:AI170000) en fonction de sept critères (au moins un de ces six critères doit être vrai).
Code poste Numero Role Secteur Article Domaine Nature Code Nature Libelle nature Etat Creance Nom_Prenom_Tiers Identifiant Interne CIN Raison Sociale Identifiant Fiscal Registre de Commerce Adresse Adresse Actuelle Lieu Imposition Ordonnateur Annee Emission Mise En Recouvrement Date Exigibilite Annee Imposition RAR Droit Simple RAR Majoration RAR Penalite RAR Amende RAR Principal RAR Maj TGR RAR Frais de Poursuite Dernier Acte Poursuite TYPE DERNIER ACTE POURSUITE DATE ACTE Poursuite ENVOYEE PAR CE NEMERO CE ENVOYE A

Ci-dessous les critères de recherche :

Secteur Article Nom_Prenom_Tiers Identifiant Interne CIN Adresse Lieu Imposition

Merci d’avance pour votre aide et au plaisir de vous lire.

[Transitoire]

Bonjour, si vous voulez être aidé, il faudrais peut-être commencer à poser des questions simples et précises et apporter des éléments compréhensibles.

Code poste Numero Role Secteur Article Domaine Nature Code Nature Libelle nature Etat Creance Nom_Prenom_Tiers Identifiant Interne CIN Raison Sociale Identifiant Fiscal Registre de Commerce Adresse Adresse Actuelle Lieu Imposition Ordonnateur Annee Emission Mise En Recouvrement Date Exigibilite Annee Imposition RAR Droit Simple RAR Majoration RAR Penalite RAR Amende RAR Principal RAR Maj TGR RAR Frais de Poursuite Dernier Acte Poursuite TYPE DERNIER ACTE POURSUITE DATE ACTE Poursuite ENVOYEE PAR CE NEMERO CE ENVOYE A

Par exemple, il faudrait des ";" pour pouvoir séparer les colonnes. Même chose pour les critères.

Cordialement

[loulah]

Bonjour, si vous voulez être aidé, il faudrais peut-être commencer à poser des questions simples et précises et apporter des éléments compréhensibles.

Par exemple, il faudrait des ";" pour pouvoir séparer les colonnes. Même chose pour les critères.

Cordialement

Bonjour tout le monde,
Tout d’abord je tiens à vous remercie pour m’avoir fait la remarque.

Concernant ma demande, j’ai besoin d’extraire les lignes d’un fichier Excel 2007 (A1:AI170000) qui contient au moins l’un des critères ci-dessous :
« Secteur » « Article » « Nom_Prenom_Tiers » « Identifiant Interne » « CIN » « Adresse » « Lieu Imposition »

L’entête de mon fichier est :
« Code poste » « Numero Role » « Secteur » Article » « Domaine Nature » « Code Nature » « Libelle nature » « Etat Creance » « Nom_Prenom_Tiers » « Identifiant Interne » « CIN » « Raison Sociale » « Identifiant Fiscal » « Registre de Commerce » « Adresse » « Adresse Actuelle » « Lieu Imposition » « Ordonnateur » « Annee Emission » « Mise En Recouvrement » « Date Exigibilite » « Annee Imposition » « RAR Droit Simple » « RAR Majoration » « RAR Penalite » « RAR Amende » « RAR Principal » « RAR Maj TGR » « RAR Frais de Poursuite » « Dernier Acte Poursuite » « TYPE DERNIER ACTE POURSUITE » « DATE ACTE » « Poursuite ENVOYEE PAR CE » « NEMERO CE » « ENVOYE A »

La recherche et l’extraction des données se fait entre deux dates « date d’exigibilité » la plus ancienne et la plus récente.
J’aurai aimé vous envoyer un exemplaire Excel mais on m’a déjà conseillé de s’abstenir d’envoyer des fichiers par crainte de virus.

Merci d’avance et à bientôt.

[MarcelG]

Bonjour,

Les filtres élaborés, sujet du tutoriel de l'ami Philippe, pourrait t'apporter une contribution.

[mfoxy]

Bonjour,

Personnellement pour un tel nbr de ligne, je passerais par access et des requêtes sql, quitte à les importer vers Excel pour traitement.

Si obligatoire de rester sur excel, les filtres élaborés reste bien entendu la solution la plus simple à mettre en œuvre.

Bat

[boisgontierjacques]

Bonsoir,

Voici un exemple avec un intervalle de dates qui doit ressembler.

Code :

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

1
2
3
4
5
Sub Extrait2()
    [tableausource[#all]].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Sheets("critères").Range("E1:E2"), CopyToRange:=Range("Résultats!Extract") _
        , Unique:=False
End Sub

Boisgontier

[loulah]

Bonjour,

Personnellement pour un tel nbr de ligne, je passerais par access et des requêtes sql, quitte à les importer vers Excel pour traitement.

Si obligatoire de rester sur excel, les filtres élaborés reste bien entendu la solution la plus simple à mettre en œuvre.

Bat

Bonsoir,
Merci de bien vouloir m'indiquer comment procéder sachant que le fichier de base est importé d'une application sous format excel 2007.
Cordialement.

[loulah]

Bonjour tout le monde,
SVP merci de m'aide à trouver une solution à ce message d'erreur:

Erreur de compilation, Instruction incorrect à l'extérieur d'une procédure

voici le code:

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
ligne_listes = 9
While (Sheets("listes_cascade").Cells(ligne - listes, 2).Value <> "")
Sheets("liste_cascade").Cells(ligne_liste, 2).Value = ""
Sheets("liste_cascade").Cells(ligne_liste, 3).Value = ""
Sheets("liste_cascade").Cells(ligne_liste, 4).Value = ""
Sheets("liste_cascade").Cells(ligne_liste, 5).Value = ""
Sheets("liste_cascade").Cells(ligne_liste, 6).Value = ""
 
ligne_listes = ligne - listes + 1
Wend
 
ligne_bd = 2: ligne_listes = 9
Sheets("listes_cascade").Select
 
While (Sheets("bd_sortie").Cells(ligne_bd, 1).Value <> "")
If (Range("h5").Value <> "" And Range("i5").Value = "" And Range("j5").Value = "") Then
If (Sheets("bd_sorties").Cells(ligne_bd, 4).Value = Range("h5").Value) Then
extraction ligne_listes, ligne_bd
ligne_listes = ligne_listes + 1
End If
ElseIf (Range("h5").Value <> "" And Range("i5").Value <> "" And Range("j5").Value = "") Then
If (Sheets("bd_sorties").Cells(ligne_bd, 4).Value = Range("h5").Value And Sheets("bd_sorties").Cells(ligne_bd, 3).Value = Range("i5").Value) Then
 
extraction ligne_listes, ligne_bd
ligne_listes = ligne_listes + 1
End If
 
ElseIf (Range("h5").Value <> "" And Range("i5").Value = "" And Range("j5").Value <> "") Then
If (Sheets("bd_sorties").Cells(ligne_bd, 4).Value = Range("h5").Value And Sheets("bd_sorties").Cells(ligne_bd, 5).Value = Range("j5").Value) Then
 
extraction ligne_listes, ligne_bd
ligne_listes = ligne_listes + 1
End If
 
ElseIf (Range("h5").Value <> "" And Range("i5").Value <> "" And Range("j5").Value <> "") Then
If (Sheets("bd_sorties").Cells(ligne_bd, 4).Value = Range("h5").Value And Sheets("bd_sorties").Cells(ligne_bd, 5).Value = Range("j5").Value) Then
 
extraction ligne_listes, ligne_bd
ligne_listes = ligne_listes + 1
End If
 
End If
ligne_bd = ligne_bd + 1
Wend
 
 
'purger macro
ActiveSheet.Range("$B$5:$B$100000").RemoveDuplicates Columns:=1, Header:=xlNo
ActiveWindow.SmallScroll down:=-3
ActiveWorkbook.Worksheets("construction").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("construction").Sort.SortFields.Add Key:=Range("b5"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("construction").Sort
.SetRange Range("b5:b100000")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With