Discussion :

[mrmouche30]

Bonjourà tous,

Je cherche à réconcilier automatiquement des données issu de deux sources différentes pour s'assurer que tout va bien.

Je copie colle donc dans une feuille excel les données d'une source, j'ai déjà pu glisser dans ma macro, l'ajout d'une colonne avec formule dedans, retrait de ligne = 0, données triées dans un certain ordre en fonction de plusieurs critères.

J'aimerai maintenant pouvoir remplacer le contenu d'une cellule par une autre valeur.

Je m'explique dans une colonne j'ai des cellules contenant "EUR F/I" et "USD F/I" j'aimerai pouvoir changer le contenu de ces cellules par "EUR" et "USD" lorsque c'est necessaire.

J'ai essayé plusieurs codes :

Code :

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

1
2
3
4
5
 
With Sheets("Apex")
       Sheets("Apex").cell.Value = Replace(Sheets("Apex").cell, "EUR F/I", "EUR", 1)
     Sheets("Apex").cell.Value = Replace(Sheets("Apex").cell, "USD F/I", "USD", 1)
 End With

Ou

Code :

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

1
2
3
4
 
 For Each cell In Range("Apex!N1").CurrentRegion.Columns
       Sheets("Apex").cell.Value = Replace(Sheets("Apex").cell, "EUR F/I", "EUR", 1)
   'Next cell

Mais ça ne fonctionne pas, est-ce un petit soucis dans mon code ou je ne suis pas du tout dans la bonne direction ?

Merci d'avance

[BENNASR]

bonsoir
essaye avec ça :

Code :

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

1
2
3
Sub rechetreplace()
Range("A1:G40").Replace What:="toto", Replacement:="titi", LookAt:=xlPart
End Sub

[Menhir]

Une structure With n'est pas une boucle.
https://msdn.microsoft.com/fr-fr/VBA...with-statement

Dans ton second code, cell contient la référence à une plage correspondant à une colonne entière puisque tu as ajouté Columns.
Alors que ton Replace ne peut travailler qu'avec les données d'une seule cellule à la fois.

Etant donné que c'est un objet, elle intègre sa référence complète. Il est donc inutile de mettre son parent ( Sheets("Apex") ).

Mais en fait tout ça pourrait se faire en deux lignes en utilisant la méthode Replace de Range (qui équivaut à la commande Remplacer dans Excel).
https://msdn.microsoft.com/fr-fr/lib.../ff194086.aspx
Eventuellement, un petit coup d'enregistreur automatique de macro te donnera un code presque tout cuit.

[mrmouche30]

Super merci beaucoup à tous les deux,

Là je viens de faire un code du style :

Code :

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

1
2
3
4
5
6
7
8
 
Sheets("Apex").Columns("G").Replace _
 What:="EUR F/I", Replacement:="EUR", _
 SearchOrder:=xlByColumns, MatchCase:=True
 
Sheets("Apex").Columns("G").Replace _
 What:="USD F/I", Replacement:="USD", _
 SearchOrder:=xlByColumns, MatchCase:=True

J'aimerai qu'il soit plus propre, je me demande pourquoi ça ne fonctionne pas quand je fais comme ça:

Code :

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

1
2
3
4
5
 
Sheets("Apex").Columns("G").Replace _
What:="EUR F/I", Replacement:="EUR", _
What:="USD F/I", Replacement:="USD", _
SearchOrder:=xlByColumns, MatchCase:=True

[Menhir]

Essaye dans Excel de faire deux remplacements différents en une seule commande : impossible.
C'est la même chose en VBA étant donné que, ici, tu manipules exactement l'objet que la commande Excel.

Si tu veux faire plus simple, supprime le SearchOrder qui ne sert à rien étant donné que tu n'appliques le Replace qu'à une seule colonne.

[mrmouche30]

Merci du conseil,

Je pense que je vais le garder, je risque d'en avoir besoin dans le futur si je refais la même chose avec plusieurs colonnes, je retournerai probablement dans mes anciennes macro pour me donner des idées .

Bonne fin d'après midi

[Menhir]

Le SearchOrder peut être utile pour une recherche ou si l'on ne veut remplacer que la première occurrence.
Si on veut tout remplacer d'un coup, ça n'a vraiment aucune utilité.

Si tu veux faire un remplacement dans la zone A1:E10, peut t'importe de savoir si B5 a été remplacé avant D2 puisque, au final, les deux seront remplacés sans que tu ais même le temps de voir lequel est passé en premier.