Discussion :

[eric4459]

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

[parmi]

Bonjour,

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

Code :

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

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

Ça pourrait être modifié avec des variables

Code :

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

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

[eric4459]

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 :

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
 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?

[parmi]

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

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
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

[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