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