Remplacement d'une valeur

[mathieu13950]

Bonjour,

J'ai un fichier comportant 3 colonnes. Dans ma deuxième colonne, j'ai des numéros de comptes qui apparaissent, et pour chaque ligne d'un numéro de compte j'ai un code. J'aimerai que ce code soit remplacé par le numéro de compte correspondant. Quelqu'un pourrait m'aider ?

Merci par avance.

Je vous joins le fichier en état brut et avec le résultat que j'aimerai obtenir.

Merci

Bonne journée

 

[JBOBO]

Re : Remplacement d'une valeur

Bonjour,

Un essai avec une formule à placer en D3 puis à tirer vers le bas :

=SI(B3="";"";SI(ESTNUM(CNUM(GAUCHE(B3;8)));B3;SIERREUR(EQUIV("6???????";B4;0);D2)))

Puis faire un copier/collage spécial/Valeurs de la colonne D vers la colonne B

 

[Victor21]

Re : Remplacement d'une valeur

Bonjour, Mathieu13950

Essaie :

Sub remplace()
Dim Cell As Range
For Each Cell In [B2:B45]
If Cell.Offset(0, -1) <> "" Then
Cell = Cell.Offset(-1, 0)
End If
Next

End Sub

 

[mathieu13950]

Re : Remplacement d'une valeur

Bonjour JBOBO et Victor21,

JBOBO , la formule marche pas : il me trouve bien le compte mais quand c'est un code au lieu de me mettre le compte il me met : NOM?.

Victor21, La formule marche parfaitement. Je vais l'arranger pour l'adapter à mes colonnes.

Merci en tout cas à tous les deux de vous être penché sur mon petit problème

Bonne fin de journée à vous 2...

Mathieu

 

[JBOBO]

Re : Remplacement d'une valeur

re,

Bizarre, chez moi ça fonctionne !

Voir Piece jonte !

 

[mathieu13950]

Re : Remplacement d'une valeur

Re, JBOBO,

En fait ça marche...je sais pas pourquoi hier ça ne fonctionnait pas.

En tout cas merci

Bonne journée

 

[Victor21]

Re : Remplacement d'une valeur

Re,

En plus court, toujours en D3 à recopier vers le bas:

=SI(A3="";B3;D2)