Discussion :

[ToToPifou]

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 :

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

[MarcelG]

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.

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

[Menhir]

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

[Menhir]

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

[ToToPifou]

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.

[ToToPifou]

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

la solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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