Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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: 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" 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 .
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
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" 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 .
Tatanka
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" a écrit dans le message de news: 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" 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
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" a écrit dans le message de news: 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" 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 .
Péhemme
Ne t'inquiète pas Serge, cela fonctionne parfaitement bien. Et du soleil, on en a besoin actuellement. ;-)) Michel
"Tatanka" a écrit dans le message de 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 ».
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
Ne t'inquiète pas Serge, cela fonctionne parfaitement bien. Et du soleil, on en a besoin actuellement. ;-)) Michel
"Tatanka" a écrit dans le message de 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
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
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, 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
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" a écrit dans le message de news: 4ce2cdcd$0$7705$
Ne t'inquiète pas Serge, cela fonctionne parfaitement bien. Et du soleil, on en a besoin actuellement. ;-)) Michel
"Tatanka" a écrit dans le message de 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 ».
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
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" a écrit dans le message de news: 4ce2cdcd$0$7705$
Ne t'inquiète pas Serge, cela fonctionne parfaitement bien. Et du soleil, on en a besoin actuellement. ;-)) Michel
"Tatanka" a écrit dans le message de 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