MACRO

[Deborah]

Bonjour à tous et toutes membres du forum,

J'essaye depuis un petit moment de trouver une solution pour m'éviter de nombreuses lignes de codes !!! pour une petite macro qui m'est très utile pour remplir de grands tableaux.

Je remercie par avance toutes les bonnes volontés qui pourront m’aider.

Deborah

 

[Robert]

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

 

[Deborah]

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

 

[Robert]

re Deborah,

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

À plus,

Robert

 

[Deborah]

RE:

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