Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Remplir et vider une barrique de vin !

Remplir et vider une barrique de vin !

4 réponses
Avatar
garnote
Bonsoir le monde,

Je travaille sur un sacré beau projet (!) qui consiste à
simuler le remplissage et le vidage d'une barrique de vin.
Ma foi, c'est du plus bel effet. Mais là je commence
à avoir envie d'en boire pour vrai !
Comment rendre ça encore plus réaliste ?
Moi je prends une petite pause vinicole !

Dim baril As Object
Dim vin As Object

Sub Construction()
Worksheets.Add
ActiveWindow.DisplayGridlines = False
Set baril = ActiveSheet.Shapes.AddShape _
(msoShapeCan, 100, 50, 150, 200)
Set vin = ActiveSheet.Shapes.AddShape _
(msoShapeCan, 100, 250, 150, 1)
vin.Fill.ForeColor.SchemeColor = 10
End Sub

Sub Remplir()
With vin
Do Until .Height > 200
H = .Height
F = (H + 2) / H
.ScaleHeight F, msoFalse, msoScaleFromBottomRight
DoEvents
For i = 1 To 100000
Next i
Loop
End With
End Sub

Sub Vider()
With vin
Do Until .Height < 2
H = .Height
F = (H - 2) / H
.ScaleHeight F, msoFalse, msoScaleFromBottomRight
DoEvents
For i = 1 To 100000
Next i
Loop
.Top = 250
End With
End Sub

Encore perdu ma macro permettant de dormir !!!

;-)))

Serge
Signaler un problème avec ce contenu

4 réponses

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
Alpha
Bravo Garnote, c'est du plus bel effet.
Alpha

"garnote" a écrit dans le message de news:
DN5Bb.41570$
Bonsoir le monde,

Je travaille sur un sacré beau projet (!) qui consiste à
simuler le remplissage et le vidage d'une barrique de vin.
Ma foi, c'est du plus bel effet. Mais là je commence
à avoir envie d'en boire pour vrai !
Comment rendre ça encore plus réaliste ?
Moi je prends une petite pause vinicole !

Dim baril As Object
Dim vin As Object

Sub Construction()
Worksheets.Add
ActiveWindow.DisplayGridlines = False
Set baril = ActiveSheet.Shapes.AddShape _
(msoShapeCan, 100, 50, 150, 200)
Set vin = ActiveSheet.Shapes.AddShape _
(msoShapeCan, 100, 250, 150, 1)
vin.Fill.ForeColor.SchemeColor = 10
End Sub

Sub Remplir()
With vin
Do Until .Height > 200
H = .Height
F = (H + 2) / H
.ScaleHeight F, msoFalse, msoScaleFromBottomRight
DoEvents
For i = 1 To 100000
Next i
Loop
End With
End Sub

Sub Vider()
With vin
Do Until .Height < 2
H = .Height
F = (H - 2) / H
.ScaleHeight F, msoFalse, msoScaleFromBottomRight
DoEvents
For i = 1 To 100000
Next i
Loop
.Top = 250
End With
End Sub

Encore perdu ma macro permettant de dormir !!!

;-)))

Serge




Avatar
sabatier
et moi, quand je pense que ce garnote ne connaissait même pas Notepad,
j'entombe dans le baril...
jps

Alpha wrote:

Bravo Garnote, c'est du plus bel effet.
Alpha

"garnote" a écrit dans le message de news:
DN5Bb.41570$
Bonsoir le monde,

Je travaille sur un sacré beau projet (!) qui consiste à
simuler le remplissage et le vidage d'une barrique de vin.
Ma foi, c'est du plus bel effet. Mais là je commence
à avoir envie d'en boire pour vrai !
Comment rendre ça encore plus réaliste ?
Moi je prends une petite pause vinicole !

Dim baril As Object
Dim vin As Object

Sub Construction()
Worksheets.Add
ActiveWindow.DisplayGridlines = False
Set baril = ActiveSheet.Shapes.AddShape _
(msoShapeCan, 100, 50, 150, 200)
Set vin = ActiveSheet.Shapes.AddShape _
(msoShapeCan, 100, 250, 150, 1)
vin.Fill.ForeColor.SchemeColor = 10
End Sub

