Formater 0 27 100 6 en 000 027 100 006 par exemple.

**Papy Octet** · 26/10/2020, 10h35

Bonjour.

J'ai récupéré la liste des (environ 200) valeurs d'une palette de couleur CMJN.
C'est du texte, par exemple, : 0 27 100 6 pour exprimer le %age de chaque teinte cyan = 0%, Magenta = 27%, Jaune = 100% et Noir = 6%.

Je voudrais obtenir 000 027 100 006 dans la cellule en restant au format texte.

Est-ce possible ?
Comment faire ?

Merci.

**njhub** · 26/10/2020, 14h43

Bonjour Papy Octet,

Format > Cellule > Nombre >

12 zéros non significatifs >
cochez séparateur de milliers >
si besoin 2 décimales

Nom : Papy Octet_12ns0sm&2d.png
Affichages : 106
Taille : 28,5 Ko

Nom : Papy Octet_12ns0sm&2d.png
Affichages : 106
Taille : 28,5 Ko

**TpF45** · 26/10/2020, 17h14

Bjour Papy Octet, et njhub

Je ne crois pas que la solution de njhub soit efficace.

Je ferais "enregistrer sous" au format texte (.csv)
puis "fichier ouvrir" en cochant l'espace comme caractère séparateur de champ

**Papy Octet** · 26/10/2020, 17h21

Bonsoir njhub.

Merci pour ta réponse mais ce n'est pas ce que je cherche à faire.
La liste des nombres que j'ai recueillie est au format texte et donc il y a un espace entre chaque nombre.
Pour que ta proposition fonctionne, il faut que ce soient des chiffres, or si je convertis ces nombres 0 27 100 6 en chiffres, j'obtiens 271006. Je perds le premier 0, or j'en ai bien besoin.

Pour l'utilisation que je compte faire de ceci, le maintiens en texte me convient parfaitement.

A+

Bonsoir Tpf45.
J'obtiens alors chaque nombre dans une cellule différente. Il faut encore ajouter les éventuels 0 non significatifs manquants pour arriver au 3 chiffres par nombre puis concaténer à nouveau les cellules et leur contenu en intercalant un espace entre chaque nombre reconstitué.

Je pensais à une macro qui ferait ça. Il y a tellement longtemps que je n'ai plus écrit de macros ... mais je cherche dans cette direction.

A+

**njhub** · 26/10/2020, 21h52

Bonjour Papy Octet,

Je crois vous avoir compris,

Partant de :	pour arriver à :
'0 5 15 5	'000 005 015 005
'0 0 100 0	'000 000 100 000
'100 80 0 0	'100 080 000 000
'0 50 20 100	'000 050 020 100
'100 40 40 90	'100 040 040 090
'50 100 100 50	'050 100 100 050

La formule ci-dessous fait le job

Code :

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

=CONCATENER(GAUCHE(CONCATENER(GAUCHE(CONCATENER(GAUCHE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);4);REPT("0";8-CHERCHE(" ";CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);5));DROITE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);NBCAR(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2))-4));8);REPT("0";12-CHERCHE(" ";CONCATENER(GAUCHE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);4);REPT("0";8-CHERCHE(" ";CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);5));DROITE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);NBCAR(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2))-4));9));DROITE(CONCATENER(GAUCHE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);4);REPT("0";8-CHERCHE(" ";CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);5));DROITE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);NBCAR(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2))-4));NBCAR(CONCATENER(GAUCHE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);4);REPT("0";8-CHERCHE(" ";CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);5));DROITE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);NBCAR(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2))-4)))-8));12);REPT("0";15-NBCAR(CONCATENER(GAUCHE(CONCATENER(GAUCHE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);4);REPT("0";8-CHERCHE(" ";CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);5));DROITE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);NBCAR(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2))-4));8);REPT("0";12-CHERCHE(" ";CONCATENER(GAUCHE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);4);REPT("0";8-CHERCHE(" ";CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);5));DROITE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);NBCAR(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2))-4));9));DROITE(CONCATENER(GAUCHE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);4);REPT("0";8-CHERCHE(" ";CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);5));DROITE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);NBCAR(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2))-4));NBCAR(CONCATENER(GAUCHE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);4);REPT("0";8-CHERCHE(" ";CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);5));DROITE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);NBCAR(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2))-4)))-8))));DROITE(CONCATENER(GAUCHE(CONCATENER(GAUCHE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);4);REPT("0";8-CHERCHE(" ";CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);5));DROITE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);NBCAR(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2))-4));8);REPT("0";12-CHERCHE(" ";CONCATENER(GAUCHE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);4);REPT("0";8-CHERCHE(" ";CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);5));DROITE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);NBCAR(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2))-4));9));DROITE(CONCATENER(GAUCHE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);4);REPT("0";8-CHERCHE(" ";CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);5));DROITE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);NBCAR(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2))-4));NBCAR(CONCATENER(GAUCHE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);4);REPT("0";8-CHERCHE(" ";CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);5));DROITE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);NBCAR(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2))-4)))-8));NBCAR(CONCATENER(GAUCHE(CONCATENER(GAUCHE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);4);REPT("0";8-CHERCHE(" ";CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);5));DROITE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);NBCAR(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2))-4));8);REPT("0";12-CHERCHE(" ";CONCATENER(GAUCHE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);4);REPT("0";8-CHERCHE(" ";CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);5));DROITE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);NBCAR(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2))-4));9));DROITE(CONCATENER(GAUCHE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);4);REPT("0";8-CHERCHE(" ";CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);5));DROITE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);NBCAR(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2))-4));NBCAR(CONCATENER(GAUCHE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);4);REPT("0";8-CHERCHE(" ";CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);5));DROITE(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2);NBCAR(CONCATENER(REPT("0";4-CHERCHE(" ";I2));I2))-4)))-8)))-12))

