placement et déplacement de formes

JCGL

XLDnaute Barbatruc

• 9 Décembre 2008

• #2

Re : placement et déplacement de formes

Bonjour à tous,

Un essai avec une MeFC :

Code:

=ET(COLONNE()-8>=$H$22;COLONNE()-8<=$H$23)

Pas vraiment un déplacement de la forme mais ....

 

Pièces jointes

• JC test.zip

  2.1 KB · Affichages: 16
• JC test.zip

  2.1 KB · Affichages: 17
• JC test.zip

  2.1 KB · Affichages: 20

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 9 Décembre 2008

• #3

Re : placement et déplacement de formes

Bonsoir,

Si on veut écrire du texte dans le shape.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$H$22" Or Target.Address = "$H$23" Then
    With ActiveSheet.Shapes("monshape")
        .TextFrame.Characters.Text = [H22] & "-" & [H23]
        .Left = [I9].Left + [I9].Resize(, [H22]).Width
        .Top = [I9].Top - 5
        .Width = [I9].Resize(, [H23] - [H22]).Width
        .Fill.ForeColor.SchemeColor = 26
        .TextFrame.Characters(Start:=1, Length:=99).Font.Size = 13
  End With
  End If
End Sub

JB
Formation Excel VBA JB

 

Pièces jointes

• ShapesPlanning.xls

  24.5 KB · Affichages: 55
• ShapesPlanning.xls

  24.5 KB · Affichages: 53
• ShapesPlanning.xls

  24.5 KB · Affichages: 61

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 9 Décembre 2008

• #4

Re : placement et déplacement de formes

Merci à vous JCGL et BOISGONTIER,
je retiens la soluce de BOISGONTIER qui permet de rajouter une légende..Génial!!
mais encore une question svp...
je voudrais pouvoir avoir la possibilité de ne rien avoir du tout...c'est à dire H22 et H23 Vides....sans affichage de forme automatique...

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 9 Décembre 2008

• #5

Re : placement et déplacement de formes

Bonjour à tous,

paul87 à dit:

je voudrais pouvoir avoir la possibilité de ne rien avoir du tout...c'est à dire H22 et H23 Vides....sans affichage de forme automatique...

Cliquez pour agrandir...

Pas tout compris mais la question ne m'est pas destiné.

JB : Comment inclure le >= pour les bornes dans ton code ?

A+ à tous

 

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 9 Décembre 2008

• #6

Re : placement et déplacement de formes

re-bonsoir,
non, en fait, j'ai juste besoin d'avoir la possibilté d'avoir H22 et H23 sans valeur, donc pas de forme auto sans que cela ne génère de message d'erreur!!!

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 9 Décembre 2008

• #7

Re : placement et déplacement de formes

Voir PJ

Supprimer les cellules fusionnées en H22:H23

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$H$22" Or Target.Address = "$H$23" Then
   If IsEmpty([H22]) Or IsEmpty([H23]) Or [H23] - [H22] < 0 Or [H22] = 0 Or [H23] = 0 Then
      ActiveSheet.Shapes("monshape").Visible = False
   Else
     With ActiveSheet.Shapes("monshape")
        .TextFrame.Characters.Text = [H22] & "-" & [H23]
        .Left = [H9].Left + [I9].Resize(, [H22]).Width
        .Top = [I9].Top - 5
        .Width = [I9].Resize(, [H23] - [H22] + 1).Width
        .Fill.ForeColor.SchemeColor = 26
        .TextFrame.Characters(Start:=1, Length:=99).Font.Size = 13
        .Visible = True
       End With
    End If
  End If
End Sub

Autre exemple de planning avec shapes:
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#Planning

JB

 

Pièces jointes

• ShapesPlanning.xls

  27 KB · Affichages: 46
• ShapesPlanning.xls

  27 KB · Affichages: 47
• ShapesPlanning.xls

  27 KB · Affichages: 41

Dernière édition: 9 Décembre 2008

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 9 Décembre 2008

• #8

Re : placement et déplacement de formes

Bonjour à tous,

Merci JB de ton retour

Encore une fois les cellules fusionnées sont ,rarement, appréciées par VBA

A++
A+ à tous

 

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 9 Décembre 2008

• #9

Re : placement et déplacement de formes

Grand merci, vraiment !!!
cela va m'etre d'une grande utilité...
une derniere modif svp....
je vais avoir besoin rajouter une deuxième forme auto sur cette échelle de temps...
comment faire..?
et par la suite j'aurais besoin d'en rajouter plusieurs sur d'autres axes de temps dans la meme feuille...(en fait ce fichier n'est que mon ébauche)
Merci encore!!!!
je crois qu'après j'aurais tout ce qu'il me faut pour avancer !!!!

 

Pièces jointes

• ShapesPlanning.xls

  24.5 KB · Affichages: 39
• ShapesPlanning.xls

  24.5 KB · Affichages: 37
• ShapesPlanning.xls

  24.5 KB · Affichages: 43

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 9 Décembre 2008

• #10

Re : placement et déplacement de formes

Il faudrait avoir le pb dans sa totalité.

Exemple plus complet avec plusieurs shapes dans l'onglet BDPlanning:

http://boisgontierjacques.free.fr/fichiers/jb-shapes.zip

JB

 

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 9 Décembre 2008

• #11

Re : placement et déplacement de formes

Merci, j'ai bien vu votre exemple dans BDplanning...il y a plein de point qui vont m'être utiles..!!!
mais ce que je ne comprends pas, c'est comment affecter un nom a un objet Shapes...
dans l'exemple que vous m'avez expédié, la forme auto se nomme "monshape"
comment affecter un nom??

Code:

ActiveSheet.Shapes("monshape").Visible = False

après si je crée moi meme une ou des nouvelles formes auto, je saurais leurs affecter le code....enfin je crois!!!

 

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 9 Décembre 2008

• #12

Re : placement et déplacement de formes

je crois que j'ai réussi,
mais je n'arrive pas à donner le mon que je veux à la forme auto!!!
de plus mon positionnement de la nouvelle forme n'est pas bon....

 

Pièces jointes

• ShapesPlanning.xls

  28 KB · Affichages: 35
• ShapesPlanning.xls

  28 KB · Affichages: 40
• ShapesPlanning.xls

  28 KB · Affichages: 38

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 10 Décembre 2008

• #13

Re : placement et déplacement de formes

re-bonsoir à tous, re-bonsoir le forum...
après un peu de travail, j'ai réussi pas mal de choses....
voir le fichier joint....!!!
mais je tombe sur un OS...
j'ai besoin de valeur négative....c'est à dire:
pour la flèche bleue, en H44 je veux pouvoir par exemple entrer -5, et en H45 12..
et que la flèche se positionne correctement...
merci encore pour votre aide
Paul

 

Pièces jointes

• Shapes_valeurs neg.xls

  41 KB · Affichages: 41

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 10 Décembre 2008

• #14

Re : placement et déplacement de formes

Bonsoir à tous,

Une petite erreur dans le code pour le positionnement du rectangle:

Code:

.Left = [H9].Left + [I9].Resize(, [[COLOR=red]H27[/COLOR]]).Width

et non pas H22.

@+

Gael

PS: super ton code, Boisgontier, je le garde en biblio

 

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 10 Décembre 2008

• #15

Re : placement et déplacement de formes

BONSOIR,
désolé mais je ne comprends pas ta modification..
peux tu m'expliquer stp

 

Vote positif 0 Vote négatif