Discussion :

[Tooth]

Bonjour le forum,

Après avoir cherché un bon petit moment, je m'en remet encore une fois à la sagesse des membres de ce forum .

Donc, j'ai encore un petit problème avec un bout de code que je dois implémenté. En gros, j'ai une feuille "BDD" contenant des données de pointage avec une colonne nom salarié et une feuille salarié référencent tous les salarié déjà dans la base de donnée. A chaque fois que des nouvelles données sont importé (d'un fichier .xml pour précision), un test est effectué pour savoir si l'employé est déjà dans la feuille Salarié. Et c'est la le problème, les génies qui ont entré le nom des salariés dans le fichier xml ont utilisé des intitulés (M. ; Mr ; Mme ; Melle) et certaine personne, d'un fichier à un autre peuvent avoir un intitulé différent.

Par exemple :

Fichier A :

M. Toto Albert

Fichier B :

Mr Toto Albert

Cela pose un problème puisque lors d'analyse des données et la génération des différents graphiques, la personne sera scindé en deux (moins d'heures sup donc moins de paye ), également, deux entrées seront créer dans la feuille salarié. Je vous met le code qui recherche les nouveaux salarié pour que vous puissiez visualiser et en vient à la question : Comment faire pour que Excel ne prennent pas en compte les x premiers caractères ?

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
60
61
62
63
64
65
66
67
68
69
70
71
 
Public tab_salarie() As Variant
 Public tab_bdd() As Variant
 Public compteur_bdd As Integer
 Public compteur_salarie As Integer
 
Public Sub nouveau_salarie()
 
 
    Dim nbLigne_bdd As Long
    Dim nbLigne_salarie As Integer
    Dim plage_salarie As Range
    Dim plage_bdd As Range
 
 
    With Worksheets("BDD")
        nbLigne_bdd = .Range("A" & .Rows.Count).End(xlUp).Row
    End With
 
    With Worksheets("Salarie")
        nbLigne_salarie = .Range("A" & .Rows.Count).End(xlUp).Row
    End With
 
    Set plage_salarie = Worksheets("Salarie").Range(Worksheets("Salarie").Cells(1, 1), Worksheets("Salarie").Range("A1").End(xlDown).Offset(1, 0))
    Set plage_bdd = Worksheets("BDD").Range(Worksheets("BDD").Cells(1, 1), Worksheets("BDD").Range("A1").End(xlDown).Offset(1, 0))
 
    tab_salarie() = Application.Transpose(plage_salarie.Value)
    tab_bdd() = Application.Transpose(plage_bdd.Value)
 
    compteur_bdd = 1
 
boucle_bdd:
 
 
    Do While compteur_bdd <= nbLigne_bdd
 
        compteur_bdd = compteur_bdd + 1
 
        If tab_bdd(compteur_bdd) = tab_bdd(compteur_bdd - 1) Then
 
        GoTo boucle_bdd
 
        End If
 
 
        compteur_salarie = 1
 
        Do While compteur_salarie <= nbLigne_salarie
 
            If tab_bdd(compteur_bdd) = tab_salarie(compteur_salarie) Then
 
                GoTo boucle_bdd
 
 
 
 
            Else
                compteur_salarie = compteur_salarie + 1
                'GoTo boucle_bdd
 
            End If
 
        Loop
 
        NouveauSalarie.Show
 
 
    Loop
 
 
End Sub

Merci pour vos réponses,

Thomas

[Marc-L]

Bonjour,

juste en passant, en entreprise on ne travaille pas par nom mais par matricule …

Voir le tutoriel Manipuler les chaînes de caractères en VB6 et VBA Excel …

[Theze]

Bonjour,

Une piste à tester. Faire un essai sur une copie du classeur. Si des mots doivent être ajoutés à la recherche, les mettre dans le "Select Case" à la suite des autres :

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
 
Sub Test()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim Pos As Integer
    Dim Texte As String
 
    'la plage est définie en colonne A de la feuille "Feuil1"
    With Worksheets("Feuil1")
 
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    'boucle sur la plage
    For Each Cel In Plage
 
        'recherche le 1er espace
        Pos = InStr(Cel.Value, " ")
 
        'récupère les caractères à gauche du 1er espace
        Texte = Left(Cel.Value, Pos - 1)
 
        'cherche si il correspond à l'un des mots et si oui, le supprime
        Select Case Texte
 
            Case "M.", "Mr", "Melle", "Mlle", "Mme"
                Cel.Value = Right(Cel.Value, Len(Cel.Value) - Pos)
 
        End Select
 
    Next Cel
 
End Sub

Hervé.

[Menhir]

les génies qui ont entré le nom des salariés dans le fichier xml ont utilisé des intitulés (M. ; Mr ; Mme ; Melle) et certaine personne, d'un fichier à un autre peuvent avoir un intitulé différent.

La bonne solution ne serait-elle pas de nettoyer ces fichiers une bonne fois pour toute plutôt que d'essayer de trouver des solutions pour s'adapter à une mauvaise situation ?
Dans la même situation, j'exigerai de commencer par nettoyer le fichier et de l'épurer de ses intitulés.
A grands coup de Remplacer "Mr " par "", "Mr. " par "", "Melle " par "", etc. ça ne devrait pas prendre plus d'une minute ou deux et on repartirait sur une situation plus saine.

[Tooth]

Merci à tous pour vos réponses, comme d'habitude très rapide et complète

Le code proposé par Theze fonctionne très bien, je n'avais pas pensé à la solution de supprimer directement dans la feuille mais dans le cas présent, ça ne pose aucun problème. Merci pour le code en tout cas !

@ Marc-L

En effet, dans la plus part des cas on traite les données avec les matricules, la ce sont des données directement exportés de SAP et non traités par matricule (plus simple également pour le métier d'analyser des noms plutot que des chiffres), je joues avec les cartes que l'on m'a donné

La bonne solution ne serait-elle pas de nettoyer ces fichiers une bonne fois pour toute plutôt que d'essayer de trouver des solutions pour s'adapter à une mauvaise situation ?

En faite, actuellement, le fichier contient un bon 100k de données, sans macro, c'est assez long quand même et les fichiers xml sont des données directement exportés de SAP, donc pour faire des modifs dessus, il faut faire appel à l'éditeur, et les prestations de chez SAP sont à la hauteur du prix du logiciel

[Menhir]

En faite, actuellement, le fichier contient un bon 100k de données, sans macro, c'est assez long quand même et les fichiers xml sont des données directement exportés de SAP, donc pour faire des modifs dessus, il faut faire appel à l'éditeur, et les prestations de chez SAP sont à la hauteur du prix du logiciel

Ou bien faire une macro qui puisse faire ces modification en un clic en enchaînant les Replace qui vont bien.