Discussion :

[thibaut_chaps]

Bonjour tout le monde,
je suis nouveau et j'ai un logiciel de gestion de compte bancaire personnel à réaliser pour l'école mais j'ai un souci

Tout d'abord, j'ai mis au point un userform pour ajouter un compte et dans mes lignes de codes, j'ai fait un double archivage plus cette ligne de code, afin qu'à chaque fois qu'un compte est créer, une nouvelle page se créer où il eszt possible de faire des opérations dépenses et recettes.

Code :

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

1
2
3
4
5
6
7
8
nom = TextBox2.Value
a = Sheets.Count
Sheets("consulcompte").Copy After:=ThisWorkbook.Sheets(a)
Sheets(a + 1).Select
Sheets(a + 1).Name = nom
 
Sheets(a + 1).Range("B4") = TextBox2.Value
Sheets(a + 1).Range("B6") = TextBox7.Value

Le problème maintenant, c'est que je voudrais pouvoir avoir un lien sur mon accueil avec cette page. Mais tant qu'ele n'est pas créer je ne peux pas. Avez vous une solution pour mon problème, je m'arrache les cheveux

Sincèrement
Thibaut

Code :

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

1
2
3
4
5
6
7
8
9
10
11
nom = TextBox2.Value
a = Sheets.Count
Sheets("consulcompte").Copy After:=ThisWorkbook.Sheets(a)
Sheets(a + 1).Select
Sheets(a + 1).Name = nom
 
Sheets(a + 1).Range("B4") = TextBox2.Value
Sheets(a + 1).Range("B6") = TextBox7.Value
 
UserForm1.Hide
Sheets("Mescomptes").Select

[canorra]

Salut,

Je te propose de rendre plus explicite ton problème dans le titre et tu aura certainement plus d'aide.

Plutôt que "à l'aide, au secours, help ou autres de ce genre"

De plus, cibler ou si tu préfères identifier ton problème et le début de la solution

[alsimbad]

salut thibaut.
je ne comprend pas tout a fait ce que tu attend comme solution, parce que je suis pas sur d'avoir compris ton probleme. pour ce que j'en ai compris, tu veux créer une feuille, et que cette feuille ait des liaisons avec ta feuille d'accueil. as tu essayé avec une macro enregistrée. tu crée une feuilles, tu installe tes liaisons, fin de l'enregistrement. ensuite dans le vba tu n'as plus qu'a remplacé le nom de la feuille par ta sheet(nom) et l'inclure dans ta macro, juste apres la création. mais cela m'a l'air bien simple pour quelqu'un qui fait une macro de compte bancaire, donc peut etre que le probleme est plus finaud que ça, mais alors explique toi mieux.

[thibaut_chaps]

Mon projet se décompose de la facon suivante:
J'ai une page Accueil avec les différentes pages consultables sur le logiciel
J'ai une page Mes comptes
Une page Source en quelque sorte qui est recopier à chaque fois qu'un nouveau compte est créer. Sur cette page, je peux ensuite ajouter ddes dépenses ou des recettes mais concernant uniquement ce compte. C'est une page active et donc j'ai utilisé la formule présente dans le premier message pour que cette page soi créer. La formule est bonne mais le problème, c'est qu'une fois cette page créer, je n'ai aucun moyen de me rendre dessus.
Il faudrait que je trouve un moyen de faire un lien entre mon accueil et cette nouvelle page active.

[cafeine]

Hello,

Quelle est cette école où l'on doit gérer ses comptes sur Excel ? (Access me semble plus indiqué ...)

Bref ...
Un lien hypertexte ou un lien de calcul ?

[thibaut_chaps]

pour utiliser un lien hypertexte, il se fai seulement une fois que la page est créee. Mais moi je voudrais qu'a chaque fois que je rajoute un nouveau compte et qu'une page se créer, un lien automatique apparraisse sur mopn accueil avec unl lien pour cette page.

[alsimbad]

et la touche F1? elle est brulante sur ton ordi ou quoi?
je te la livre telle quel.

Code :

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

1
2
3
4
Utilisez la méthode Add pour créer un lien hypertexte et l'ajouter à la collection Hyperlinks. L'exemple suivant montre comment créer un lien hypertexte pour la cellule E5.
With Worksheets(1)
    .Hyperlinks.Add .Range("E5"), "http://www.w3.org"
End With

tu n'as plus qu'a adapter
bonne journée

[thibaut_chaps]

Merci pour cette formule mais pouurais tu m'expliquer clairement en quoi elle consiste car je ne suis pas un pro de l'informatique et j'ai mes limites.
Ou dois je la rentrer et comment m'en servir.
Merci

[alsimbad]

salut
en résumé et en français, parce je suis comme toi, je ne connais pas encore le code, mais il suffit d'un peu de logique. tu as un code qui te crée une feuille. qui la renomme, qui lui ajoute des valeurs de text box, qui masque l'userform, puis qui reviens sur ta feuille d'accueil

Code :

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

1
2
3
4
5
6
7
8
9
10
11
nom = TextBox2.Value
a = Sheets.Count
Sheets("consulcompte").Copy After:=ThisWorkbook.Sheets(a)
Sheets(a + 1).Select
Sheets(a + 1).Name = nom
 
Sheets(a + 1).Range("B4") = TextBox2.Value
Sheets(a + 1).Range("B6") = TextBox7.Value
 
UserForm1.Hide
Sheets("Mescomptes").Select

a ton avis, ou doit tu placer le bout de code qui va crer le lien sur ta feuille d'accueil?

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
nom = TextBox2.Value
a = Sheets.Count
Sheets("consulcompte").Copy After:=ThisWorkbook.Sheets(a)
Sheets(a + 1).Select
Sheets(a + 1).Name = nom
 
Sheets(a + 1).Range("B4") = TextBox2.Value
Sheets(a + 1).Range("B6") = TextBox7.Value
 
UserForm1.Hide
Sheets("Mescomptes").Select
ICI, ça m'a l'air pas mal non?
With Worksheets(1)
    .Hyperlinks.Add .Range("E5"), "http://www.w3.org"
End With

le code t'installe un lien hypertexte dans la cellule de ton choix, avec le texte de ton choix,
allez, je suis sympa. sans etre fort en vba, tu dois savoir enregistrer une macro automatique, c'est la base si tu veux apprendre. voici ce que ça donne. colle ça dans un module et regarde ce que ça donne et comment tu peut l'adapter a ce que tu as besoin
Sub Macro1()
'

Code :

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

1
2
3
4
5
6
7
8
9
' Macro1 Macro
' Macro enregistrée le 21/12/2006 par alsimbad
'
 
'
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "Feuil1!A5", TextToDisplay:="ceci est un lien hypertexte"
    Range("A1").Select
End Sub