Copier coller + déplacement par macro

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.

Bonjour,

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

Code:

---

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

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?

Oui bien sur ! J'ajoute quelques commentaires:

Code:

---

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:

---

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.

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

Code:

---

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.

Citation:

---

Envoyé par marc56

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é :aie:!

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

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:

---

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 :aie:!

Cordialement.
Darki03.

C'est parfait et cerise sur le gâteau, du code commenté.
Merci.