Conversion des zones de texte en cellules

[fanfan]

Est-i l possible de tranférer de façon automatique et systèmatique, du texte dans des "zones de texte" vers des cellules.

 

[Didier]

De quelles zones de textes parles-tu ?
Dans un formulaire (userform) ? OU bien d'ailleurs ?

 

[Didier]

Re,

Supposons que tu crées une zone de texte et la nommes 'MaZone' ...

Tu mets le code suivant dans un module :

Sub ZoneTexte()
ActiveSheet.Shapes("MaZone").Select
Selection.Characters.Text = "AU REVOIR ..."
Range("A1") = Selection.Characters.Text
End Sub

Et dans la cellule A1 tu auras le texte 'AU REVOIR ...'

J'espère que cela t'aideras ...

Didier

 

[Celeda]

Bonjour,

Et ben tu sais pas Didier, mais elle marche dans les deux sens ta macro !!
un coup vers la cellule - un coup dans la boîte !! si on met un texte dans la boite il va dans la cellule et si on met du texte dans A1 il va dans la boite.

Alors moi, j'ai une question supplémentaire si cela est possible, of course :

penses-tu que l'on puisse l'adapter pour une formule, exemple :

tu as une formule - ainsi en B12 :

SOMME(DECALER($B$7:$D$7;;(COLONNE()-COLONNE($B12))*3))

et on souhaiterait que cette formule se retrouve dans la boite de texte après avoir actionné la macro, of course

et par la même occasion essayer de l'étirer à une plage bien précise par exemple demander à récupérer toutes les formules de B12 à B20.

Qu'en penses-tu, est-ce faisable ?
Sinon c'est pas grave et un grand merci déjà pour la macroalleretretour dans la boîte.

Celeda

 

[didier]

Oui c'est faisable ... incroyable n'est-ce pas ...

Voila le code

Sub ZoneTexte()
Range("B12").Select
MonTexte = ActiveCell.Formula
Range("B13:B20").Select
For Each Cell In Selection
MonTexte = MonTexte & vbLf & Cell.Formula
Next Cell
ActiveSheet.Shapes("MaZone").Select
Selection.Characters.Text = MonTexte
End Sub

A+
Didier

 

[Celeda]

Bonjour,

Houppi!!!!!!!!!!!!!!!!!!!


Je ne sais pas si on a deux Didiers en Un ou s'ils se complètent, mais en tout cas, impec cette petite procédure et je t'en remercie grandement ou je VOUS en remercie.


Celeda

 

[Didier]

Je lis seulement tes remerciements ... et juste pour te dire qu'il n'y a qu'un Didier ou les deux sont la même personne si tu préfères.

Bonsoir.
Didier