Remplacer un nombre mais pas le chiffre en VBA

Version imprimable

Bonjour à toutes et a tous,

Voila mon problème j'aimerais utiliser un bouton pour actualiser des valeurs dans un tableau pour ce faire j'utilise la macro suivante :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub Actualiser_Click() Dim J As Long, I As Long J = 10 For I = 1 To 5 Columns("AA").Replace what:=Range("B" & J).Value, replacement:=Range("D" & J).Value Range("B" & J).Value = Range("D" & J).Value J = J + 2 ' Opération utilisé pour sélectionner les bonne cellule Columns("AB").Replace what:=Range("B" & J).Value, replacement:=Range("C" & J - 1).Value Range("B" & J).Value = Range("C" & J - 1).Value J = J + 1 Next I End Sub
Cette macro fonctionne bien, mais le problème c'est qu'elle ne va pas changer le nombre, elle va changer le chiffre

Ce qui veut dire : si je veut changer 14430 par 2, Cela va fonctionner. Par contre si par la suite je veut changer a nouveau le 2 en 14430, et qu'une valeur comme 14432 se trouve dans la colonne alors la valeur 2 va bien se transformer en 14430 mais la valeur 14432 se trouvant déjà dans la colonne et qui ne doit pas être modifée va se transformer en 144314430.

Avez vous une solution a mon problème.

13/10/2017, 14h58
MarcelG

Replace

Bonjour,

2 remarques préliminaires:
- Pour le report d'un code, utilise les bornes "#" en début et fin. Cette précaution facilitera la lecture du post.
- Vérifie si les variables I et J doivent être déclarées en Long (Voir le tutoriel de Silkyroad à ce sujet)

Peut-être une piste:
Balayer les objets Range cellule par cellule pour effectuer tes remplacements mais au préalable enrichir un dictionnaire de son adresse.
Pour le remplacement suivant, tester l'existence de cette adresse dans le dictionnaire.

Je vais quitter le Forum bientôt.

Mais RV à lundi.
13/10/2017, 15h26
Menhir

Citation:

Envoyé par ToToPifou

Ce qui veut dire : si je veut changer 14430 par 2, Cela va fonctionner. Par contre si par la suite je veut changer a nouveau le 2 en 14430, et qu'une valeur comme 14432 se trouve dans la colonne alors la valeur 2 va bien se transformer en 14430 mais la valeur 14432 se trouvant déjà dans la colonne et qui ne doit pas être modifée va se transformer en 144314430.

Avez vous une solution a mon problème.

Regarde le paramètre LookAt de Replace.
https://msdn.microsoft.com/fr-fr/lib.../ff194086.aspx
13/10/2017, 15h30
ToToPifou

merci Marcel pour ta réactivité

Je ne pense pas que les variable I et J puissent avoir une influence sur la fonction replace étant donner qu'elles servent d'incrément.

je ne sais pas encore me servir de dictionnaire. mais une des solution qui pourrais fonctionner serais de réaliser l'actualisation avec des chaînes de caractère ayant le même nombre de caractères. mais si tu as ou quelqu’un a une solution pour que je ne sois pas limité en longueur de chaîne de caractère je suis preneur.
13/10/2017, 15h38
Menhir

Citation:

Envoyé par ToToPifou

une des solution qui pourrais fonctionner serais de réaliser l'actualisation avec des chaînes de caractère ayant le même nombre de caractères.

Une autre solution serait de lire l'aide VBA de la fonction Replace... :roll:
13/10/2017, 15h39
ToToPifou

Citation:

Envoyé par Menhir

Regarde le paramètre LookAt de Replace.
https://msdn.microsoft.com/fr-fr/lib.../ff194086.aspx

Cela me semble être la solution par contre je ne vois pas comment utiliser se fameux LookAt, il me semble qu'il faut l'utiliser avec xlWHOLE mais je ne vois pas quelle syntaxe utiliser.

Parfait ! j'ai trouvé la syntaxe qui était évidente en fin de compte

la solution :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
    For I = 1 To 5
  
    Columns("AA").Replace what:=Range("B" & J).Value, replacement:=Range("D" & J).Value, LookAt:=xlWhole
    
    
    Range("B" & J).Value = Range("D" & J).Value
    J = J + 2
    Columns("AB").Replace what:=Range("B" & J).Value, replacement:=Range("C" & J - 1).Value, LookAt:=xlWhole
    Range("B" & J).Value = Range("C" & J - 1).Value
    J = J + 1
  
  Next I

Merci