Discussion :

[marc56]

Bonjour le forum,
J'ai un fichier avec des numéros de téléphones qui ont été saisis dans des cellules formatées en "Texte".
Quand je re-formate les cellules pour avoir un affichage avec des chiffres groupés par 2, l'affichage reste identique. Pour avoir l'affichage correcte, il faut faire un copier, vider la cellule puis faire un coller.
Comme j'ai plusieurs centaines de cellules à faire, j'ai essayé de faire cette opération par une macro enregistrée en automatique, mais cela ne fonctionne pas.
Si un spécialiste de la macro pouvait me donner un coup de main je lui en serait très remerciant.

[Darki03]

Bonjour,

J'ai éssayer ceci sous Excel 2003 et cela fonctionne, j'espère qu'il en sera de même de ton coté !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Update()
Dim end_line
Dim Temp As String
Dim i As Long
end_line = Range("A65536").End(xlUp).Row
 
For i = 1 To end_line
Temp = Cells(i, 1).Value
Cells(i, 1).FormulaR1C1 = Temp
Next
End Sub

Cordialement
Darki03

[marc56]

Merci Darki03, ton code marche très bien même avec 2007 mais seulement sur la colonne A. Est-il possible de choisir une colonne différente?

[Darki03]

Oui bien sur ! J'ajoute quelques commentaires:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Update()
Dim end_line
Dim Temp As String
Dim i As Long
end_line = Range("A65536").End(xlUp).Row 'pour trouver la fin de la colonne A (on peut très bien en spécifier une autre par ex C ou AA)
 
For i = 1 To end_line 'Parcours avec for jusque la dernière ligne
Temp = Cells(i, x).Value '(i,x) x étant le numéro de colonne souhaitée
Cells(i, x).FormulaR1C1 = Temp
Next
End Sub

On peut aussi se passer de end_line et utiliser une boucle While (hypothèse les cellule son vide après le dernier numéro)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
i=1
'On peut meme se permettre d'appliquer les action sur la colonne selectionée
'avant le lancement de la macro:
x=ActiveCell.Column
 
While Cells(i,x).Value<>""
Temp = Cells(i, x).Value '(i,x) x étant le numéro de colonne souhaitée
Cells(i, x).FormulaR1C1 = Temp
i=i+1
Wend

Et voila
Cordialement.
Darki03.

[marc56]

Avec ton : "Et voilà" les choses semblent simples, sûrement pour toi, mais pas pour moi.
Dans ton code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Update()
Dim end_line
Dim Temp As String
Dim i As Long
end_line = Range("A65536").End(xlUp).Row 'pour trouver la fin de la colonne A (on peut très bien en spécifier une autre par ex C ou AA)
 
For i = 1 To end_line 'Parcours avec for jusque la dernière ligne
Temp = Cells(i, x).Value '(i,x) x étant le numéro de colonne souhaitée
Cells(i, x).FormulaR1C1 = Temp
Next
End Sub

je présume que la colonne est désignée par la lettre A qui précède la valeur 65536. N'est-il pas possible d'appeler une boite de dialogue pour demander sur quelle colonne trier puis d'intégrer le nom de la colonne à la place du "A"?
Sur 2007, le nombre de lignes étant bien supérieur à 65536, s'il était possible de demander également sur combien de lignes faire l'opération, ton code pourrait être utilisé par plus de gens.
Il n'est pas possible d'arrêter la boucle à la première cellule vide car il y a souvent des trous.

[Darki03]

Avec ton : "Et voilà" les choses semblent simples, sûrement pour toi, mais pas pour moi.

Milles excuses ! je pense que mon "et voila" a mal été interprété !

Sous excel 2003 je suis encore limité à 65536 ! Mais bon il est vrai que j'ai commenté rapidement et de manière pas assez claire !

Bon voila j'ai revu le tout avec des boites de dialogues (par contre il faut bien veiller a mettre des nombres et non du texte dans les boites de dialogue)

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
 
Sub Activate()
'Declaration des variables
Dim Temp As String 'Variable pour copier le contenu de la cellule temporairement
Dim Colonne As Long 'Numéro de colonne
Dim nb_rows As Long 'Nombre de lignes
Dim i As Long 'Variable pour l'itération de la boucle For
 
'Boite de dialogue demandant le numéro de la Colonne a traiter
Colonne = InputBox("Entrer le numéro de colonne:", "Colonne")
'Boite de dialogue demandant le nombre de ligne à traiter
nb_rows = InputBox("Entrer le nombre de ligne à traiter:", "Lignes")
 
If nb_rows = 0 Then 'Si nb_rows=0
'On cherche la premiere cellule non vide en partant de la derniere
'cellule de la colonne (excel 2007 = 1048576 si je ne me trompe pas)
end_line = Range(Cells(1048576, Colonne), Cells(1048576, Colonne)).End(xlUp).Row
'Le nombre de ligne devient alors la derniere ligne non vide (en partant du bas)
nb_rows = end_line
End If
 
For i = 1 To nb_rows 'Pour i allant de 1 à nb_rows
Temp = Cells(i, Colonne).Value 'On copie la valeur de la cellule dans Temp
Cells(i, Colonne).FormulaR1C1 = Temp 'Cellule "=Temp"
Next 'Next i
 
End Sub

J'ai rajouté un test nb_rows=0 si l'on veut laisser la macro trouver la dernière cellule (en partant de la dernière ligne)

Je rajoute un petit "Et voila" ^^ ! Sinon sans rire j'épère que cela conviendras ce coup ci !

Cordialement.
Darki03.