Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel [HS] Bonsoir, Bonne nuit à tous et toutes

[HS] Bonsoir, Bonne nuit à tous et toutes

1 réponse
Avatar
garnote
Petite détente :

Sub NainPorteQuoi()
Sheets.Add
Application.DisplayFullScreen = True
ActiveWindow.DisplayGridlines = False
For i = 1 To 360 Step 15
k = k + 1
Angle = i * WorksheetFunction.Pi / 180
Gauche = 200 - 100 * Cos(Angle)
Haut = 150 - 100 * Sin(Angle)
Set c = ActiveSheet.Shapes.AddShape _
(msoShapeSmileyFace, Gauche, Haut, 200, 200)
c.Fill.ForeColor.SchemeColor = k
Next i
For j = 1 To 40
ActiveSheet.Shapes(24).IncrementRotation 36
For i = 1 To 23
ActiveSheet.Shapes(i).Fill.ForeColor.SchemeColor _
= Int(56 * Rnd())
DoEvents
Next i
Next j
Set groupe = ActiveSheet.DrawingObjects.Group
End Sub

Serge
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
Caroline L.
très amusante ta macro

Bonne nuit



"garnote" a écrit dans le message de news:


Petite détente :

Sub NainPorteQuoi()
Sheets.Add
Application.DisplayFullScreen = True
ActiveWindow.DisplayGridlines = False
For i = 1 To 360 Step 15
k = k + 1
Angle = i * WorksheetFunction.Pi / 180
Gauche = 200 - 100 * Cos(Angle)
Haut = 150 - 100 * Sin(Angle)
Set c = ActiveSheet.Shapes.AddShape _
(msoShapeSmileyFace, Gauche, Haut, 200, 200)
c.Fill.ForeColor.SchemeColor = k
Next i
For j = 1 To 40
ActiveSheet.Shapes(24).IncrementRotation 36
For i = 1 To 23
ActiveSheet.Shapes(i).Fill.ForeColor.SchemeColor _
= Int(56 * Rnd())
DoEvents
Next i
Next j
Set groupe = ActiveSheet.DrawingObjects.Group
End Sub

Serge