XL 2016 groupage formes et insertion nombres

[exelan]

salut a tous !!

les explications sont dans le fichier
merci d avance

 

[Staple1600]

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)

 

[exelan]

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

 

[Modeste geedee]

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

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

 

[BOISGONTIER]

Bonjour,

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

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

 

[exelan]

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 !!

 

[Staple1600]

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à.

 

[exelan]

presque que la moitié pour l instant !!!

 

[job75]

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+

 

[exelan]

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 !!