Discussion :

[artisous43]

Bonjour les experts.....

Est ce que quelqu'un peux me dire comment tracer un rectangle en utilisant un nom de cellule pour ordonnée et non pas le point de positionnement à l' écran comme me le donne un enregistrement de macro?

Ex- tracer un rectangle blanc dur la plage de cellules "A1","B7".

Merci d' avance pour votre aide.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Range("A4:C12")
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, .Left, .Top, .Width, .Height).Select
End With

[artisous43]

Merci Mercatog,

apres un essai j'ai le message suivant à l'ecran:
Erreur définie par l'application ou par l'objet.

Voici ma syntaxe. (J'utilise des cellules indéxées pour déplacer le rectangle suivant le besoin)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Range((IndexCol1 & "23"), (IndexCol2 & "29"))
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, .Left, .Top, .Width, .Height).Select
End With

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With Range(Cells(23, IndexCol1), Cells(29, IndexCol2))

[mnarchi]

Bonjour,
je te propose ce code que j'utilise souvent pour pouvoir aligner au millimètre plusieurs graphiques dans la même feuille de calcul

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Dessine_Rectangle()
 
Gauche = Range("A1").Left
Haut = Range("A1").Top
Largeur = Range("A1:B7").Width
Hauteur = Range("A1:B7").Height
 
ActiveSheet.Shapes.AddShape(msoShapeRectangle, Gauche, Haut, Largeur, Hauteur).Select
 
End Sub

bon courage

[artisous43]

Merci beaucoup, c' est ok....
Seul petit problème, si je peux me permettre. Je pensais pouvoir facilement effacer cette figure en la sélectionnant. Mais, non... Impossible de faire une sélection.
Peux tu me dire comment retrouver les cellules cachées par ce masque?

Merci d' avance

[artisous43]

Merci,

je ne sais pas si tu peux lire la réponse donnée par Mercatog...
C' est celle que j'applique. En 2 lignes, le tour est joué...

A bientôt pour d' autres questions... VBA est un monde qui me fascine mais que je ne maîtrise pas.