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