Discussion :

[rookie31]

Bonjour à tous,

Après avoir déclarer la variable efface

Code :

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

Dim efface As CommandButton

et tempcell

Code :

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

Dim rcell, ccell, tempcell

la ligne suivante pose probleme lors de la compilation !

Code :

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

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

alors que celle-ci non !!

Code :

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

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

Merci de votre aide

[patricktoulon]

bonjour

essaie plutot ca

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
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

[rookie31]

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