[HS] Une macro parfaitement inutile :-)

Le
Tatanka
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 ».
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LSteph
Le #22799591
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"
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 .
Tatanka
Le #22799681
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" 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"
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 .
Péhemme
Le #22799741
Ne t'inquiète pas Serge, cela fonctionne parfaitement bien.
Et du soleil, on en a besoin actuellement.
;-))
Michel

"Tatanka" news:ibsmt6$ha6$
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 ».

Modeste
Le #22800171
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
Tatanka
Le #22800321
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"
Ne t'inquiète pas Serge, cela fonctionne parfaitement bien.
Et du soleil, on en a besoin actuellement.
;-))
Michel

"Tatanka"
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 ».




Publicité
Poster une réponse
Anonyme