insertion dans chaine de caractère

**fabrice44** · 05/12/2007, 13h51

bonjour,

je viens du récupérer un tableau excel avec des numéros de téléphone du type 240151232 je voudrais trouver une macro permettant d'inserer un zero en début de numéro puis des points tous les deux chiffres afin d'obtenir un numéro de type 02.40.15.12.32

si qqu'un a une idée ou un exemple de code je serais bien content

d'avance merci

fabrice44

**ouskel'n'or** · 05/12/2007, 13h57

Tu peux faire :

Code :

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

1
2
Cells(NoLigne, NoCol).value = NoAjouté & Cells(NoLigne, NoCol).value
Cells(NoLigne, NoCol).NumberFormat = "0#"".""##"".""##"".""##"".""##"

Mais tu aurais intérêt à formter toute ta colonne en une seule fois

Code :

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

Columns(NoCol).NumberFormat = "0#"".""##"".""##"".""##"".""##"

A+

Edit
Erreur sur Colums corrigée

**ucfoutu** · 05/12/2007, 14h09

Bonjour,

Les solutions ne manquent centes pas... et en utilisant des choses fort simples, telles une boucle for avec step 2 et la fonction Mid...

Aujourd'hui, toutefois, j'ai envie de m'amuser et donc de considérer les choses autrement :

Ainsi, par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
 toto = "240151232"
 toto = "0" & toto
 Dim titi() As Byte
 titi() = StrConv(toto, vbFromUnicode)
 resul = ""
  For i = 0 To UBound(titi) - 1 Step 2
    resul = resul & Chr(titi(i)) & Chr(titi(i + 1))
    If i < UBound(titi) - 1 Then resul = resul & "."
  Next
  MsgBox resul
End Sub

Je crois qu'il vaudra mieux que tu bûches et utilises plus simplement ce qui est plus simple (For...to.... et Mid)

ou encore la solution de formatage suggérée par Ousk...

Bon travail.

**fabrice44** · 05/12/2007, 14h12

j'ai essayé ta ligne de code

Code :

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

1
2
3
4
5
6
7
Sub téléphone()
 
Dim k As Integer
 
k = 13
Worksheets("Entreprises ABC").Colums(k).NumberFormat = "0#"".""##"".""##"".""##"".""##"
End Sub

celà ne fonctionne pas j'ai du zapper une étape

**ouskel'n'or** · 05/12/2007, 14h14

C'est le format pour la France, tu viens d'où ?

**fabrice44** · 05/12/2007, 14h17

ben vouis, j'suis sur nantes, mais ca n'empêche que ca marche pas !

**ouskel'n'or** · 05/12/2007, 14h21

Quel est le format de départ ? As-tu déjà des points dans ta cellule ?

Edit
Si tu as des points, alors ça ne fonctionne pas sans les enlever avant de formater

Code :

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

Cells(NoLigne, NoCol).value = NoAjouté & replace(Cells(NoLigne, NoCol).value,".","")

Vérifie que replace existe bien dans ta version
A+

**fabrice44** · 05/12/2007, 14h24

non en fait les n° ont été rentrés comme ca " 240520606 " puis ils ont changé le format dans "format cellule" pour qu à la lecture dans le tableau on voit02.40.52.06.06, mais mois je veux récupérer ces données est les avoir en format initial avec les points

est ce clair ?

**fabrice44** · 05/12/2007, 14h28

la réponse de l'ordi c'est : propriété ou méthode non géré par cet objet

**ucfoutu** · 05/12/2007, 14h30

non en fait les n° ont été rentrés comme ca " 240520606 "

sois précis : avec un espace devant et un espace derrière, comme tu le montres ici ?

Car celà peut tout changer !!!

**fabrice44** · 05/12/2007, 14h35

sans espace ni devant ni derrière

**ouskel'n'or** · 05/12/2007, 14h36

Alors il te reste la solution d'ucfoutu que j'écrierais ainsi

Code :

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

