Discussion :

[varik]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiki29]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[varik]

je vous remercie beaucoup.
je cherchais loin

[casefayere]

re,
à Jérome,

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

[jfontaine]

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

Cela était fort probable , 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.