Discussion :

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Qwazerty]

Salut
Essai comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

bonjour quazerty

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

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

[patricktoulon]

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?

[Qwazerty]

re

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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