1
2
3
4
5
6
7
8
9
Sub Test()
Dim NoLu as string, Result as string, i as byte
'où NoLu est le contenu de ta cellule
NoLu = Right("0000000000" & "476407677", 10)
For i = Len(NoLu) To 2 Step -2
    Result = Mid(NoLu, i - 1, 2) & "." & Result
Next
MsgBox NoLu & "  " & Left(Result, Len(Result) - 1)
End Sub

Tu dis
A+

**ucfoutu** · 05/12/2007, 14h40

Choses plus simples pour choses plu simples, alors (finie donc de rigoler... hélàs ...

)

Code :

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

1
2
3
4
5
6
7
8
toto = "240151232"
 toto = "0" & toto
 resul = ""
  For i = 1 To Len(toto) Step 2
    resul = resul & Mid(toto, i, 2)
    If i < Len(toto) - 2 Then resul = resul & "."
  Next
  MsgBox resul

me parait suffisant (mais bien tristounet...

)

**fabrice44** · 05/12/2007, 14h48

je suis un peu dans le gaz, il faut que je regarde vos propositions pour les comprendre un peu plus, il y a pas mal de chose que je ne connais pas NoLu et Right

merci quand même, je vais essayer de bidouiller ca demain la nuit porte conseille

a+

**ouskel'n'or** · 05/12/2007, 15h02

NoLu est une simple variable. J'ai bêtement utilisé une variable au lieu de prendre la donnée dans une cellule. Si tu remplace NoLu par Cells(NoLigne, NoColonne) c'est pareil mais c'est plus long pour te montrer un exemple
Quant à right(.........) c'est pour formater ta donnée sur 10 caractères afin de pouvoir faire Step - 2 dans la boucle et commencer ton N° par un zéro.

Code :

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

NoLu = Right("0000000000" & Cells(NoLigne, NoColonne), 10)

Regarde dans l'aide la signification de Right

A+

**fabrice44** · 05/12/2007, 15h05

juste pour info

la première ligne de code que tu m'as donné, elle ne fonctionnée pas parceque tu as écris colums et non columns, mais bon ca transforme bien les numéro vu à l'écran mais ça ne modifie pas leur écriture initiale

je continue à étudier vos autres lignes pour comprendre !
je ne lacherais pas l'affaire comme ca !

allez a+

**fabrice44** · 05/12/2007, 15h12

en fait je n'arrive pas à remettre ca à demain
j'ai un dépassement de capacité sur la ligne For i = Len(NoLu) To 2 Step -2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim k As Integer
 
k = 3
 
 
Dim NoLu As String, Result As String, i As Byte
'où NoLu est le contenu de ta cellule
NoLu = Right("0000000000" & Cells(k, 13), 10)
For i = Len(NoLu) To 2 Step -2
    Result = Mid(NoLu, i - 1, 2) & "." & Result
Next
MsgBox NoLu & "  " & Left(Result, Len(Result) - 1)
 
End Sub

**ouskel'n'or** · 05/12/2007, 15h22

Déclare i as integer

et là ça fonctionne (!?!)

**fabrice44** · 05/12/2007, 15h33

ca y est! enfin ca marche, encore une affaire résolue grace à votre super site surper sympa
le code pour la forme si ca interesse qqu'un

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
Sub téléphone()
 
Dim k As Integer
 
k = 3
 
 
While Worksheets("Entreprises ABC").Cells(k, 13) <> ""
toto = Cells(k, 13).Value
 toto = "0" & toto
resul = ""
 For i = 1 To Len(toto) Step 2
  resul = resul & Mid(toto, i, 2)
  If i < Len(toto) - 2 Then resul = resul & "."
 Next
 Cells(k, 13) = resul
k = k + 1
Wend
 
End Sub

merci encore de votre aide, à la prochaine

**AlainTech** · 07/12/2007, 06h46

Envoyé par fabrice44

non en fait les n° ont été rentrés comme ca " 240520606 " puis ils ont changé le format dans "format cellule" pour qu à la lecture dans le tableau on voit02.40.52.06.06, mais mois je veux récupérer ces données est les avoir en format initial avec les points

Il me semble qu'on va chercher très loin des choses bien simples...

Avez-vous essayé

Code :

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