Dessiner via VBA

Résolu/Fermé
Signaler
Messages postés
11
Date d'inscription
mercredi 10 mars 2010
Statut
Membre
Dernière intervention
23 avril 2010
-
Messages postés
11
Date d'inscription
mercredi 10 mars 2010
Statut
Membre
Dernière intervention
23 avril 2010
-
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.

2 réponses

Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 667
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
Messages postés
11
Date d'inscription
mercredi 10 mars 2010
Statut
Membre
Dernière intervention
23 avril 2010

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!