XL 2016 groupage formes et insertion nombres

Staple1600

XLDnaute Barbatruc

• 12 Août 2018

• #2

Bonjour le fil, le forum

@exelan
Tu peux préciser/résumer dans ton message quelle est la problématique rencontrée, stp ?
(afin de savoir si je télécharge ou pas le fichier)

 

Vote positif 0 Vote négatif

exelan

XLDnaute Occasionnel

• 12 Août 2018

• #3

salut staple 1600

1er probleme
1) Insérer des formes rondes ça c'est bon
2) après comment les regrouper automatiquement (une fois selectionner) pour être bien alignés comme les "figures 1 et 2"
2eme probleme
1) comment inserer du texte ou nombre a la dimension voulue et centrer dans la forme "figure 1" (52)
et qui reste solidaire avec la forme si je la deplace exemple: "figure 3"
2) dans la "figure 3" seul le deplacement et bon, sinon impossible de mettre le nombre (25) plus gros et centrer

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 12 Août 2018

• #4

exelan à dit:

salut staple 1600


2eme probleme
1) comment inserer du texte ou nombre a la dimension voulue et centrer dans la forme "figure 1" (52)
et qui reste solidaire avec la forme si je la deplace exemple: "figure 3"
2) dans la "figure 3" seul le deplacement et bon, sinon impossible de mettre le nombre (25) plus gros et centrer

Cliquez pour agrandir...

utiliser les menus...
explorer les options
consulter l'aide

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 12 Août 2018

• #5

Bonjour,

groupe/dégroupe les images d'un champ.

Code:

Sub EssaiGroupage()
  GroupeImages Range("B7:C17"), "Groupe1"
  GroupeImages Range("E7:F17"), "Groupe2"
End Sub

Sub GroupeImages(champ As Range, NomGroupe)
  Dim a()
  n = 0
  For Each s In ActiveSheet.Shapes
    If Not Intersect(Range(s.TopLeftCell.Address), champ) Is Nothing Then
       n = n + 1: ReDim Preserve a(1 To n)
       a(n) = s.Name
    End If
   Next
   ActiveSheet.Shapes.Range(a).Group.Name = NomGroupe
End Sub

Sub degroupage()
  ActiveSheet.Shapes("groupe1").Ungroup
  ActiveSheet.Shapes("groupe2").Ungroup
End Sub

jb

 

Pièces jointes

• Copie de forme et insertion.xls

  92 KB · Affichages: 35

Dernière édition: 13 Août 2018

Vote positif 0 Vote négatif

exelan

XLDnaute Occasionnel

• 12 Août 2018

• #6

salut
Ce lien n'existe plus merci c bon !!

BOISGONTIER je voudrais le faire sans vba les groupes de ronds ne sont jamais pareil en forme et quantité mais merci de ton aide a toi aussi !!

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Août 2018

• #7

Re

@exelan
Merci d'avoir ajouter ces précisions. 😉
Comme entre temps, d'autres XLDNnautes t'ont apporté réponse, j'en suis resté là.

 

Vote positif 0 Vote négatif

exelan

XLDnaute Occasionnel

• 12 Août 2018

• #8

presque que la moitié pour l instant !!!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Août 2018

• #9

Bonsoir exelan, JM, Modeste geedee, JB,

Le VBA est la solution pour ne pas se fatiguer mais comme vous n'en voulez pas...

Figure 1

- créer un cercle et clic droit => Taille et propriétés

- dimensionner la forme par exemple 2 cm x 2 cm

- lui donner la propriété "Ne pas déplacer ou dimensionner avec les cellules"

- avec l'onglet ACCUEIL formater l'intérieur de l'objet (police, couleur, alignement)

- sélectionner toutes les cellules puis hauteur des lignes = 57,75 largeur des colonnes = 10,14

- positionner la forme en haut à gauche de la feuille et la copier-coller dans les cellules B1 C1 A2 B2 C2 A3 B3 C3

Figure 2

- copier-coller l'une des formes en E1 F1 G1

- sélectionner les 2 formes en F1 et G1 et clic droit => Grouper

- copier-coller ce groupe et disposez-le correctement sous les formes en E1 F1 G1

- sélectionner les 3 formes en E1 F1 G1 et clic droit => Grouper

- copier-coller ce groupe et disposez-le correctement sous les 5 formes précédentes

- dissocier les groupes

A+

 

Vote positif 0 Vote négatif

exelan

XLDnaute Occasionnel

• 13 Août 2018

• #10

job75
salut et merci
c est exactement la procédure faite pour mon fichier mis sur ce forum
apparemment on ne peut guerre faire mieux que d associer une ligne de formes et de copier coller a la main donc j en reste la
merci encore !!

 

Vote positif 0 Vote négatif