Formule (Disposition, intervalle)

Bonjour à tous,

Je cherche une formule pour positionner des rectangles suivant 2 possibilités :

(Nbre Larg x Nbre Haut) ou l'inverse

Explications sur fichier :

Merci d'avance

Amicalement

Claude.

Bonjour claude, forum,

Il y a un post qui parlait de rectangle sur lequel on est intervenu il y a quelque temps.

Essaie avec cette macro :

Sub dimensionner2()
    Dim h!, L!, interv, gauc!, haut!, nblarg!, nbhaut!, gauchini!, i!, j!
    h = Cells(2, 1) / 4
    L = Cells(2, 2) / 4
    interv = Cells(2, 3) / 4
    gauc = Cells(2, 4)
    haut = Cells(2, 5)
    nblarg = Cells(2, 6)
    nbhaut = Cells(2, 7)
    gauchini = gauc
    For i = 1 To nbhaut
        For j = 1 To nblarg
            ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, gauc, haut, L, h).Select
            With Selection
                With .ShapeRange
                    .Fill.ForeColor.SchemeColor = 48
                    .Line.Weight = 2.25
                    .Line.ForeColor.SchemeColor = 12
                End With
            End With
            gauc = gauc + L + interv
        Next j
        haut = haut + h + interv
        gauc = gauchini
    Next i
End Sub

Bonjour vba-new ,

Merci pour ta réponse,

mais j'aurais voulu simplement écrire les départs de chaque rectangle dans les cases jaunes.

J'ai déjà la macro pour positionner les rectangles existants (voir fichier joint)

Je voulais mettre une cerise sur le gâteau en donnant plusieurs possibilités de positionnement.

C'est pourquoi je pensais à une formule, mais là c'est pas mon truc !

Ou alors panacher ta macro avec la mienne de sorte que les départs en colonnes jaunes soient renseignés.

Cela me parait faisable

Je regarderais çà dans la soirée mais si tu trouve avant, fais-moi signe.

Amicalement

Claude.

Bonsoir Claude

Les formules..

Cordialement

re,

Un essai avec une formule en colonne D et une en colonne E.

Amadéus : tes formules ne marchent pas avec par exemple 5 rectangles en largeur. Est-ce fait exprès ? Étant donné que tu as mis une liste de validation en F2.

Bonjour vba-new

J'ai pensé, selon le fichier exemple, qu'il n'y avait que ces 2 possibilités...d'ailleurs, un peu plus haut dans le post, je relis la demande de Claude:

Je cherche une formule pour positionner des rectangles suivant 2 possibilités

Ceci explique cela.

Cordialement

Ah ok!

Pour ma part, je pensais que les deux possibilités étaient d'intervertir le nombre de rectangles en largeur en nombre de rectangles en hauteur et vice versa (3 en hauteur et 4 en largeur donnerait 4 en hauteur et 3 en largeur).

Edit Amadéus: Comme souvent, une question peut donner lieu à plusieurs interprétations et donc être traitée différemment.

Bonjour Amadéus, vba-new , à tous,

J'étais tellement absorbé par le sujet, que je n'ai pas vu passer vos messages,

J'en suis resté aux formules de Amadéus légèrement adaptées.

J'ai aussi ajouté un "Tablo" qui dimensionne et positionne suivant le nombre de graphiques sélectionnés.

c'était çà, la cerise !

On a le choix entre 1 à 16 graphiques (réglés pour impression sur A3 paysage)

merci de votre collaboration,

Joyeuses Fêtes

Claude.