add shape ne fonctionne pas

Version imprimable

bonjour a tous
la ligne en rouge me genere une erreur variable non definie
pourtant en mode debugage quand je pointe la souris sur la variable elle est bien definie
la variable "forme " prend le tag d'un bouton de ma command bar...ca ca fonctionne

quelqu'un aurais une idéee

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Sub enleve()


Dim ShapeObj As Shape

For Each ShapeObj In Sheets(2).Shapes
        If ShapeObj.Name <> "CommandButton1" Then
        ShapeObj.Delete
    End If
    Next ShapeObj
End Sub
Sub particule()
enleve
forme = CommandBars.ActionControl.Tag
Dim couleur As Long
hauteur = Sheets("enveloppe").Range("a20").Top
largeur = Sheets("enveloppe").Range("j1").Left

'"""""""""""""""""""""""""""""""""""""""""
'1 ere partie
For j = 1 To 100
    texture = Int((24 * Rnd)) + 1 'il ya 24 texture disponible
    couleurbleu = Int((255 * Rnd))
    couleurrouge = Int((255 * Rnd))
    couleurverte = Int((255 * Rnd))
    taille = Int((15 * Rnd))
    If taille < 6 Then taille = 6
        Randomize
        DoEvents
        haut = Int((hauteur * Rnd)) + 1
      larg = Int((largeur * Rnd)) + 1
  With Sheets("enveloppe").Shapes
    .AddShape(forme, larg, haut, taille, taille).Name = "etoile" & jWith Sheets("enveloppe").Shapes("etoile" & j)
.Line.Visible = msoFalse
        .Fill.Visible = msoTrue
        .Fill.ForeColor.RGB = couleurbleu & couleurrouge & couleurverte
        .Fill.OneColorGradient msoGradientHorizontal, 1, 0.39
        
End With
 End With
 Next


For Each ShapeObj In Sheets(2).Shapes
       
       
       If Left(ShapeObj.Name, 6) = "etoile" Then
       i = Right(ShapeObj.Name, 1)
            If ShapeObj.Top > [h9].Top And ShapeObj.Left > [h10].Left And ShapeObj.Top < [h15].Top Then
        ShapeObj.Delete
        End If
        
        End If
    
suite:
    Next ShapeObj
 End Sub

merci pour le coup de main

au plaisir

Salut
Essai comme ca

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Option Explicit
Sub enleve()
 
 
Dim ShapeObj As Shape
 
For Each ShapeObj In Sheets(2).Shapes
        If ShapeObj.Name <> "CommandButton1" Then
        ShapeObj.Delete
    End If
    Next ShapeObj
End Sub
Sub particule()
enleve
forme = CommandBars.ActionControl.Tag
Dim couleur As Long
hauteur = Sheets("enveloppe").Range("a20").Top
largeur = Sheets("enveloppe").Range("j1").Left
 
'"""""""""""""""""""""""""""""""""""""""""
'1 ere partie
For j = 1 To 100
    texture = Int((24 * Rnd)) + 1 'il ya 24 texture disponible
    couleurbleu = Int((255 * Rnd))
    couleurrouge = Int((255 * Rnd))
    couleurverte = Int((255 * Rnd))
    taille = Int((15 * Rnd))
    If taille < 6 Then taille = 6
    Randomize
    DoEvents
    haut = Int((hauteur * Rnd)) + 1
    larg = Int((largeur * Rnd)) + 1
    With Sheets("enveloppe").Shapes
        With .AddShape(forme, larg, haut, taille, taille)
            .Name = "etoile" & j
        'With Sheets("enveloppe").Shapes("etoile" & j)
            .Line.Visible = msoFalse
            .Fill.Visible = msoTrue
            .Fill.ForeColor.RGB = couleurbleu & couleurrouge & couleurverte
            .Fill.OneColorGradient msoGradientHorizontal, 1, 0.39
 
        End With
    End With
 Next
 
 
For Each ShapeObj In Sheets(2).Shapes
    If Left(ShapeObj.Name, 6) = "etoile" Then
        i = Right(ShapeObj.Name, 1)
        If ShapeObj.Top > [h9].Top And ShapeObj.Left > [h10].Left And ShapeObj.Top < [h15].Top Then
            ShapeObj.Delete
        End If
    End If
 
suite:
Next ShapeObj
 
End Sub

Pense a déclarer tes variables, ça évite parfois bien des problèmes et heu avant de poster un code, il serait sympa de l'indenter comme il faut, c'est illisible tel quel.

++
Qwaz

25/01/2011, 20h36
patricktoulon

re

bonjour quazerty

je te remercie pour ta reponse rapide je vais essayer tout de suite:ccool:

quand a mes variables elles sont bien declarée je n'ai pas tout mis dans le post

j'essaie et je revient

au plaisir :P
25/01/2011, 20h44
patricktoulon

re

re

ca ne fonctionne pas du tout ca ne fait absolument rien la je ne comprend pas

la difference avec la mienne c'est les deux boucles "with et end with "

a tu une idée?

Code:

1
2
3
4
5
6
7
8
9
 
        With .AddShape(forme, larg, haut, taille, taille)
            .Name = "etoile" & CStr(j)
            .Line.Visible = msoFalse
            .Fill.Visible = msoTrue
            .Fill.ForeColor.RGB = couleurbleu & couleurrouge & couleurverte
            .Fill.OneColorGradient msoGradientHorizontal, 1, 0.39
 
        End With

++
Qwaz

26/01/2011, 13h36
patricktoulon

re

bonjour

j'ai trouver une solution

dans le tag de mon commandbarbutton je mettais par exemple "msoshapeheart"(coeur)
et la variable"forme" prenait son tag comme valeur et elle etait de type variant

maintenant la variable "forme et de type long
et dans le tag du bouton je met l'index du type de mso
et ca fonctionne

au plaisir
26/01/2011, 17h56
Qwazerty

Salut
Autre chose, le Randomize, inutile de l'appeler 100 fois, autant le mettre une fois en début de code pour initialiser le générateur d'aléatoires.
++
Qwaz