bonjour Loulou , Goodparts et Coyote
bon début d'année 2004
ci joint une solution par VBA
Les valeurs à trier sont dans la colonne A . Quand le caractere "=" est trouvé , la partie droite de la cellule s'affiche dans la colonne B et ( si j'ai bien compris ta demande ) la partie à droite du signe = est remplacé par le contenu de la cellule E1( par exemple )
Sub ExtractionCaractere()
Dim Debut As Byte
Dim Cell As Range
' les cellules à modifier sont dans la colonne A
' l'extraction de la partie droite est affichée dans la colonne B
For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
Debut = InStr(1, Cell, "=")
If Not Debut = 0 Then
Cell.Offset(0, 1) = Right(Cell, Len(Cell) - Debut)
Cell = Left(Cell, Debut) & Range("E1") ' la valeur de remplacement est dans la cellule E1( à adapter)
End If
Next Cell
End Sub
bon apres midi
michel