Excel Ajouter espaces à texte jusqu'à 24 car
Résolu/Fermé
laptitepero
Messages postés
19
Date d'inscription
jeudi 11 décembre 2008
Statut
Membre
Dernière intervention
9 avril 2010
-
25 mars 2010 à 16:35
Jer - 10 janv. 2024 à 14:48
Jer - 10 janv. 2024 à 14:48
A voir également:
- Excel ajouter un espace tous les 2 caractères
- Comment mettre un espace dans une formule excel - Meilleures réponses
- Excel insérer un espace dans une chaine de caractère - Meilleures réponses
- +33 2 70 31 07 21 ✓ - Forum Mobile
- Espace insécable word - Guide
- Caractères ascii - Guide
- Liste déroulante excel - Guide
- Espace de stockage gmail plein - Guide
4 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 754
26 mars 2010 à 14:21
26 mars 2010 à 14:21
Bon alors, comme tu ne connais pas voyons cela pour toi.
Le code suivant est à copier / coller dans un module. Depuis ta feuille Excel, tape ALT+F11 puis insertion/modules puis copier coller ce code et fermer la fenêtre Visual Basic.
Pour l'utiliser, depuis la feuille excel, sélectionner la cellule concernée et taper ALT+F8, choisir "ConvertirChaine" et cliquer sur "Exécuter".
Le code suivant est à copier / coller dans un module. Depuis ta feuille Excel, tape ALT+F11 puis insertion/modules puis copier coller ce code et fermer la fenêtre Visual Basic.
Sub ConvertirChaine() Dim chaine As String 'déclaration des variables, ici "chaine" est déclarée comme String (chaine de caractères) chaine = ActiveCell 'on affecte à notre variable le contenu de la cellule active While Len(chaine) < 24 'tant que (while) la longueur (Len) de la chaine est inférieure à 24 chaine = chaine & " " 'on ajoute à la chaine un espace (" ") après Wend 'on recommence tant que la condition n'est pas remplie. Une fois remplie on passe à la suite ActiveCell = chaine 'on remplace le contenu de la cellule active par chaine (qui contient maintenant x espaces) End Sub
Pour l'utiliser, depuis la feuille excel, sélectionner la cellule concernée et taper ALT+F8, choisir "ConvertirChaine" et cliquer sur "Exécuter".
26 mars 2010 à 14:55
Parce que la logique je l'ai (enfin je pense), c'est le déroulement et le nom des formules qui me manquaiant.
Merci de ton aide.
A bientot peut-être
10 juil. 2012 à 14:50
Modifié le 10 janv. 2024 à 14:48
On est quasi 14 ans plus tard, et c'est toujours valable : merci !