chaines de caracteres_ toutes simples :-)

[carriere]

Bonjour à tous


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 à tous !!

 

[Munchkin]

Bonjour Carriere

est ce que la forme MMM- c'est standard pour toute les cellules?

Munchkin

 

[Munchkin]

si c'est le cas il faudra faire


cellule = Right(cellule,Len(cellule - 4)) ca dervra marché

j'espère que c'est ca
Munchkin

 

[-€ric-]

Salut @ tous,

Soit, en français :

=DROITE(A1;NBCAR(A1)-4)

Bye et @+

- €ric -

 

[carriere]

Oui, la forme MMM- s'applique à TOUTES les cellules.

Comment faire pour que toutes les cellules d'une colonne soient modifier.

Je vois pas comment faire une boucle pour qu'il y ait un compteur qui soit incrémenter à chaque nouvelle celllule : A1, A2, A3 etc...


Merci à toi

 

[Munchkin]

mmmm là je ne suis pas un pro

ce que je fais


dim ligne as integer

ligne = 1
cellule = cells(ligne,1)

while cellule <>""
cellule = Right(cellule,Len(cellule - 4))
ligne = ligne +1
cellule = cells(ligne,1)
wend


à tetster, je n'ai pas essayé
Munchkin

 

[carriere]

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!!

Merci du coup de main,

bonne journée !

 

[le CH'TI160]

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

 

[Munchkin]

Voilà ca c'est la solution qu'il faut Jean Marie.

je ne sais pas pourqoui je choisis toujours l'autre solution mais celle là je te la conseil carriere car c'est la bonne facon de faire les choses

Munchkin