[HS] Une macro parfaitement inutile :-)

Bonjour Serge,

chez moi ce code écrit 71370537 en A1 puis 713705 37 en B1
ensuite il y a le msgbox et on fait OK puis rien d'autre..
La macro semble avoir fini.

Si par la suite je me promène par clics successifs dans la feuille je
finis par cliquer sur un objet dessiné
qui seulement à ce moment là rèvèle ces caractères en Italique: L E
SOLEIL , en dessous de B1
Si je comprends l'idée du reflet ne faudrait il pas qu'il y ait
73 507317 plutôt en B1?

Cordialement.

--
LSteph



On 16 nov, 02:31, "Tatanka" <ramanu...@videotron.ca> wrote:

Sub Soleil_Num rique()
    Sheets.Add
    ActiveWindow.DisplayGridlines = False
    With Range("A1:B1").Font
        .Name = "Times New Roman"
        .Size = 20
    End With
    [a1] = 117193 * 3 * 7 * 29
    [b1] = Left([a1], 6) & " " & Right([a1], 2)
    Columns("A:B").EntireColumn.AutoFit
    [b1].Copy
    [c1].Select
    ActiveSheet.Pictures.Paste.Select
    Selection.Name = "image"
    Application.CutCopyMode = False
    With ActiveSheet.Shapes("image")
        .IncrementRotation 180
        .IncrementTop Selection.Height
        .Left = [b1].Left - 4
    End With
    [b1].Select
    MsgBox Prompt:="obtenu par une rotaion horaire de 180 degr s de B1.", _
           Title:=" LE SOLEIL"
End Sub

Serge
L'automne est le printemps de l'hiver .

BIZZ !
Au Québec, quand le MsgBox apparaît, j'ai 71370537 en A1,
713705 37 en B1 et LE SOLEIL juste en bas de B1.
Macro conçue sous Excel 2007.
Voici une version tipeu plus courte :

Sub Soleil_Numérique()
Set ici = Sheets.Add
ActiveWindow.DisplayGridlines = False
With Range("A1:B1").Font
.Name = "Times New Roman"
.Size = 20
End With
[a1] = 117193 * 3 * 7 * 29
[b1] = Left([a1], 6) & " " & Right([a1], 2)
Columns("A:B").EntireColumn.AutoFit
[b1].Copy
ici.Pictures.Paste.Name = "image"
Application.CutCopyMode = False
With ici.Shapes(image)
.IncrementRotation 180
.IncrementTop Selection.Height
.Left = [b1].Left - 4
End With
[b1].Select
MsgBox Prompt:="obtenu par une rotation horaire de 180 degrés de B1.", _
Title:=" LE SOLEIL"
End Sub

Bonne soirée,
Serge


"LSteph" <gmlsteph@gmail.com> a écrit dans le message de news: 4d615cd8-ac27-425a-aa97-2ed8c47af16c@r14g2000yqa.googlegroups.com...
Bonjour Serge,

chez moi ce code écrit 71370537 en A1 puis 713705 37 en B1
ensuite il y a le msgbox et on fait OK puis rien d'autre..
La macro semble avoir fini.

Si par la suite je me promène par clics successifs dans la feuille je
finis par cliquer sur un objet dessiné
qui seulement à ce moment là rèvèle ces caractères en Italique: LE
SOLEIL , en dessous de B1
Si je comprends l'idée du reflet ne faudrait il pas qu'il y ait
73 507317 plutôt en B1?

Cordialement.

--
LSteph



On 16 nov, 02:31, "Tatanka" <ramanu...@videotron.ca> wrote:

Sub Soleil_Num rique()
Sheets.Add
ActiveWindow.DisplayGridlines = False
With Range("A1:B1").Font
.Name = "Times New Roman"
.Size = 20
End With
[a1] = 117193 * 3 * 7 * 29
[b1] = Left([a1], 6) & " " & Right([a1], 2)
Columns("A:B").EntireColumn.AutoFit
[b1].Copy
[c1].Select
ActiveSheet.Pictures.Paste.Select
Selection.Name = "image"
Application.CutCopyMode = False
With ActiveSheet.Shapes("image")
.IncrementRotation 180
.IncrementTop Selection.Height
.Left = [b1].Left - 4
End With
[b1].Select
MsgBox Prompt:="obtenu par une rotaion horaire de 180 degr s de B1.", _
Title:=" LE SOLEIL"
End Sub

