Extraction de la partie droite d'une chaine de caractère

[loulou]

Pour des besoins de traduction,
Je cherche à extraire d'un ensemble de cellule (même colonne), la partie droite figurant àprès le signe = et mettre le résultat dans une autre colonne
exemple --> AIDE=Adresse électronique.
donnerait --> Adresse électronique.

TEST. SANS RESULTAT ne rendrait rien

Une fois traduit il me faut aussi une autre formule me permettant de remplacer la partie à droite du signe = par le contenu d'une autre cellule

Merci d'avance de votre aide

 

[Goodparts]

Hello Loulou et le Forum,

Je vous souhaites à tous une bonne & heureuse année 2004.

Pour ton problème, je te propose :
=DROITE(A1;NBCAR(A1)-CHERCHE("=";A1))
Pour la 2ème partie de ton problème, pourquoi ne cache tu pas simplement ta colonne.

Goodparts

 

[coyote]

A1 : AIDE=Adresse électronique

Y a peut-être plus simple mais voici déjà une solution en 3 étapes


d'abord trouvé la position du caractère "="
en B1 par exemple
=CHERCHE("=";A1)

puis calculé le nombre de caractère de A1
en C1 par exemple
=NBCAR(A1)

puis extraire la partie droite qui vous interesse
en D1 par exemple
=DROITE(A1;C1-B1)

********

Tout peut être aussi combiner dans la même formule
en B1 par exemple
=DROITE(A1;NBCAR(A1)-CHERCHE("=";A1))

 

[coyote]

Goodpart dégaine plus vite (mouuuuaaaaaaarrrrrrrrrrrffffffffffff)

 

[Goodparts]

Sorry Coyote, mais je pense que je descends de la lignée des Bip-Bip...

 

[michel]

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

 

[Fabien]

Merci pour ces infos qui m'ont bien aidé