Discussion :

[Max_Mer]

Hello à tous,

Je suis devant une nouvelle colle et j'espère que vous allez pouvoir m'aiguiller

En pièce jointe, vous trouverez un fichier joint pour comprendre ce que je souhaite.

L'objectif du code est le remplacement d'une valeur par une autre.
Concrétement, j'ai 39 valeurs à remplacer dans une plage de plus 200.000 lignes.
(des unites Anglophones par des unites francophones)
Il est facile de faire un remplacer par ... qui passerait en revue la selection pour la 1ere valeuer
la seconde valeur, etc ... jusqu'à la 39eme valeur
mais je pense que cela prendra beaucoup de temps.

Donc je me demandais si il n'est pas possible de créer une table interne au niveau du code pour stocker les conversions ?
Le code utiliserait cette table pour faire les conversions.
Il ne m'est pas possible de demander à chaque utilisateur de créer cette table au niveau de leur fichier, parce que cela favoriserait les erreurs.

Merci d'avance pour l'aide que je l'espère vous allerz m'apporter ;-)
Bien à vous,
Max_Mer

[joe.levrai]

Bonjour,

les valeurs à remplacer :

- sont des valeurs exactes ? C'est à dire que les cellules qui doivent être remplacées ne contiennent que la valeur initiale à remplacer par la valeur finale ?

- sont isolées à des colonnes définies ?

[Menhir]

Pourquoi ne pas simplement te faire un tableau de deux colonnes (unités anglophones et unités francophones) dans Excel que tu scruterais avec une boucle For to et qui ferait les conversions les unes après les autres ?

[Docmarti]

Pour te créer une table :

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
18
19
20
21
22
23
24
25
26
27
Public Ma_Table()
 
Sub CreerMaTable()
 
t_AN = "EA  ,GLO, PC , KAN"
t_FR = "UN  ,UO , PCE, CAN"
 
un_AN = Split(t_AN, ",")
un_FR = Split(t_FR, ",")
 
ReDim Ma_Table(LBound(un_AN) To UBound(un_AN), 1 To 2)
 
For i = LBound(un_AN) To UBound(un_AN)
 
 Ma_Table(i, 1) = Trim(un_AN(i))
 Ma_Table(i, 2) = Trim(un_FR(i))
 
Next
End Sub
 
Sub Programme()
 Call CreerMaTable
 For i = LBound(Ma_Table) To UBound(Ma_Table)
  Debug.Print Ma_Table(i, 1), Ma_Table(i, 2)
 Next
 
End Sub

[Max_Mer]

Hello,

Merci à tous pour vos réponses.

@ joe.levrai : oui, en effet, mes valeurs sont exactes, je dispose déjà d'une table de conversion.
Les valeurs initiales sont isolées dans une seule colonne dans une des feuilles de mon classeur.

@ Menhir : pour ma part, cela ne me derange pas de créer une feuille supplémentaire.
Mais je ne suis pas le destinataire de la macro, un grand nombre d'utilisateurs vont l'utiliser. C'est pourquoi je ne peux pas demander à chacun de créer une
nouvelle feuille, il y aura des erreurs de copie ...
La solution que tu proposes serait de créer un fichier sur un server accessible pour les users et rapatrier les valeurs lors de execution de la macro ?

@ Docmarti : Merci pour le code,
Je vais essayer de le comprendre et l'adapter à mon cas.
Je reviendrai vers toi avec le résultat.

Bien à vous et encore merci.
Max_Mer

[Menhir]

@ Menhir : pour ma part, cela ne me derange pas de créer une feuille supplémentaire.
Mais je ne suis pas le destinataire de la macro, un grand nombre d'utilisateurs vont l'utiliser. C'est pourquoi je ne peux pas demander à chacun de créer une nouvelle feuille, il y aura des erreurs de copie ...

Comment ta macro est-elle transmise/utilisée ?