Serge
L'automne est le printemps de l'hiver .

Ne t'inquiète pas Serge, cela fonctionne parfaitement bien.
Et du soleil, on en a besoin actuellement.
;-))
Michel

"Tatanka" <ramanujan@videotron.ca> a écrit dans le message de
news:ibsmt6$ha6$1@speranza.aioe.org...

Sub Soleil_Numérique()
Sheets.Add
ActiveWindow.DisplayGridlines = False
With Range("A1:B1").Font
.Name = "Times New Roman"
.Size = 20
End With
[a1] = 117193 * 3 * 7 * 29
[b1] = Left([a1], 6) & " " & Right([a1], 2)
Columns("A:B").EntireColumn.AutoFit
[b1].Copy
[c1].Select
ActiveSheet.Pictures.Paste.Select
Selection.Name = "image"
Application.CutCopyMode = False
With ActiveSheet.Shapes("image")
.IncrementRotation 180
.IncrementTop Selection.Height
.Left = [b1].Left - 4
End With
[b1].Select
MsgBox Prompt:="obtenu par une rotaion horaire de 180 degrés de B1.", _
Title:=" LE SOLEIL"
End Sub

Serge
« L'automne est le printemps de l'hiver ».

Bonsour®

ramanujan a écrit

Au Québec, quand le MsgBox apparaît, j'ai 71370537 en A1,
713705 37 en B1 et LE SOLEIL juste en bas de B1.
Macro conçue sous Excel 2007.

:-((
Rhaaaaaa.....
j'avais pas compris l'inutilité !!!!
;o))) le résultat serait plus évident en utilisant une police adéquate :
http://www.font-police.com/forme/lcd/LCD.ttf

With Range("A1:B1").Font
.Name = "LCD"
.Size = 20
End With

Rhaaaaa !!!!
cela date de plus de 40ans (époque apparition des calculatrices de poche)
j'ai souvenir d'un questionnaire numérique sur la sélection des partenaires
féminines
dont le résultat était invariablement : 3538,3773

Au Québec, on a un mois de novembre exceptionnellement beau.
Excessivement rare que le mois des morts soit aussi doux et ensoleillé.
L'hostie de câlice de tabarnac d'hiver nous semblera moins long !!!

Serge
« Les gens ne mangeraient pas de caviar s'il était bon marché ».
GM

"Péhemme" <xx@xx.xx> a écrit dans le message de news: 4ce2cdcd$0$7705$ba4acef3@reader.news.orange.fr...

Ne t'inquiète pas Serge, cela fonctionne parfaitement bien.
Et du soleil, on en a besoin actuellement.
;-))
Michel

"Tatanka" <ramanujan@videotron.ca> a écrit dans le message de news:ibsmt6$ha6$1@speranza.aioe.org...

Sub Soleil_Numérique()
Sheets.Add
ActiveWindow.DisplayGridlines = False
With Range("A1:B1").Font
.Name = "Times New Roman"
.Size = 20
End With
[a1] = 117193 * 3 * 7 * 29
[b1] = Left([a1], 6) & " " & Right([a1], 2)
Columns("A:B").EntireColumn.AutoFit
[b1].Copy
[c1].Select
ActiveSheet.Pictures.Paste.Select
Selection.Name = "image"
Application.CutCopyMode = False
With ActiveSheet.Shapes("image")
.IncrementRotation 180
.IncrementTop Selection.Height
.Left = [b1].Left - 4
End With
[b1].Select
MsgBox Prompt:="obtenu par une rotaion horaire de 180 degrés de B1.", _
Title:=" LE SOLEIL"
End Sub

Serge
« L'automne est le printemps de l'hiver ».