Manipulation sur une feuille créée et nommée
Résolu/Fermé
winflow
Messages postés
156
Date d'inscription
mercredi 7 avril 2010
Statut
Membre
Dernière intervention
17 mars 2015
-
Modifié par winflow le 6/12/2013 à 16:01
winflow Messages postés 156 Date d'inscription mercredi 7 avril 2010 Statut Membre Dernière intervention 17 mars 2015 - 4 janv. 2014 à 01:14
winflow Messages postés 156 Date d'inscription mercredi 7 avril 2010 Statut Membre Dernière intervention 17 mars 2015 - 4 janv. 2014 à 01:14
A voir également:
- Manipulation sur une feuille créée et nommée
- Comment supprimer une feuille sur word - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Comment faire une liste déroulante dans excel à partir d'une plage nommée ? - Guide
- Feuille a5 - Guide
- Feuille de style word - Guide
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
6 déc. 2013 à 16:28
6 déc. 2013 à 16:28
Bonjour,
Suffit de demander à lermite222...
Adaptation :
Suffit de demander à lermite222...
Adaptation :
Private Sub CommandButton1_Click() Dim Obj As Object Dim Code As String Sheets("Feuil2").Select 'crée le bouton Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _ Link:=False, DisplayAsIcon:=False, Left:=200, Top:=100, Width:=100, Height:=35) Obj.Name = "BoutonTest" 'texte du bouton ActiveSheet.OLEObjects(1).Object.Caption = "Tester le bouton" 'Le texte de la macro Code = "Sub BoutonTest_Click()" & vbCrLf Code = Code & "Call Tester" & vbCrLf Code = Code & "End Sub" 'Ajoute la macro en fin de module feuille With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule .insertlines .CountOfLines + 1, Code End With End Sub
winflow
Messages postés
156
Date d'inscription
mercredi 7 avril 2010
Statut
Membre
Dernière intervention
17 mars 2015
22
2 janv. 2014 à 10:22
2 janv. 2014 à 10:22
Bonjour,
Désolé de ne pas avoir répondu plus tôt... Je viens de tester et je ne vois pas le bouton sur la feuille créée.
Désolé de ne pas avoir répondu plus tôt... Je viens de tester et je ne vois pas le bouton sur la feuille créée.
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
2 janv. 2014 à 10:24
2 janv. 2014 à 10:24
Bonjour,
Si tu as laissé le code donné précédemment sans le modifier, tu ne verras JAMAIS de bouton sur la feuille créée. La macro donnée ici créé un bouton sur la feuille Feuil2... A adapter :
Si tu as laissé le code donné précédemment sans le modifier, tu ne verras JAMAIS de bouton sur la feuille créée. La macro donnée ici créé un bouton sur la feuille Feuil2... A adapter :
Sheets("Feuil2").Select
winflow
Messages postés
156
Date d'inscription
mercredi 7 avril 2010
Statut
Membre
Dernière intervention
17 mars 2015
22
4 janv. 2014 à 01:14
4 janv. 2014 à 01:14
merci bcp !