Chiffre et Texte
Bonjour
merci a tous les aidants, le meilleur forum d'excel et de VBA
ma question est la suivant si c'est possible
via VBA, comment séparer dans une cellule au format "1234 - XXXXXXXX"
c'est a dire j'ai une cellule A1 qui comporte toujours le meme format un chiffre (1, ou 2 ou 3 ou 4 ou plus) puis espace puis tiret puis espace puis du texte en mettant dans la cellule B1 les chiffres et la cellule C1 les texte
ci joint un fichier exemple
merci d’avance
f
J
Bonjour
mettre ce code dans un module
Crdlt
Sub SeparateurTexteColonneA()
Dim cell As Range
Dim splitValues As Variant
' Parcourir chaque cellule de la colonne A jusqu'à la dernière cellule remplie
For Each cell In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
If cell.Value <> "" Then ' Vérifier que la cellule n'est pas vide
' Séparer la chaîne en utilisant " - " comme délimiteur
splitValues = Split(cell.Value, " - ")
' Vérifier si nous avons bien deux parties
If UBound(splitValues) = 1 Then
' Mettre les chiffres dans la cellule correspondante de la colonne B
cell.Offset(0, 1).Value = Trim(splitValues(0))
' Mettre le texte dans la cellule correspondante de la colonne C
cell.Offset(0, 2).Value = Trim(splitValues(1))
Else
' Optionnel : Afficher un message d'erreur si le format est incorrect
cell.Offset(0, 1).Value = "Format invalide"
cell.Offset(0, 2).Value = ""
End If
End If
Next cell
End SubWouaw, merci a vous deux, c'est trop gentil, desque je l'essaie, car je dois modifier par rapport a mon fichier d'origine, je vous informerai, mais je suis certain que ça va fonctionner
Merciiiii