Bonsoir Julien.D
J'ai mis
plus de commentaires dans mes codes pour mieux les expliquer.
Les codes se trouvent à 3 endroits:
- dans des modules de code de nom Module1, Module2,... (un module par feuille de tableaux).
- pour chaque feuille de tableaux, un peu de code dans le module de code de la feuille pour l'évènement change (détection d'un changement d'un des montants en euro dans les tableaux de la feuille considérée) .
- pour la feuille "Présentation Société" un peu de code son module de code pour l'évènement change (détection de changement de devise).
Dans le fichier joint, j'ai rajouté une feuille de tableau nommée ->
Micro-Usine Tablo2 pour décrire comment la prendre en compte au niveau du code. Dans cette feuille, les deux tableaux sont l'un en dessous de l'autre.
Au niveau de l'environnement VBA, pour le projet en cours:
- j'ai rajouté un module que j'ai nommé Module 2
- j'y ai copié l'ensemble du code de Module1
- j'ai modifié le nom de la macro en Convertir2
- j'ai modifié la constante CellulesSource (j'ai laissé dans la feuille la cellule I4 pour montrer comment j'ai construit la liste des cellules sources - voir astuce dans le code commenté)
- j'ai modifié la constante CellulesCible (j'ai laissé dans la feuille la cellule I7 pour montrer comment j'ai construit la liste des cellules cibles - voir astuce dans le code commenté)
- j'ai modifié le contenu de la variable FeuilTableau - Set FeuilTableau = Sheets("Micro-Usine Tablo2")
- Puis j'ai copié le code du module de la feuille "Micro-Usine PM6054 - TB1000F"
- Je l'ai collé dans le module de la feuille "Micro-Usine Tablo2"
- dans l'instruction If intersect(.... , j'ai collé la liste des adresses des cellules dans le range (attention le séparateur est ici la virgule !)
- et j'ai remplacé Convertir1 par convertir2
- Ensuite, je suis allé dans le code de la feuille "Présentation Société"
- j'ai rajouté une ligne vide sous l'instruction Convertir1
- et dans cette ligne vide, j'ai tapé : Convertir2
et pis c'est tout!
En espérant que cela puisse t'aider...