VBA : traitement via une liste de données

Version imprimable

20/03/2014, 09h03
dttpedt

VBA : traitement via une liste de données
Bonjour,

J’ai un petit problème de noms tronqués dans un tableau Excel, je m’explique :

En amont, Je réalise plusieurs traitements qui ont pour finalités de me donner un fichier de données du type :

Fichier 1.xlsx
```
            A                  B

1   Nom                  Valeurs
2 YAN                       1
3 PAU                     30
4 DIDI                     15
5 etc....
```
J’ai simplifié mon exemple !

Le problème, c’est que les traitements ont tronqués les noms (limite de 31 caractères : nom onglets Excel --> récup des nom d'onglet et création du tableau).
Du coup PAUL devient PAU, YANN devient YAN etc….

J’ai une base de données à coté qui me permettrait de renommer ces données.

Source.xlsx
```
            A                  B

1      Index               Nom
2       1                    PAU                   
3       3                    YAN                     
4       7                    DIDI                     
5       8                    etc....
```
Je souhaiterais savoir s’il est possible de réaliser une macro sous VBA pour automatiser le traitement afin d’obtenir un tableau final qui reprendrait les données suivantes pour un résultat comme ci-dessous :

Fichier 2.xlsx
```
            A                  B                   C

1      Index               Nom             Valeurs
2       1                    PAUL                 1   
3       3                    YANN                30   
4       7                    DIDIER              15  
5       8                    etc....
```
Pour finir, il faut savoir que le fichier 1.xlsx peut avoir un nombre de ligne variable.

D’avance merci pour votre aide.
20/03/2014, 10h12
Daniel.C

Bonjour,

Oui, c'est peut-être possible. Qu'est-ce que tu fais en cas de doublon sur les noms YAN pour YANN et YANNICK par exemple. Où est-ce que tu prends la donnée "Valeurs" ? Quel est ton niveau de connaissances VBA ?
20/03/2014, 11h16
dttpedt

1 pièce(s) jointe(s)

Dttpedt

Bonjour Daniel,

Je suis débutant en vba je sais adapter une macro à mes besoins.

En principe il n'y a pas de doublons sinon c'est une erreur que je peux voir rapidement et corriger.

Les données Valeurs sont dans le 1er fichier comme ci-dessous : elles sont liées au nom.

Pièce jointe 140972

Merci de ton aide.
20/03/2014, 11h25
Daniel.C

Fournis au moins un fichier, pas une image avec la correspondance entre les noms abrégés et les noms entiers.
20/03/2014, 11h36
dttpedt

3 pièce(s) jointe(s)

Oui désolé, en effet c'est plus pratique.

voilà.

Pièce jointe 140975
Pièce jointe 140976
Pièce jointe 140977

Mets cette macro dans un module standard.

Code:

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 test()
    Dim Sh1 As Worksheet, Sh2 As Worksheet, Plage As Range, C As Range
    Dim Ligne As Long, Plage2 As Range, X As Range
    Ligne = 1
    Set Sh1 = Workbooks("Fichier 1.xlsx").Sheets("Feuil1")
    Set Sh2 = Workbooks("Source.xlsx").Sheets("Feuil1")
    With Sh1
        Set Plage = .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
    End With
    With Sh2
        Set Plage2 = .Range(.[B2], .Cells(.Rows.Count, 2).End(xlUp))
    End With
    With ThisWorkbook.Sheets("Feuil1")
        .[A1:C1].Value = Array("Index", "Nom", "Valeurs")
        For Each C In Plage
            For Each X In Plage2
                If InStr(1, X.Value, C.Value) = 1 Then
                    Ligne = Ligne + 1
                    .Cells(Ligne, 1).Value = X.Offset(, -1).Value
                    .Cells(Ligne, 2).Value = X.Value
                    lig = Application.Match(X.Value, Sh2.[B:B], 0)
                    .Cells(Ligne, 3).Value = Application.Index(Sh2.[A:A], lig, 1)
                    Exit For
                End If
            Next X
        Next C
    End With
End Sub

20/03/2014, 13h53
dttpedt

Daniel,

Ça marche nickel !

Merci de ton aide.