Discussion :

[djoumusic]

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

je peux le faire pour chaque cellule

Code :

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

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 :

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

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

mais ca ne passe pas...

[Minick]

Salut,

Que contiennent tes cellules sources?

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

Code :

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

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

[djoumusic]

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...

[Minick]

Re,

Ok avec cette info evidemment ca change la donne.

Une proposition avec une Procedure de copie en Texte

Code :

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

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

[djoumusic]

excellent !

merci !