Dessiner via VBA

Résolu
mout8787 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -  
mout8787 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -
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:

2 réponses

pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 762
 
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
0
mout8787 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
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!
0