B
Bernard LAUNAY
Guest
re-bonjour & merci d'avance.
une partie de ma précédente demande a été satisfaite, merci
pour la suite, je vais m'exprimer autrement . . .
CAS d'ÉCOLE:
Je voudrais, par exemple, en cellule L25, sachant que toutes les lignes ont une hauteur de 30, et ttes les colonnes une largeur de 3, dessiner en macro VB un rectangle remplissant un % de sa hauteur, sur toute sa largeur.
Dans le cas précis, un rectangle de WEIGHT=19.5 et HEIGHT=30 remplit totalement la cellule...
Je pense employer l'instruction suivante, mais je ne sais pas la paramétrer dans ses détails:
With ActiveSheet.Shapes.AddShape(msoShapeRectangle, <val1>, <val2>, <val3>, <val4>).Name="monRectangle"
Je suppose que:
<val1> = adresse verticale (comment établir la relation avec une cellule?)
<val2> = adresse horizontale( - d° - )
<val3> = largeur ?
<val4> = hauteur ?
Est-ce OK?, et comment faire le lien entre les différents parmètres (taille cellule en points, formes en cms etc.....
une partie de ma précédente demande a été satisfaite, merci
pour la suite, je vais m'exprimer autrement . . .
CAS d'ÉCOLE:
Je voudrais, par exemple, en cellule L25, sachant que toutes les lignes ont une hauteur de 30, et ttes les colonnes une largeur de 3, dessiner en macro VB un rectangle remplissant un % de sa hauteur, sur toute sa largeur.
Dans le cas précis, un rectangle de WEIGHT=19.5 et HEIGHT=30 remplit totalement la cellule...
Je pense employer l'instruction suivante, mais je ne sais pas la paramétrer dans ses détails:
With ActiveSheet.Shapes.AddShape(msoShapeRectangle, <val1>, <val2>, <val3>, <val4>).Name="monRectangle"
Je suppose que:
<val1> = adresse verticale (comment établir la relation avec une cellule?)
<val2> = adresse horizontale( - d° - )
<val3> = largeur ?
<val4> = hauteur ?
Est-ce OK?, et comment faire le lien entre les différents parmètres (taille cellule en points, formes en cms etc.....