VBA - Utilisation d'une table interne pour remplacer les valeurs ?

1 pièce(s) jointe(s)

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

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 ?

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 ?

Pour te créer une table :

Code:

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

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

Citation:

Envoyé par Max_Mer

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

@ Menhir : J'avoue que je ne me suis pas encore pose la question.
Surement sur un share point avec des instructions pour copier la macro ...
Ou alors je peux directement deposer un fichier vierge sur le share point avec la macro et donc une feuille cache contenant le tableau de conversion.
C'est une possibilité également...

Est-ce que ce code peut répondre à mon remplacement ?
Pour rappel, j'ai 30 unites à convertir (EN --> FR) et j'ai plus de 100.000 lignes dans mon fichier.
Si vous avez une solution plus rapide, un meilleur code, je suis preneur ;-)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Dim cell As Variant Range("A1").Select Selection.CurrentRegion.Select For Each cell In Selection cell.Value = Replace(cell.Value, "Ã©", "é") Next cell For Each cell In Selection cell.Value = Replace(cell.Value, "Ã§", "ç") Next cell For Each cell In Selection cell.Value = Replace(cell.Value, "Ã«", "ë") Next cell For Each cell In Selection cell.Value = Replace(cell.Value, "Ã¨", "è") Next cell For Each cell In Selection cell.Value = Replace(cell.Value, "Ã´", "ô") Next cell