Ajout bouton CommandButton

Version imprimable

04/05/2012, 11h28
rookie31

Ajout bouton CommandButton

Bonjour à tous,

Après avoir déclarer la variable efface

Code:

Dim efface As CommandButton

et tempcell

Code:

Dim rcell, ccell, tempcell

la ligne suivante pose probleme lors de la compilation !

Code:

Set efface = Sheets("Nom Onglet").CommandButtons.Add(tempcell.Left + tempcell.Width, tempcell.Top, tempcell.Width, tempcell.Height)

alors que celle-ci non !!

Code:

Set bouton = Sheets("Nom Onglet").CheckBoxes.Add(tempcell.Left + tempcell.Width, tempcell.Top, tempcell.Width, tempcell.Height)

Merci de votre aide

heu

bonjour

essaie plutot ca

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
Sub essaie()
Dim efface As Object
 
Dim  tempcell
 
'ici je prend la cellule f3 pour reference pour l'emplacement du bouton
 
tempcell = [f3].Address  ' a adapter a ton cas 
 
set efface = Sheets("Nom Onglet").OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
    Link:=False, DisplayAsIcon:=False, Left:=range(tempcell).Left + range(tempcell).Width, Top:=range(tempcell).Top, _
    Width:=range(tempcell).Width, Height:=range(tempcell).Height)
 
end sub

au plaisir

04/05/2012, 12h47
rookie31

super ca marche nickel !
Merci beaucoup pour la qualité et la réactivité de la réponse !:)