Bonjour,

Je code une fonction qui créé des boutons les uns en dessous des autres.

Le problème, c'est que pour l'instant, ils ne se créent pas les uns en dessous des autres, mais tous sur la même cellule :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    ' Trouve la cellule sélectionnée
    Dim cellule As Range
    Set cellule = ActiveCell
 
    ' Créé les boutons
    Dim bouton As Button
    While nombre_boutons
        Set bouton = ActiveSheet.Buttons.Add(cellule.Left, cellule.Top, _
                                             cellule.Width, cellule.Height)
        bouton.OnAction = "'MacroBidon""" & cellule.Address & """'"
        bouton.Characters.Text = "Hello"
 
        cellule = cellule.Offset(1)
        nombre_boutons = nombre_boutons - 1
    Wend
Quelqu'un voit d'où ça peut venir ?

Merci,
Pierre.