Discussion :

[mathos78]

Bonjour à tous,

Je cherche un moyen simple ( à priori via le formatage de cellule ou éventuellement une Macro) d'imposer un type de format spécifique ainsi qu'un nombre de caractères fixe..

Je m'explique... Je dois rentrer des intitulés dans une machine qui doit impérativement recevoir la donnée telle quelle:

//Exemple//: si la donnée est par exemple le mot "KIWI", il doit imperativement être encodé ainsi:

"KIWI____________________" ( la ligne verte représente des caractères "espace" )

A savoir, le mot en question
entouré de guillements
mais surtout un nombre de caractère total et exact de 24 qui doit être automatiquement comblé par des espaces si le mot en question fait moins...

exemple ici, KIWI = 4 caractères et donc, le mot doit être suivi de 20 espaces...


Voilà donc ma question: est il envisageable par un moyen quelconque d'envisager qu'openoffice, dans un tableur puisse automatiquement formater de la sorte.

D'avance merci pour vos idées et/ou réponses

[zoom61]

Salut,

Cette fonction ajoute des espaces :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function ajout_caractere(strValue as string, maxLen As Integer) As String
    Dim nLen As Integer
    nLen = Len(strValue)
    If maxLen < nLen Then
        ajout_caractere = Right$(strValue, maxLen)
        ElseIf maxLen > nLen Then
        ajout_caractere = strValue & String(maxLen - nLen, " ")
        Else
        ajout_caractere = strValue
    End If
End Function

Ensuite si la donnée est en A1, il suffit de saisir dans la cellule A2 (par exemple) =""""&ajout_caractere(A1;20)&"""".

[TpF45]

Bjour,

Et sans recours aux macros

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

A2=GAUCHE(A1&REPT(" ";24);24)

[mathos78]

Bonjour,
je suis un peu honteux de répondre des mois après à cette requête que j'avais posté.. j'avais eu entre temps la réponse ailleurs et ça m'est sorti de la tête de venir vous remercier pour votre aide.
Merci donc, TpF45 et Zoom61 pour vos solutions et toutes mes excuses pour cette réponse plus que tardive...

J'avais résolu mon problème avec la formule suivante = """" & A1 & REPT(" ";24-NBCAR(A1)) & """" qui fonctionne.

J'ai testé la formule de TpF45 qui a le mérite d'être Light et qui fonctionne ( sans les guillemets toutefois).

Et je vais tester la création de fonction suggérée par Zoom qui me séduit pas mal par la possibilité de ne pas devoir ensuite à chaque fois rédiger une longue formule et d'avoir celle ci directement sous forme de fonction ...

Merci encore, et toutes mes honteuses excuses pour ce manque de considération de ma part !!