Sub Remplir()
With vin
Do Until .Height > 200
H = .Height
F = (H + 2) / H
.ScaleHeight F, msoFalse, msoScaleFromBottomRight
DoEvents
For i = 1 To 100000
Next i
Loop
End With
End Sub

Sub Vider()
With vin
Do Until .Height < 2
H = .Height
F = (H - 2) / H
.ScaleHeight F, msoFalse, msoScaleFromBottomRight
DoEvents
For i = 1 To 100000
Next i
Loop
.Top = 250
End With
End Sub

Encore perdu ma macro permettant de dormir !!!

;-)))

Serge






Avatar
garnote
Hé Ho quand même !, je connaissais Notepad mais
mon ordi ne le trouve plus.

;-)))

Serge


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

et moi, quand je pense que ce garnote ne connaissait même pas Notepad,
j'entombe dans le baril...
jps

Alpha wrote:

Bravo Garnote, c'est du plus bel effet.
Alpha

"garnote" a écrit dans le message de news:
DN5Bb.41570$
Bonsoir le monde,

Je travaille sur un sacré beau projet (!) qui consiste à
simuler le remplissage et le vidage d'une barrique de vin.
Ma foi, c'est du plus bel effet. Mais là je commence
à avoir envie d'en boire pour vrai !
Comment rendre ça encore plus réaliste ?
Moi je prends une petite pause vinicole !

Dim baril As Object
Dim vin As Object

Sub Construction()
Worksheets.Add
ActiveWindow.DisplayGridlines = False
Set baril = ActiveSheet.Shapes.AddShape _
(msoShapeCan, 100, 50, 150, 200)
Set vin = ActiveSheet.Shapes.AddShape _
(msoShapeCan, 100, 250, 150, 1)
vin.Fill.ForeColor.SchemeColor = 10
End Sub

Sub Remplir()
With vin
Do Until .Height > 200
H = .Height
F = (H + 2) / H
.ScaleHeight F, msoFalse, msoScaleFromBottomRight
DoEvents
For i = 1 To 100000
Next i
Loop
End With
End Sub

Sub Vider()
With vin
Do Until .Height < 2
H = .Height
F = (H - 2) / H
.ScaleHeight F, msoFalse, msoScaleFromBottomRight
DoEvents
For i = 1 To 100000
Next i
Loop
.Top = 250
End With
End Sub

Encore perdu ma macro permettant de dormir !!!

;-)))

Serge









Avatar
guy
Hello,
Il fait beaucoup mieux que dans une gargote le camarade Garnote
Amicalement.
guy
"garnote" a écrit dans le message de
news:5k6Bb.41574$
Hé Ho quand même !, je connaissais Notepad mais
mon ordi ne le trouve plus.

;-)))

Serge


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

et moi, quand je pense que ce garnote ne connaissait même pas Notepad,
j'entombe dans le baril...
jps

Alpha wrote:

Bravo Garnote, c'est du plus bel effet.
Alpha

"garnote" a écrit dans le message de news:
DN5Bb.41570$
Bonsoir le monde,

Je travaille sur un sacré beau projet (!) qui consiste à
simuler le remplissage et le vidage d'une barrique de vin.
Ma foi, c'est du plus bel effet. Mais là je commence
à avoir envie d'en boire pour vrai !
Comment rendre ça encore plus réaliste ?
Moi je prends une petite pause vinicole !

Dim baril As Object
Dim vin As Object

Sub Construction()
Worksheets.Add
ActiveWindow.DisplayGridlines = False
Set baril = ActiveSheet.Shapes.AddShape _
(msoShapeCan, 100, 50, 150, 200)
Set vin = ActiveSheet.Shapes.AddShape _
(msoShapeCan, 100, 250, 150, 1)
vin.Fill.ForeColor.SchemeColor = 10
End Sub

Sub Remplir()
With vin
Do Until .Height > 200
H = .Height
F = (H + 2) / H
.ScaleHeight F, msoFalse, msoScaleFromBottomRight
DoEvents
For i = 1 To 100000
Next i
Loop
End With
End Sub

Sub Vider()
With vin
Do Until .Height < 2
H = .Height
F = (H - 2) / H
.ScaleHeight F, msoFalse, msoScaleFromBottomRight
DoEvents
For i = 1 To 100000
Next i
Loop
.Top = 250
End With
End Sub

Encore perdu ma macro permettant de dormir !!!

;-)))

Serge