Dessiner via VBA

Résolu/Fermé

mout8787 Messages postés 11 Date d'inscription mercredi 10 mars 2010 Statut Membre Dernière intervention 23 avril 2010 - 17 mars 2010 à 10:24
mout8787 Messages postés 11 Date d'inscription mercredi 10 mars 2010 Statut Membre Dernière intervention 23 avril 2010 - 17 mars 2010 à 11:40

Bonjour,
Je souhaites insérer des rectangles sur ma feuille de calcul Excel via VBA. J'ai réussi à créer un rectangle mais maintenant je voudrais changer sa couleur de remplissage et supprimer le contour.
J'ai déjà essayé d'enregistrer la manipulation, mais je comprends pas pourquoi, ça n'enregistre rien. Je me retrouve avec une macro vide.

Merci d'avance.

A voir également:

Dessiner via VBA
Dessiner plan maison gratuit 2d - Télécharger - Architecture & Déco
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
17 mars 2010 à 11:22

Salut,
Mauvaise manipulation? Ca fonctionne bien pourtant chez moi avec l'enregistreur de macro. Bref, voici un code qui pourra t'aider :

Sub test()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 151.5, 95.25, 126.75, 153.75).Select 'ajoute et sélectionne un rectangle
With Selection
.ShapeRange.Fill.ForeColor.SchemeColor = 10 'le colorie en rouge
.ShapeRange.Line.Visible = msoFalse ' supprime le contour
End With
End Sub

Réponse 2 / 2

mout8787 Messages postés 11 Date d'inscription mercredi 10 mars 2010 Statut Membre Dernière intervention 23 avril 2010
17 mars 2010 à 11:40

Merci bien, c'est exactement ça.
Je comprends pas non plus pourquoi l'enregistrement marche pas pourtant je fais comme d'habitude et normalement ça marche. Mais pas là.

Encore merci!

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

Méthode find dans VBA - Recherche de données sous Excel

ouverture d'un fichier excel à partir d'un code VBA

Discussions similaires

Newsletters