Insérer des indentations dans une cellule après un caractère en VBA.

Bonjour à toutes et tous;

Je viens vers vous car je n'arrive pas à résoudre le problème suivant:

J'ai deux colonnes A contenant un texte et B contenant un nombre d'espaces, par exemple :

Colonne A:
Ligne 1= ;Test
Ligne 2= ;Test N°1
Ligne 3= ;Test N°2

Colonne B:
Ligne 1= 8
Ligne 2= 16
Ligne 3= 32

Mon but est de convertir le nombre d'espaces en nombre d'indentation, suivant le modèle suivant :
8 espaces = 1 indentation
16 espaces = 2 indentations
32 espaces = 3indentations.

La conversion ne me pose pas de problème, mais c'est le positionnement de ces indentations dans la cellule, ceci en VBA.

Mon problème est de positionner ces indentations après le ; commençant chaque cellule de la colonne A mais juste avant le premier caractère de cette même cellule.

D'avance je remercie toutes celles et ceux qui voudront bien m'aider

Bonjour,

Je ne saisie pas trop ce que tu veux comme résultat mais tu peux utiliser la fonction Space() :

Code:

---

1 2	Range("C1").Value = Space(Range("B1").Value) & Range("A1").Value

---

avec ce code, tu auras en cellule C1 comme résultat : " ;Test" (sans les guillemets) donc, 8 espaces avant le point-virgule en supposant que tu ais ;Test en A1 et 8 en, B1

Bonsoir Theze;
Merci pour ta réponse, mais en fait je voudrais convertir le nombre d'espaces en un nombre d’indentation, et avoir les indentations entre le caractère ";" et le 1er caractère de la cellule ici un "T".
Si x représente une indentation, et 16 le nombre d'espaces donnant 2 indentations, alors je voudrais avoir le résultat suivant : ;xxTest
Bonne soirée.

Bonjour

Difficile de deviner avec certitude ce que tu cherches à exprimer (lire la dernière phrase de ma signature).

Je vais personnellement me contenter de t'inviter
- à exécuter ce petit code :

Code:

---

1 2 3 4

ind = " " '8 espaces pour une indentation nbind = 2 'ici le nombre voulu 'indentations texte = ";bonjour" MsgBox Replace(texte, ";", ";" & String(nbind, ind) & WorksheetFunction.Rept(ind, nbind))

---

- voir ce qu'il fait
- l'analyser
- t'en inspirer

EDIT :
Une autre manière encore (parmi des dizaines d'autres) de se divertir (exemple) :

Code:

---

1 2 3 4 5

ind = "-" ' le caractère d'indentation choisi nbparind = 8 ' le nombre de caractères d'indenttion par indentation nbind = 3 'ici le nombre voulu d'indentations texte = ";bonjour" MsgBox Replace(texte, ";", Format(";", "@" & String(nbparind * nbind, ind)))

---

Bonjour unparia et Merci pour ta réponse.

Comme tu me le recommande je vais :

- voir ce qu'il fait
- l'analyser
- t'en inspirer

En espérant que cela me permette de progresser, et peut-être un jour pouvoir trouver d'autres solutions parmi les dizaines d'autres.
Je te souhaite une bonne journée.

Bonjour,

unparia:coucou:

Testes ceci peut être :

Code:

---

1 2	Range("C1").Value = Left(Range("A1").Value, 1) & String(Range("B1").Value / 8, "x") & Right(Range("A1").Value, Len(Range("A1").Value) - 1)

---

Bonjour…

J’en étais resté là : avec un tableau structuré nommé Tbo et, ne sachant comment l’indentation est calculée, une colonne de plus :

dans la fenêtre des codes de l'onglet (Alt F11)

Code:

---

1 2 3 4 5 6 7

Sub E_Click() Application.ScreenUpdating = 0 [Tbo].Item(1, 4).FormulaR1C1 = _ "=REPLACE("";"",1,1,"";""&REPT("" "",[@espaces]))&RIGHT([@Titre],LEN([@Titre])-1)" [Tbo].Columns(1) = [Tbo].Columns(4).Value [Tbo].Columns(4).Delete End Sub

---

Bonjour Theze et OrDonc;
Désolé pour le retard de ma réponse, et encore merci pour votre aide.

Je vais essayer vos solutions, et je vous tiendrais au courant.
Bonne journée à toutes et tous.

Merci à vous deux pour vos solutions. En fait j'ai inséré des espaces au lieu d'indentations (tabulations).