Discussion :

[Vb.pix]

Bonjour à tous

Je vous expose mon problème qui, après réfléxion intense, n'est toujours pas résolu: En fait, je ne sais pas du tout comment m'y prendre. Et comme je l'ai sur 2 endroits différents...

Pour faire simple:

1. Je boucle sur un fichier texte contenant des données par lignes, avec en premier le nom du salarié puis les infos. Le code fait sont truc (intègre les données dans la feuille correspondante, et ce pour chaque ligne du fichier (donc changement de salarié au fur et à mesure)

2. En fin d'import, je voudrais, sur chaque feuille impactée par la modification, faire un tri. Et je beug au niveau de la récupération des feuilles impactés.

Mon fichier d'import est de la forme :

Code :

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

1
2
3
4
 
NOM1;Prénom1;42767;03.A;60;
NOM1;Prénom1;43023;02.B;60;
NOM2;Prénom2;43023;03.A;60;

Je voudrais donc revenir sur les pages NOM1 et NOM2 (et pas NOM 1, NOM1, NOM2).

J'ai pensé faire une boucle: On test si le nom existe dans un tableau grace à une boucle for, si elle existe, on passe une variable en True. Si a la fin la variable est "False", on intégre dans le tableau.

Mon soucis vient du fait que j'utilise

Code :

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

1
2
3
 
Dim ListeSalariesExposes() As String
For i = 0 To Ubound(ListeSalariesEnregistres)

Et que pour le premier salarié, ListeSalariesEnregistres n'existe pas, non Ubound ne peut retourner de valeur, et donc il plante...

Une idée pour faire ce tri?

PS: Je me penche sur les "dictionnaires" !

Merci !

[unparia]

Bonjour
Te viendrait-il à l'idée (juste pour le cas où ce serait un peu "utile" ...!) de préciser :
Ce qu'est, où et comment a été déclaré et où et comment a été initialisé ListeSalariesEnregistres ?
Ce serait peut-être un minimum, que de le préciser ici ...

[Philippe Tulliez]

Bonjour,
Si l'exemple affiché est le reflet de la réalité comment définir les données en double parce-que si je me réfère aux deux premières lignes

1. NOM1;Prénom1;42767;03.A;60;
2. NOM1;Prénom1;43023;02.B;60;

il n'y a pas de données en double puisque pour un même nom et prénom on a des données différentes pour les quatre colonnes suivantes.

Sinon, pas besoin de boucle pour supprimer des doublons. La méthode RemoveDuplicates de l'objet Range fera l'affaire

[Vb.pix]

Salut !

J'ai édité mon premier message pour faire apparaître la déclaration du tableau.

Je m'en suis sorti en redimensionnant le tableau de suite à 1, puis en faisant mon Ubound. Ça fonctionne.

Concernant les données, elles viennent d'un fichier texte et je ne souhaite pas supprimer les doublons (puisque comme tu le dis, il n'y en a pas).

En revanche, je souhaitait revenir sur les pages modifiées pour les trier. Et donc il fallait, à un moment, faire la liste des pages modifiées. Et c'est la que, pour le coup, j'avais besoin de sortir les doublons.

Je pense qu'il y a mieux à faire, et j'imagine que vous pouvez avoir des idé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
28
 
Sub Sub_ImportDonneesExpo(ByVal AdresseFichier As String)
 
    Dim ListeSalariesExposes() As String
    ReDim ListeSalariesExposes(1)
    Dim SalarieExistantDansListe As Boolean
 
    Dim Wb As Workbook
    Dim WsFse As Worksheet
 
    Set Wb = ThisWorkbook
 
' On rentre dans une boucle que je n'ai pas copié ici qui, notamment, forme le nom de la feuille WsFse
 
    SalarieExistantDansListe = False
    For j = 0 To UBound(ListeSalariesExposes)
        If WsFse.Name = ListeSalariesExposes(j) Then
            SalarieExistantDansListe = True
            Exit For
        End If
    Next j
 
    If SalarieExistantDansListe = False Then
        ReDim Preserve ListeSalariesExposes(k)
        ListeSalariesExposes(k) = WsFse.Name
        k = k + 1
    End If
End Sub

[Philippe Tulliez]

Bonjour,

Et c'est la que, pour le coup, j'avais besoin de sortir les doublons.

Qu'entends-tu par sortir les doublons ?
Les supprimer ou les exporter ou ... les deux ?

Plus tu seras précis dans tes explications plus vite tu auras une réponse pertinente et plus vite cette discussion sera clôturée.

[Vb.pix]

Pour revenir sur les feuilles modifiées, j'enregistrais le nom de la feuille dans un tableau.

Sauf que pour un export sur ce type de fichier:

Code :

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

1
2
3
4
5
6
7
 
NOM1;Prénom1;42767;03.A;60
NOM1;Prénom1;43023;02.B;60
NOM1;Prénom1;43023;02.B;60
NOM2;Prénom2;43023;03.A;60
NOM2;Prénom2;43023;03.A;60
NOM2;Prénom2;43023;03.A;60

Je me retrouvais avec un tableau qui m'enregistrait chaque ligne comme feuille.

Donc pour trier chaque feuille impacter, je me retrouvais à boucler plusieurs fois sur le même nom:

Code :

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

NOM1;NOM1;NOM1;NOM2;NOM2;NOM2

Et c'est dans ce nouveau tableau que je ne voulais pas des doublons.

Donc maintenant, quand je boucle chaque ligne, je vérifie si NOM1 existe déjà dans le tableau, si oui, inutile de le renoter. Sauf qu'on teste un tableau qui, pour la première ligne, n'existe pas. Donc le Ubound plantait (a priori).

J'ai le même soucis lors d'un import: Si aucune feuille n'existe, le Ubound plante... Mais j'ai plus trop la force aujourd'hui de me pencher dessus

Vincent