Fonction Vlookup VBA

Version imprimable

14/04/2014, 15h48
eric4459

Fonction Vlookup VBA

Bonjour,
J'ai une feuille nommée "data" dans un classeur avec plusieurs colonnes, l'une de ces colonnes (colonne G) contient des données textes, il peut y avoir un nombre important de lignes.
Ces données sont issues d'une liste de choix dont la source se trouve sur une autre feuille nommée "WBS" en colonne B.
Je souhaites import cette feuille excel dans une application particulière (Primavera), or je ne peux importer du texte que dans une limite du nombre de caractères.
J'ai donc créé un code correspondant à chacune des données de ma liste de choix en colonne D de ma feuille WBS.

En colonne G feuille "data" j'ai "CONCEPT SELECTION" de ma ligne 2 à ma ligne 10, puis "CONCEPT DEFINITION" etc..

En colonne B de ma feuille "WBS" j'ai en ligne 2 " CONCEPT SELECTION"
en ligne 3 " CONCEPT DEFINITION"

En colonne D de ma feuille "WBS" j'ai en ligne 2 "CD"
en ligne 3 "CS"

Je souhaite remplacer dans la feuille "data" les données de la colonne G par les données de la colonne D de la feuille "WBS" qui correspondent

J'ai pensé utiliser la fonction Vlookup en VBA mais je bloque sur les paramètres à utiliser, je connais un peu le VBA mais pas suffisamment pour mon problème.
Merci d'avance pour vos conseils ou votre aide
14/04/2014, 16h34
parmi

Bonjour,

Je pense qu'un simple Replace pourrait faire l'affaire.

Code:

Sheets("Data").columns("G").Replace "CONCEPT SELECTION", "CS"

Ça pourrait être modifié avec des variables

Code:

Sheets("Data").columns("G").Replace Original, Remplacement

Donc, à partir d'une boucle dans la feuille WBS, tu lis chaque valeur en B et D et tu remplaces toute la colonne G de Data

Bonjour,
Je ne connais pas non plus la fonction replace, voici le code que j'ai commencé mais lorsque la condition est atteinte la macro s'arrete et repart sur la premiere Sub de mon module.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 Sub Activity_code()
ActiveWorkbook.Sheets("WBS").Activate
Dim i As Integer
       Dim data As Worksheet
       Set data = ActiveWorkbook.Sheets("WBS")
        i = 1
        j = 1
        While data.Cells(i, 2) <> ""
        If Sheets("data").Cells(j, 7) = data.Cells(i, 2) Then
        Sheets("data").Cells(j, 7).Replace Sheets("data").Cells(j, 7), data.Cells(i, 4)
        End If
         i = i + 1
        j = j + 1
        Wend
 
 
End Sub

Que dois-je y mettre?

En reprenant ta méthode, j'irais comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim i As Integer
Dim data As Worksheet
Dim Valeur as String, Remplacement as String
       Set data = ActiveWorkbook.Sheets("WBS")
        i = 1
        While data.Cells(i, 2) <> ""
           Valeur = data.Cells(i, 2) 
           Remplacement = data.Cells(i, 4) 
 
           Sheets("data").Columns("G").Replace Valeur, Remplacement
 
           i = i + 1
        Wend
 
End Sub

14/04/2014, 18h02
eric4459

Merci beaucoup, cela fonctionne parfaitement.
Le code que j'ai créé commence à fonctionner, j'ai un petit problème d’incrémentation de i et j que j'essayerai de résoudre plus tard pour le fun en attendant j'utiliserai votre proposition, que je dois adapter tout de même car il faut répéter l’opération sur d'autres colonnes.
Merci encore