MACRO

R

Robert

Guest

• 21 Août 2004

• #2

Salut Deborah, salut le forum,

Voici ta macro modifiée qui devrait faire ce que tu demandes.

Sub MACRO1()
Dim text As String
ActiveSheet.Shapes("Rectangle 1").Select
text = Selection.Characters.text
ActiveCell.Select
ActiveCell.Value = text
With Selection.Interior
.ColorIndex = 39
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
ActiveCell.Offset(0, 1).Select
End Sub

À plus,

Robert

 

Vote positif 0 Vote négatif

D

Deborah

Guest

• 21 Août 2004

• #3

RE:

Un trés grand merci Robert c'est exactement ce dont j'avais besoin
et je vous embrasse virtuellement si vous me le permettez.

Deborah

 

Vote positif 0 Vote négatif

R

Robert

Guest

• 21 Août 2004

• #4

re Deborah,

Ce qui me gêne c'est le "virtuellement"...

À plus,

Robert

 

Vote positif 0 Vote négatif

D

Deborah

Guest

• 21 Août 2004

• #5

RE:

Desolée... Je ne maitrise pas trés bien de la langue de Moliere...
4 vraies grosses bises Robert....
A plus
Deborah.

 

Vote positif 0 Vote négatif