Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Créer un CommandButton dynamique

StrikeBEH

XLDnaute Occasionnel
Bonjour à tous,
J'ai un "petit" soucis à résoudre et après avoir chercher une solution pendant de nombreuses heures, je n'ai rien trouvé !
Je m'en remets donc à vous...

Plus en détails, j'essaye de faire en VBA, un "logiciel" de compte banquaire.
A l'ouverture du classeur, il n'y a que la page "Accueil", les autres pages pouvant exister sont supprimées.
Sur cette page et si le "logiciel" est ouvert pour la première fois, j'ouvre un UserForm afin de le personnaliser.
Les infos sont ensuite récapitulées sur la page "Accueil".
Puis ensuite, je crée une nouvelle page en fonction du mois et de l'année (ex: jan 2014).
Jusque la tout va bien...
Mais ensuite, je souhaiterai ajouter sur la page "jan 2014" un CommandButton "Nouvelle saisie" avec le code généré automatiquement pour gérer le "click"...
Et la, j'avoue, je GALERE !!!

Peut-être y aura-t-il une âme charitable, afin de me mettre sur la voie...

Par avance, merci à vous !

P.S.
J'utilise le code suivant pour créer une nouvelle feuille...
' Si Document non vierge
If Sheets(1).Name = "Accueil" Then
' Création Feuille pour mois en cours
For i = 1 To Sheets.Count
If Sheets(i).Name = (vMois & " " & vAn) Then MenCours = 1
Next i

If MenCours = 0 Then
Sheets.Add AFTER:=Sheets(Sheets.Count)
ActiveSheet.Name = (vMois & " " & vAn)

With ActiveWorkbook.Sheets(vMois & " " & vAn).Tab
.Color = vbCyan
.TintAndShade = 0
End With
End If
 

StrikeBEH

XLDnaute Occasionnel
Re : Créer un CommandButton dynamique

Bonsoir Lone-wolf,

Pour répondre à votre question, MenCours est une variable que j'ai défini et qui correspond au Mois en Cours, en l'occurence, MenCours="jan 2014".

Ai-je bien répiondu ?

Cordialement,
 

Discussions similaires

Réponses
8
Affichages
707
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…