--------------------------------------- 'Fonction qui rend l'acronyme d'un texte Function Acronyme(Cellule As Range) As String Dim C As String, S As String Dim i As Integer Dim Bool As Boolean S = CStr() For i = 1 To Len(S) C = Mid(S, i, 1) 'Ce test identifie toutes les lettres, accentuées ou pas! If StrComp(Ucase(C), LCase(C), 0) <> 0 Then If Not Bool Then Acronyme = Acronyme & Ucase(C) & ". " Bool = True Else Bool = False Next i #15 Bonjour Dudu2, Ta fonction marche très bien. Pourquoi ne pas la glisser dans la banque de fonctions? Supprimer dernier caractère excel de. Moi, en tout cas, je l'ai gardée. Sait-on jamais... Bonne fin de journée.
Mais lorsque j'éxecute une deuxieme fois le code, il me supprime encore un chiffre de toutes les valeurs commençant par "ARPEGE\A". 20/08/2013, 11h08 #4 Ce que tu écris est très étonnant. Le code proposé par Clément ne garde que les 13 caractères de gauche de la chaîne. Ce code peut donc tourner plusieurs fois il restera toujours un maximum de 13 caractères. 20/08/2013, 12h53 #5 ah du coup cela ne fonctionne pas car ma valeur est centré dans la cellule. Je vais faire le teste de nouveau. 20/08/2013, 13h00 #6 Est-ce pour rire ou bien changes tu en cours de route tes demandes? Il me semble à te lire que tu parles bien du dernier caractère (donc à droite) en tous les cas pour la langue française. 20/08/2013, 16h17 #7 non je te confirme que cela doit supprimer le caractére de droite. Supprimer le dernier caractére d'une chaîne - Macros et VBA Excel. Le probléme c'est que n'arrive pas modifier mon code de départ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 Sub Moving() Dim cell As Range Dim WsSrc As Worksheet Dim Wsdest As Worksheet Set datarange = Sheets("Moving")("D:D") Set WsSrc = Sheets("Moving") Set Wsdest = Sheets("déploiement") With WsSrc Range("D1:D3000").
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:)
En théorie oui. Mais tu as aussi besoin d'un moyen pour "prolonger" une donnée qui n'aurait pas 14 caractères. (Je présume que tu pourrais ajouter des blancs. ) Toujours en théorie, tu devrais t'assurer que tes blancs ou autres caractères supplémentaires ne nuiraient pas ailleurs. Pour les chaînes trop longues, l'idée de base serait dans ce genre-là: Range ( "A1") = left ( range ( "A1"), 13) Mais là, encore, attention aux répercussions. À ma connaissance, le seul personnage qui a été diagnostiqué comme étant allergique au mot effort. c'est Gaston Lagaffe. Ô Saint Excel, Grand Dieu de l'Inutile. Excel n'a jamais été, n'est pas et ne sera jamais un SGBD, c'est pour cela que Excel s'appelle Excel et ne s'appelle pas Access junior. 20/08/2013, 10h50 #3 bonjour, Je n'arrive pas à obtenir le resultat voulu avec le code que vous m'avez indiqué. Dans la colonnes D je dois avoir seulement 14 caractéres s'il y en a 15 il doit supprimer automatiquement le dernier chiffre. Supprimer dernier caractère excel 2017. Le code ci-dessous effectue bien cette tâche.
Avec le code ci-dessous cela fonctionne mais à chaque fois que je l'exécute il m'enlève de nouveau un caractère. XL 2016 - Supprimer dernier caractère de cellule. | Excel-Downloads. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Dim cell As Range Dim datarange Set datarange = Sheets ( "liste transferts") ( "D:D") Columns ( "D:D") place What:= "GL00X", Replacement:= "ARPEGE\X", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:= False, SearchFormat:= False, _ ReplaceFormat:= False place What:= "GL00", Replacement:= "ARPEGE\A", LookAt:=xlPart, _ For Each cell In datarange If Left$ (, 8) = "ARPEGE\A" Then cell = Left (, Len () - 1) End If Next Est -il possible de mettre le même nombrer de caractère pour toutes les valeurs de la colonne D soit 14 caractères? Cela évitera de spécifier de faire le changement seulement sur les valeurs commençant pas "ARPEGE\A". Merci de votre aide 19/08/2013, 20h50 #2 1 2 3 4 5 6 7 8 Il fait exactement ce que tu lui dis de faire. Il faudrait que tu trouves ou ajoute le moyen de tester si ton texte a déjà été "esquinté" et de sauter par dessus la cellule en cause.
Merci de vous inscrire, c'est gratuit!. Cette option est réservée aux membres premium de GNT. Pour en savoir plus, cliquez ici.