Inserer shape

salut

c'est cet exemple qu'est ce que je veux faire

Bonjour,

je sais insérer un shape en vba, mais mon pc ne peut ouvrir les fichier .rar,

c'est dommage, pouvez-vous joindre un fichier excel ?

salut

merci à ta réponse mais le fichier c'est intact pour moi voici l'application flashplayer pour ouvrir le fichier flash seul sans ouvrir le fichier xl

Bonsoir,

Juste pour info: quand un fichier est joint directement, un clic suffit pour l'ouvrir, quand il est zippé, voire passé par CJoint en raison de la taille, cela peut se comprendre et si le sujet intéresse on peut faire un effort pour le décompresser puis l'ouvrir. Quand il est compressé sans justification de taille (ou autre : plusieurs fichiers...), c'est mettre un obstacle inutile à son ouverture, et plus encore quand cela exige une application tierce pour le décompresser...

Dans ces cas, je me dispense de l'ouvrir...

Cordialement.

salut

voici le fichier

Bonjour,

Module feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim n%, i%
    If Target.Address = "$F$2" Then
        n = Target
        If n <= 0 Then Exit Sub
        If n > 5 Then n = 5
        Application.ScreenUpdating = False
        For i = 1 To n
            Me.Shapes("Hexagone " & i).Visible = msoTrue
        Next i
        Application.OnTime Now + TimeValue("00:00:01"), "Disparaitre"
    End If
End Sub

Module Standard :

Sub Disparaitre()
    Static n As Integer
    n = n + 1
    With ActiveSheet
        If n > .Range("F2") Or n > 5 Then n = 0: Exit Sub
        .Shapes("Hexagone " & n).Visible = False
        Application.OnTime Now + TimeValue("00:00:01"), "Disparaitre"
    End With
End Sub

Cordialement.

merci