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