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 ?

[Max_Mer]

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

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