remplacer une partie d'une chaine

[anna]

Bonjour le forum
j'espere que vous avez passez un bon WE.
bon retour au boulot et a l'enigme des macro excel 🙂
voila mon problem (enfin c deux problem lies):
le premier : je n voudrai recupere que les dernier caracter d'une chaine a partir du caracter '/':
j ai essaier cette macro mais je n recupere pas tout ce que je veut cad
pour 02/02/0222 je n ai que 222 au lieu de 0222
voila l a macro:

iderligne = Range('B65536').End(xlUp).Row
For X = 2 To iderligne
slash1 = InStr(Cells(X, 2), '-')
slash2 = InStr(slash1 + 1, Cells(X, 2), '-')
If slash2 = 0 Then
slash2 = Len(Cells(X, 2))
Cells(X, 2) = Mid(Cells(X, 2), slash1 + 1, slash2 - slash1)

Else
Cells(X, 2) = Mid(Cells(X, 2), slash1 + 1, slash2 - slash1 - 1)

End If
Next

La deuxieme partie:
a l aide d'une macro je voudrai modifier chaque celule contenant une chaine de caractere par une autre mais en ne modifiant qu'une partie de cette chaine delimite par le caracter '-'
Vaut mieux un exemple n'est ce pas?
alors voila j ai deux colonne A qui contient ma chaine et B qui contient le bout de la chaine a remplace:*


A ---------------------------------- -- B
122302-00-A000-STA-00010 ------------------ xx
122302-01-A000-STA-0001 ------------------ xx
122302-01-A000-STA-0001 ------------------ xx
122302-01-A000-STA-0001 ----------------- xx
122305-0222-S000-STA-0001 ------------------ xx
122305-0222-S000-STA-0001 ------------------ xx







le resultat sera alors
A
122302-xx-A000-STA+0001
122302-xx-A000-STA+0001
122302-xx-A000-STA+0001
122302-xx-A000-STA+0001
122305-xx-S000-STA+0001
122305-xx-S000-STA+0001

j ai fais un petit exemple excel

 

[anna]

excusez moi j avais une petite erreur dan smon fichier
voila le nouveau
Merci bcq d avance

 

[anna]

decidement c dur les lundi voila le fichier en zip
Merci
Anna [file name=Remplacement.zip size=2058]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Remplacement.zip[/file]

 

[Hervé]

Bonjour

une proposition ci-jointe.

A cause de l'utilisation de split, cette soluce ne fonctionne pas avec excel 97, j'espère que ce n'est pas ton cas.

Salut
[file name=Remplacement2.zip size=8563]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Remplacement2.zip[/file]

 

[anna]

Bonjour,
j ai la version 200,ca devrai allez?
je vais vite essaie.
Merci 🙂

 

[ann]

Re,
j essaie dapdapter ton code a mes fichier mais comme j arrive pas a comprendre ce qu est tablo et tablo1 alors j ai un peu de mal,peux tu m expliquer STP.
dans mon cas j ai la chaine dan sla colonne B et celle qui contient les bout a traiter puis a remplacer dan sla colonne L et le resultat doit ecraser les donne ancien alors du coup je n vois pas comment faire le lien entre tablo et tablo1 et mes colonne.
excuser ma naivete mais je suis debutante.
Anna

 

[Hervé]

Re

Tu n’a pas a t’excusé d’être débutante. 🙂

Tu n’es pas tomber sur le plus pédagogue du forum en ma personne.

N’ayant pas beaucoup de temps, je vais juste t’expliquer comment modifié la macro pour l’appliquer à ton travail

For Each c In Range('a2:a8') correspond à la plage de départ à scanner, pour toi : (“b2:b???”)

C.offset(0,1) la cellule par rapport à c ou ce trouve le bout de chaîne, pour toi : c.offset (0,10)

L=2 le numéro de ligne de départ pour le renvoi des données

Range('d' & l) : l’endroit ou l’on veut renvoyer les infos (colonne D, ligne l), pour toi : range('b'&l)

et donc, la macro modifié :

Option Explicit
Sub Bouton1_QuandClic()
Dim c As Range
Dim tablo As Variant
Dim tablo1 As Variant
Dim i As Integer, l As Integer

l = 2

For Each c In Range('b2:b8')

    tablo = Split(c, '-')
   
    If InStr(1, c.Offset(0, 10), '/') > 1 Then
        tablo1 = Split(c.Offset(0, 10), '/')
        tablo(1) = tablo1(UBound(tablo1))
    Else
        tablo(1) = Format(c.Offset(0, 10), '00')
    End If
   
    For i = 0 To UBound(tablo)
        If i = 0 Then
            Range('b' & l) = tablo(i)
        Else
            Range('b' & l) = Range('b' & l) & '-' & tablo(i)
        End If
    Next i
    l = l + 1
Next c

End Sub

en espérant t'avoir aidé;

salut

 

[anna]

Re
tu explique tres bien Merci cependant courant tout mon prjet je n connais pas la taille (nbr de ligne) de mes fichier a l'avance alors du coup j utilisais que cette formule😛ar exemple


iderligne = Range('B65536').End(xlUp).Row
For x = 2 To iderligne
Cells(x, 2) = Replace(Cells(x, 2), '+', '-')
Next

alors comment remplacer ton range (b2:..) par mes cells(..)?
apres je n t embete plus promis.jusqu a la prochaine fois 😱
Anna

 

[Hervé]

re

Pour adapter la plage de la boucle for each :

range('b2:b'&range('b65536').end(xlup).row)

Salut

Editon : correction

Message édité par: Hervé, à: 13/06/2005 15:55

 

[anna]

Merci Bcq Hervé,
ca me mes une erreur mais je n vais pas te deranger plus que ca je vais a chaque traitement de fichier remplire a la main le numero de la dernier ligne
Merci
Anna

 

[Hervé]

re

la derniere ligne donnée ne peut pas créer d'erreur ????

vev90@wanadoo.fr

envoi moi ton fichier par mail, si tu veux ?

ou met le sur le forum si il rentre en taille.

Et tu ne me dérange pas, anna 🙂

Salut

 

[anna]

Merci mon ami 😉
voila le fichier (enfin j ai extrait que les colonne a traiter!!)
j ai fais un exemple du resultat mais que pour les premiere ligne!!
Merci bcq herve.
contente d'avoir fais ta connaisance excel 😉
Anna [file name=Remplacement3.zip size=7429]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Remplacement3.zip[/file]

 

[Hervé]

re salut anna

Réponse tardive, mais réponse tout de meme.

A plus
[file name=Remplacement3_20050613210207.zip size=11969]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Remplacement3_20050613210207.zip[/file]

 

[anna]

Bonjour.
Merci bcq pour ta reponse je l'integre de suite.
et pour etre aussi efficace,si tu a besoin de quelque chose dans le domaine d'imagerie n'hesite pas.
Bonne journée
Anna