**Papy Octet** · 28/10/2020, 14h21

Bonjour njhub.
Waouw ! Celle-là, il fallait la construire.

Merci.

De mon côté, j'ai continué à chercher et à me rappeler mes souvenirs (lointains) de programmation et j'ai pondu ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à 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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 
REM  *****  BASIC  *****
 
 
sub CorrigeCMJN
rem ----------------------------------------------------------------------
rem define variables
Dim oDoc As Object , Feuille As Object 
Dim CMJN , NewCMJN As String 
Dim CelluleActive As Object
Dim Col as Integer, Li as Integer
rem ----------------------------------------------------------------------
rem get access to the document
 
CMJN = ""
Col = 0
Li = 1
 
	oDoc = ThisComponent 
	Feuille = oDoc.getSheets.getByName("Feuille1")
 
for Li = 1 to 184
	rem atteindre le contenu de chacune des cellules CMJN
	CelluleActive = Feuille.getCellByPosition( Col, Li )
 
	rem Recuperer le texte contenu
	CMJN = CelluleActive.String
 
	rem Appel fonction de modif references couleurs CMJN
	NewCMJN = Trio(CMJN)
 
	rem modifier un CMJN et écrire dans la cellule d'à côté
	Cellule = Feuille.getCellByPosition( Col + 1 , Li )
	Cellule.String = NewCMJN
 
Next Li
 
End Sub
 
Function Trio(Couleurs)
rem ----------------------------------------------------------------------
rem Modifie chaque groupe de valeur C, M, J et N
rem pour qu'ils se composent de 3 caractères (chiffres)
 
for i = 0 To 3	rem traiter les 4 couleurs
	rem Recupère le premier groupe disponible jusqu'au caractères espace
	Espace = InStr(Couleurs, " ")	rem Position de l'espace dans la chaine
	If Espace > 0 Then
		Mot = Left(Couleurs,Espace - 1)	rem récupère la première couleur
	Else
		Mot = Couleurs	rem récupère la première couleur
	End If
	Select Case Len(Mot) 
		Case = 1
				NouveauCMJN = NouveauCMJN + " " + "00" + Mot
		Case = 2
				NouveauCMJN = NouveauCMJN + " " + "0" + Mot
		Case = 3
				NouveauCMJN = NouveauCMJN + " " + Mot
		Case Else
			MsgBox "Oups ! Trop long"
		End Select
 
		rem Modifie la chaine initiale des couleurs
		Couleurs = Right(Couleurs, Len(Couleurs) - Espace)
 
Next i
	rem On retourne la nouvelle chaine de caractères pour les couleurs CMJN
	Trio = NouveauCMJN
 
 
End Function

Bonne journée.
A+

**Patrice740** · 28/10/2020, 19h32

Bonjour,

Avec une fonction personnalisée :
=CorrigeCMJN(A1)

La fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function CorrigeCMJN(str As String) As Variant
Dim t, i%
  If Len(str) - Len(Replace(str, " ", "")) = 3 Then
    t = Split(str, " ")
    For i = 0 To UBound(t)
      t(i) = Right("000" & t(i), 3)
    Next
    CorrigeCMJN = Join(t, " ")
  ElseIf str = "" Then
    CorrigeCMJN = ""
  Else
    CorrigeCMJN = CVErr(XlCVError.xlErrNum)  ' renvoie #NOMBRE!
  End If
End Function

**Papy Octet** · 29/10/2020, 08h37

Bonjour Patrice740.

Comme je l'ai écrit plus haut : mes connaissances en Basic sont un peu parcellaires.

Merci pour ton amélioration.

A+

Formater 0 27 100 6 en 000 027 100 006 par exemple. [LibreOffice][Tableur]

OpenOffice & LibreOffice

Discussions similaires

Partager

Partager