Discussion :

[Miss Ti]

Bonjour à tous,
je souhaitre rédihger une requête sur 2 tables (pour simplifier...):
la 1e décrit des dossiers et la 2e défini les parcelles pour chaque dossier.
Un dossier pouvant concerner 1 à n parcelles.

J'aiu réussi à collecter toutes les infos mais il me duplique le dossier autant de fois qu'il y a de parcelles. Je cherche à créer un export vers un fichier excel qui me ferai une synthèse du genre:
dossier1 | infos diverses... | parcelle1-section-lieudit ; parcelle2-section-lieudit |
dossier2 | infos diverses... | parcelleX-section-lieudit ; parcelleY-section-lieudit |

Bref, concaténer toutes les infos de toutes les parcelles en une colonne pour chaque dossier (là, je ne sais pas si je suis claire).

Le tout en VBA sous access 2000... Dois-je faire un group by dossier mais alors comment concaténer les enregsitrements?)?

[al1_24]

Question régulièrement posée, la dernière fois ici.

[Miss Ti]

ne serait-il pas possible de faire une concaténation des 3 colonnes et un GROUP BY id_dossier?

[Miss Ti]

Ok, j'ai un plan B: comme je cherche à exporter le tout dans une feuille excel, il suffit de bidouiller cette feuille.

Néanmoins, il y a un truc qui me chiffonne: c'est long sur quelques enregistrements mais alors sur la base en entier ça n'en fini pas.
Je suis sûre qu'il y a moyen de simplifier le code suivant mais je ne suis pas encore aguérrie pour ce qui est de la manipulation d'excel:

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
        With XL_App
            With XL_feuille
                 Remplissage de la feuille....
                 For Each ObjCell In Range("K1", Range("K1").EntireColumn.Find(What:="*", SearchDirection:=xlPrevious)).Cells
                    If ObjCell.Value = "Parcelle  de la section  () - " Then ObjCell.Value = ""
                Next
                nbrLignes = Range("K1", Range("K1").EntireColumn.Find(What:="*", SearchDirection:=xlPrevious)).Cells.Count
                For i = 7 To nbrLignes
                    ligneEnCours = i
                    For j = 7 To nbrLignes
                        ' si la ligne est différente,
                        'si le n° de dossier est le même et
                        'si la date d'évènement est la même,
                        'alors on a un diplicata du dossier rien que pour définir les parcelles.
                        If j <> ligneEnCours And _
                            .Cells(i, 12).Value = .Cells(j, 12).Value And _
                            .Cells(i, 8).Value = .Cells(j, 8).Value Then
                            ' dans ce cas, il faut prendre la valeur de la ligne en j, la concaténer à la ligne i puis virer j
                            .Cells(i, 11).Value = .Cells(i, 11).Value & .Cells(j, 11).Value
                            .Rows(j).Delete
                            j = j - 1
                            nbrLignes = nbrLignes - 1
                        End If
                    Next j
                Next i
                .Columns(12).Delete
            End With
            .ActiveWorkbook.SaveAs "S:\S1\Public\SIG\BASE_DE_DONNEES\EXPORT_ADMINISTRATIONS.xls"
            .ActiveWorkbook.Close
            .Quit
        End With

Vous auriez un tuyau pour éviter de parcourir ligne après ligne toutes les lignes pour chaque ligne (ok c'est pas clair mais c'est que ce doit être simplifiable)?

[Miss Ti]

Et zut!
Voilà que maintenant le code me donne un message d'erreur alors que je relançait mon code pour vérifier le résultat une dernière fois:

Erreur d'éxecution '1004':
La méthode Range de l'objet '_Global' a échoué.

J'ai pas touché à mon code!! J'comprend rien!
Aaaaarg!!

[vmolines]

Ouvre un nouveau sujet dans la rubrique appropriée, ça ne relève plus d'SQL.

[Xo]

Sujet déplacé, merci de ne pas poster vos soucis avec Excel dans le forum SQL

[SfJ5Rpw8]

Et zut!
Voilà que maintenant le code me donne un message d'erreur alors que je relançait mon code pour vérifier le résultat une dernière fois:

J'ai pas touché à mon code!! J'comprend rien!
Aaaaarg!!

sur quelle ligne...?

[Miss Ti]

Je vais recréer un sujet pour la simplification du code (il ne s'agit plus du même sujet).

bbil: ça bloquait sur le Range:

Code :

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

For Each ObjCell In Range("K1", Range("K1").EntireColumn.Find(What:="*", SearchDirection:=xlPrevious)).Cells

Mais ce matin, je le relance et ça ne bloque plus....
Pourtant ObjCell est bien défini avec

Code :

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

Dim ObjCell As Range

Je comprend RIEN et je voudrais savoir pourquoi parce que ce genre de bug ne me plaît pas trop...

[Miss Ti]

Crotte de bique!!
Ca déconne à nouveau sur la fonction Range.
Pourquoi? Mais pourquoi?

[SfJ5Rpw8]

remplace tes
Range("K1" dans ton With.. par des .Range("K1"