Discussion :

[Pierre.g]

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.

[ucfoutu]

essaye d'utiliser le Set ici également :

Code :

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

cellule = cellule.Offset(1)

Edit :
ou utilise le offset (avec un compteur) chaque fois que tu ajoutes un bouton

[Pierre.g]

Merci, c'était bien ça, ça marche avec "Set".