Je souhaiterai remplacer toutes les chaines de caractères de la colonne A par une autre chaine de caractère.
L'opération à effectuer consiste à remplacer les chaines de CHAQUE cellule de la colonne A par une autre.
Ainsi, MMM-xxxxx est à remplacer par xxxxx, ou xxxx est une chaine de longueur variable. Il faut donc supprimer 4 caractères (en incluant le tiret) et écraser la cellule source par xxxx.
Merci à toi, je vais le tester pour informations personnelles... Mais en appliquant ta formule telle quelle sous Excel et en déplacant le curseur vers le bas tout s'est mis automatiquement à incrémenter et hop bella e la vita!!
Salut "carriere"
salut "Munchkin "
dans le même style que "Munchkin "
Sub Ecrase()
Dim Val2 As String
Dim cell As Range
Dim L As Integer
L = Range("A65536").End(xlUp).Row
For Each cell In Range("A2:A" & L) 'données en colonne A
If cell.Value <> "" Then
Val2 = Right(cell, Len(cell) - 4)
cell = Val2
End If
Next
End Sub
A+++
Jean Marie