convertir en .text

bonjour,
j'essaie de convertir toutes une plage de cellules en .text

je peux le faire pour chaque cellule

Code:

---

Range("b6") = Range("d7").Text

---

qui fonctionne tres bien,
seulement j'en ai plein..
et j'aurais voulu essayer de faire quelque chose du genre

Code:

---

Range("b6:c6") = Range("d7:e7").Text

---

mais ca ne passe pas...

Salut,

Que contiennent tes cellules sources?

Si ce sont des formules passe par un copier/Collage Special Valeurs

Code:

---

1 2	Range("d7:e7").Copy Range("b6").PasteSpecial xlPasteValues

---

ma cellule source est au format jjjj et j'ai les jours de la semaine,
avec ta proposition, j'obtiens une valeur et plus le jour...

Re,

Ok avec cette info evidemment ca change la donne.

Une proposition avec une Procedure de copie en Texte

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub TaMacro Call CopieText(Range("D7:E7"), Range("B6")) End Sub   Sub CopieText(Source As Range, Destination As Range) Dim Cellule As Range   Set Destination = Destination.Resize(1, 1)   For Each Cellule In Source Destination.Offset(Cellule.Row - Source.Row, Cellule.Column - Source.Column).Value = Cellule.Text Next End Sub

---

excellent !

merci !