split supprimer caractère

Version imprimable

bonjour
j'i un peu du mal avec les tableau et j'avoue que bute un peu sur la fonction split

j'essaie de parcourir une colonne et de changer le contenu premièrement pour tout les champs commençant par X , deuxièmement en supprimant ce u'il y après le "-"
exemple:

XMLP-153 ==> XMLP
XDFT-485 ==> XDFT
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Option Explicit Option Compare Text Sub chcar() Dim y As Long, dl As Long With Sheets("feuil1") dl = .Range("A" & .Rows.Count).End(xlUp).Row For y = 2 To dl If UCase(Range("A" & y)) Like "Z*" MsgBox Split(Range("A" & y), "-")(0) ' je dois stocker le résultat dans la cellule("A" & y) End If Next End With End Sub
je pense que je dois passer par un tableau en ubound mais je vois vraiment pas la syntaxe pour caser le résultat dans la colonne même ou j’exécute mon split.

merci d'avance

27/04/2012, 15h42
jfontaine

Bonjour,

Citation:

pour tout les champs commençant par X

Si X, pourquoi tu cherches les champs qui commencent par Z alors?

As tu essayé cela ?

Code:

Range("A" & y).Value = Split(Range("A" & y).Value, "-")(0)

Salut,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Sub chcar()
Dim y As Long, dl As Long
    With Feuil1
        dl = .Range("A" & .Rows.Count).End(xlUp).Row
        For y = 2 To dl
            If UCase$(.Range("A" & y)) Like "X*" Then
                .Range("A" & y) = Split(Range("A" & y), "-")(0)
            End If
        Next
    End With
End Sub

27/04/2012, 15h46
varik

je vous remercie beaucoup.
je cherchais loin
27/04/2012, 15h48
casefayere

re,
à Jérome,

Citation:

Si X, pourquoi tu cherches les champs qui commencent par Z alors?

C'est un résidu non corrigé d'un exemple que j'avais fait

il faut garder le principe

Bonne journée
27/04/2012, 15h52
jfontaine

Citation:

C'est un résidu non corrigé d'un exemple que j'avais fait

Cela était fort probable :P, mais comme des fois on cherche des erreurs dans le code alors que celui ci ne cherche pas le bon caractère je préfère demander.