Discussion :

[piroli5]

Bonjour à tous,

Je suis nouveau dans le monde de VBA et suis à la recherche d'une macro qui me semblait simple, mais qui s'avère assez compliquée, au vu de mon faible niveau :
Dans un fichier Excel, j'ai deux feuilles (Sheet1 et Sheet2 pour simplifier).

Sheet2 contient une liste de valeurs en deux colonnes, et Sheet1 contient une liste de valeurs extraites d'un programme, qu'il faudrait modifier en fonction de la liste de valeurs de Sheet2.
Les cellules de la première colonne, à partir de B12 sont une correspondance, et contiennent une partie de caractères communs à partir de la fin (Fct Excel "Right"), à laquelle il ne faut pas toucher. Sur la même ligne, la cellule de la colonne D contient le texte à modifier.
Donc :
Sheet 2 (données sources)
Colonne A :
- TexteRef1
- TexteRef2

Colonne B
- MessageRef1
- MessageRef2


Sheet1 (données à modifier)
Colonne B (à partir de ligne 12)
- TexteExtr1
- TexteExtr2
Colonne D (à partir de ligne 12)
- MessageAmodifier1 (doit contenir la valeur de Colonne B de Sheet2, mais sur la ligne pour laquelle TexteExt1 contient le contenu de la case "TexteRef")
- MessageAmodifier2 (doit contenir la valeur de Colonne B de Sheet2, mais sur la ligne pour laquelle TexteExt2 contient le contenu de la case "TexteRef")

Je pensais avoir trouvé une base sur ce lien, mais cela ne fonctionne malheureusement pas...
Vba-remplacement-contenu-cellules-d-range-defini-filtre

Quelqu'un aurait-il une idée et pourrait-il m'aider?

Merci beaucoup!
Olivier

[Pierre Fauconnier]

Salut.

C'est un one shot ou tu auras à réaliser cela régulièrement? Si c'est un one shot, il serait plus intéressant de te tourner vers des formules Excel que vers du VBA

[piroli5]

Bonjour et merci pour votre réponse.

Ca serait effectivement une routine à plusieurs reprises. Le contenu à remplacer serait toujours le même, mais la liste de sheet1 est aléatoire par contre.

Merci,
Olivier

[Pierre Fauconnier]

Tu pourrais donner une copie d'écran de l'avant/après?

[piroli5]

Voici =)

[Pierre Fauconnier]

En partant du principe (observé sur ta copie d'écran) que dans le chemin, le remplacement de la racine commune permet de se retrouver avec un seul \ dans la valeur extraite, on pourrait utiliser ce qui suit. Après, on peut utiliser VBA pour automatiser cela




On peut aussi partir en full VBA, mais je privilégie souvent l'utilisation des fonctions natives d'Excel, quitte à les enrober de VBA pour l'automatisation.

[piroli5]

C'est effectivement une bonne piste, mais je n'ai pris que les quelques premières lignes. Dans les lignes suivantes, il y a parfois plus de "/" après la partie commune
Voici un printscreen avec les différentes possibilités à ce jour (mais tout resterait dans le même style de toute façon)
Au niveau de "AHUXX", dans la partie "référence extraite", cela pourrait être AHU01 ou AHU02 ou encore autre chose dans ce style. Du côté source (Sheet2), par contre, ça ne bouge pas...

Bien à toi,
Olivier

[Pierre Fauconnier]

A ma connaissance, il n'existe pas de possibilité de retourner une chaîne par formule dans Excel, même en formule matricielle.

En créant une fonction personnalisée qui le fait en VBA, on peut s'affranchir de la racine commune.

La fonction, à mettre dans un module standard de ton classeur (c'est tout bête, elle existe en VBA)

Code :

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

1
2
3
Function Retourne(Value As String) As String
  Retourne = StrReverse(Value)
End Function

Son utilisation

[piroli5]

Merci beaucoup! J'ai pris ce que tu proposais en base de ce que je devais faire, c'est magnifique. Tu viens de me faire gagner des heures et des heures de travail!