remplacement celulle

[Moreno076]

Bonsoir

Dans le fichier ci joint je n'arrive pas à remplacer les cellules avec un "R" par "Rupture".
J'ai essayé de mettre une macro elle ne fonctionne pas. C'est un fichier complexe peut être ne l'ai je pas mis au bon endroit. Les R proviennent de l'onglet Ruptures qui est téléchargé d'un autre classeur

Merci pour le coupe de main dans le fichier ci joint

 

[jpb388]

Re : remplacement celulle

bonsoir à tous
dans la macro
Sub RechercheDoublon()

aprés
Dim i&, j%, Derlg&, DerlgWMS&, Lg&, Cpt%, Trouvé As Boolean, Mot() As Variant, WMS As Worksheet
Set WMS = Sheets("WMS")
Derlg = Range("B" & Rows.Count).End(xlUp).Row
DerlgWMS = WMS.Range("B" & Rows.Count).End(xlUp).Row
For i = 2 To Derlg

mettre

if cells(i,7)="R" or cells(i,7)="r" then cells(i,7)="Rupture"

je n'ai pas testé mais cela devrait être ok

 

[Moreno076]

Re : remplacement celulle

yes !!!!

Merci et bonne nuit !!! 😛