VBA 2010, Shapes Fermé

Question

Bonjour à tous. Etant nul en VBA(je n'y comprends pas grand chose, j'apprends avec des copier-coller, en essayant de piger).
j'insére dans une feuille Excel des "Shapes", (cercle, anneau, rectangle, ect.) avec le mode "INSERTION" à l'aide du ruban d'accueil normal. J'arrive à renommer ces "Shapes" avec VBA. Mais j'aimerais bien sélectionner un de ces "Shapes", soit, "Cliquer" dessus pour ensuite modifier,par ex., la couleur, un texte, en avoir un certain controle.
Pourriez-vous me faire une macro, un exemple basique que je pourrais élargir par la suite.
Bien merci d'avance.





Configuration: Windows / Edge 97.0.1072.76

cs_Le Pivert · Answer

Bonjour,

voir ceci:

http://boisgontierj.free.fr/fichiers/Images/lesimages.htm

f894009 · Answer

Bonjoura vous deux,

Oui, mais ne permet pas de modifier en dynamique les parametres d'une Shappe avec choix dans les 
differents parametres

aufilduweb
J'arrive à renommer ces "Shapes" avec VBA
Comment, a partir d'une Userform ou ?

aufilduweb · Answer

Bonjour. Et merci d'abord. C'est rapide . J'arrive à renommer les "Shapes" avec une simple macro :

With Feuil1.Shapes.AddShape(msoShapeRectangle, 20, 20, 70, 20)
        .Name = "Titre"  
pour un rectangle par ex. Vous l'aurez compris plus vite que moi.

Ceci copié sur un site quelconque ..Et ça marche !
Merci d'avance.

f894009 · Answer

Bonjour,

J'arrive à renommer les "Shapes"
Oui, mais seulement sur creation de la Shapes ou alors vous ne changez jamais le nom
Par contre,  vous devez passez par une userform  et il faut affecter une procedure (la meme) a chaque Shapes au mement de la creation
Question: vous mettez vos Shapes n'import ou ou sue click d'une cellule?
Pour changement couleur, fonts vous devez passez par une userform et un control Activex pour changement couleur et fonts. Pour le texte un peu plus simple mais devra etre integre a l'UF

Vous decortiquez facilement les codes VBA, car j'ai un fichier qui vous permettrait d'avancer

aufilduweb · Answer

Hello f894009 . Ce n'est pas trop convivial mais je remercierai aussi CCM pour ces échanges.
Oui, je place mes "Shapes" n'importe ou !
Je voulais éviter Userform, car ça me complique un peu (trés novice en la matiére), mais je vais essayer.
Comme beaucoup de gens, j'applique le peu que je sais pour faire des mini-programmes à des fins toutes personnelles.
J'ai un peu de temps (retraite), alors merci.

f894009 · Answer

Re,

mes "Shapes" n'importe ou !
Ben, va pas etre simple.
Et vous creez des Shapes differentes (rectangle, cercle, et autre) pour rendre la tache encore plus facile

Je voulais éviter Userform,
Perso, je ne connais que cette methode

Pouvez mettre votre fichier a dispo que je vois un peu de quoi il en retourne
Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

aufilduweb · Answer

Merci de votre patience. En fait je ne crée qu'une dizaine de cercles par ex.. Pour les rectangles et autres, je pense que l'ordinogramme doit se ressembler. 
Je n'ai pas de fichier dispo, car au fur et à mesure que j'essaie d'écrire une macro, ça plante (évidemment) et j'efface pour recommencer autre chose. Je bégaie, quoi !
Mon idée était de dessiner par insertion (ou par VBA) des "Shapes" sur une feuille de calcul Excel (Feuil1 par ex.), pour ensuite avoir la possibilité de cliquer sur une de ces "Shapes", en la sélectionnant, et celle-ci changerait de couleur (ou de texte) en fonction du nombre de fois qu'elle aurait été cliquée.
Je connais un petit peu Userform, mais je voulais m'en passer.
Bonne reception.

f894009 · Answer

Re,

en fonction du nombre de fois qu'elle aurait été cliquée.
Pourquoi pas, faudra faire une mise en memoire dans une feuille 

mais je voulais m'en passer.
Ben, faudra y passer car pour le changement de couleur pas d'autre moyen. Pour le texte pas d'obligation

VBA 2010, Shapes

8 réponses

Discussions similaires