liteqz.com
Bonjour, Je recherche désespérement une formule ou un code VB qui me permette de supprimer les caractères d'une cellule après le premier caractère défini rencontré, en l'occurence ", " Exemple de conversion souhaitée: "Darcheux, Roger, Mme et M. " = "Darcheux" Merci pour votre aide:)
#2 Bonjour Etoto, en A1: " élèves "; en B1: =SI(A1="";"";GAUCHE(A1;NBCAR(A1)-1)) ➯ " élève " pour la fonction VBA, je te fais ça dans un moment. soan #3 Bonjour Etoto, Soan, Sans plus d'info, un essai. Dans cette PJ, si on entre une chaine dans la colonne A alors le dernier caractère est supprimé. VB: Sub Worksheet_Change(ByVal Target As Range) If > 1 Then Exit Sub If Not Intersect(Target, Range("A1:A100")) Is Nothing Then Application. EnableEvents = False Target = Left(, Len() - 1) Application. Comment nettoyer une chaîne de caractères - Supprimer les espaces indésirables et les caractères illisibles sur Excel ? - Excel formation. EnableEvents = True End If End Sub 13. 4 KB · Affichages: 10 #4 Bonjour @Etoto, @soan, @sylvanu, S'il s'agit bien d'une écriture de sens horizontal dextroverse, dans la formule, ne faudrait-il pas remplacer DROITE par GAUCHE? #5 @Etoto (salut sylvanu et Dudu2) voici le fichier. Option Explicit Function SDC(chn$) As String Dim n As Byte: n = Len(chn) If n > 0 Then SDC = Left$(chn, n - 1) End Function SDC = S ans le D ernier C aractère Exo 12. 7 KB · Affichages: 8 #6 Effectivement je coirs que c'est plus simple d'utiliser une DROITE ou GAUCHE avec un SI aussi.