[VBA Excel] macro création de feuille

Version imprimable

16/06/2006, 09h47
Viper7

1 pièce(s) jointe(s)

[VBA Excel] macro création de feuille

Bonjour,

J'ai un userform, je souhaiterais, qu'en ayant rentré un numéro de référence dans une textbox,
- il s'affiche le numéro de référence sur une page "données" (c'est fait),
- il se créé une nouvelle Feuille avec pour nom le numéro de référence
- il y ait un lien hypertext sur le numéro de référence de la page "données" qui nous amène à la nouvelle Feuille associée

Voici ce que j'ai fait dans la partie module :

Ok, voici le code mis à jour :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
'mise à jour d'un ajout de données
Sub miseajour()
    Sheets("Données").Activate
    ajouterligne
    Selection.Value = Numéro_de_référence
    ActiveCell.Offset(0, 1).Select
 
    NomFeuille = ActiveSheet.Name
    With Worksheets(NomFeuille)
    .Name = "Numéro_de_référence"
    End With
 
    Range("A1").Select
 
    Sheets("Données").Select
    Range("A2").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
             "'2'!B7"
End Sub

16/06/2006, 10h49
Viper7
Ok je vais essayer d'etre plus précis,

Pour 'Range("A1").Select c'était une erreur, je l'ai virée.

J'ai un classeur avec une feuille appelée "Données" dans laquelle sont recensés des numéros de référence à l'aide d'un userform avec une textbox. Et d'autres feuilles correspondant à chaque numéro de référence (une feuille par numéro de référence).
Je souhaite automatiser tout ca.
J'ai donc un userform avec une textbox. je souhaiterais, qu'en ayant rentré un numéro de référence dans la textbox, qu'il se passe 3 choses :

- qu'il s'affiche le numéro de référence sur une page "données" (c'est ok)
Code:

1 2 3 4 5 Sheets("Données").Activate ajouterligne Selection.Value = Numéro_de_référence ActiveCell.Offset(0, 1).Select
- qu'il se créé une nouvelle Feuille ayant pour nom le numéro de référence
Code:

1 2 3 4 5 NomFeuille = ActiveSheet.Name With Worksheets(NomFeuille) .Name = "Numéro_de_référence" End With
- qu'il y ait un lien hypertext sur le numéro de référence de la page "données" , pointant vers sa nouvelle Feuille associée
Code:

1 2 3 4 5 Sheets("Données").Select Range("A2").Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "'2'!B7"
Tels quels , cela ne marche pas mais je ne comprend pas pourquoi
Ai-je été plus clair ? C'est pas simple à expliquer !
D'avance merci
16/06/2006, 14h01
Viper7

En fait mon classeur aura :
- une feuille principale avec une récapitulation des références et de certaines données associées (designation, prix, etc...)
et
- pour chaque référence il y aura une feuille associée (via l'hyperlink) où l'on entre plus dans les détails de la référence (il y aura une centaine de références).

Donc la cellule A2 pointant vers la page 2 en B7 c'est un exemple, en fait je souhaite que la référence située en A2 ait un hyperlink vers la feuille du meme nom et cela de manière automatique

Tu as vu, pu d'apostrophes !

D'avance merci
16/06/2006, 14h21
Viper7

En fait c'est pas moi qui ais mis les ' ' mais quand j'ai fait la macro automatiquement avec excel...

Pour les hyperlinks c'est tres simple , imagine toi un tableau récapitulatif avec plus d'une centaine de références et a chaque référence une feuille associée. Tu veux en savoir plus sur une des références et consulter sa feuille, il te faudrait chercher manuellement dans toutes tes feuilles pour trouver la bonne... Perte de temps, vive les hyperlinks !
16/06/2006, 14h59
Viper7

Oui j'ai testé ca bloque toujours, jte montre le dossier excel en pièce jointe.

Sur un autre post on m'avait fait quelque chose de super mais je comprenait vraiment rien au truc pour le modifier !!!

Salut

Moi aussi j'ai fait des tests. Je trouvais ton problèmes intéressant. Excuses moi d'interférer Ouskel, ;)

J'ai une feuille appeler Références qui contient un titre (Table des références) en A1 et un bouton de commande (Name : cmdAjouterRéférence, Caption : Ajouter une référence...).

J'ai aussi un UserForm nommé frmAjoutReferences (voir l'image)
Son code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Public valide As Boolean Private Sub cmdAnnuler_Click() valide = False Me.Hide End Sub Private Sub cmdValider_Click() If txbNomReference.Text <> "" Then valide = True Me.Hide Else 'ajout d'un message dans la barre d'état de la bt de dialogue. stbMessages.SimpleText = "Inscrivez une référence ou Annulez" ' retour du focus dans le champ texte txbNomReference.SetFocus End If End Sub Private Sub UserForm_Activate() txbNomReference.Text = "" stbMessages.SimpleText = "" End Sub
Le code du bouton cmdActiver de la feuille Références
Code:

1 2 3 4 5 6 Private Sub cmdAjouterReference_Click() frmAjoutReference.Show If frmAjoutReference.valide Then AjouterReference frmAjoutReference.txbNomReference.Text End If End Sub
Et la macro qui fait le travail
Code:

1 2 3 4 5 6 7 8 9 Public Sub AjouterReference(NomReference As String) Dim DerniereLigne As Integer DerniereLigne = Sheets("Références").Cells.SpecialCells(xlCellTypeLastCell).Row Sheets.Add after:=Sheets(Worksheets.Count) Sheets(Worksheets.Count).Name = NomReference Sheets("Références").Activate ActiveSheet.Hyperlinks.Add Anchor:=Cells(DerniereLigne, 1), Address:="", SubAddress:= _ NomReference & "!B7", TextToDisplay:=NomReference End Sub
[Edition : ajout et correction du code]
Cependant, les feuilles sont bein ajoutées mais la référnece avec l'hyperlien est toujours créée dans la même cellule... 8O

16/06/2006, 15h56
Viper7

MERCI !

Je vais regarder ça au calme, en attendant je pars m'acheter "VBA pour les Nuls" à 11€ à la fnac, j'ai du travail, beaucoup de choses m'échapent !
19/06/2006, 09h25
Viper7

Salut,

J'ai fait exactement comme tu as mis (en nommant l'userform frmAjoutReference plutot que frmAjoutReferences) , mais j'ai une erreur, dans "Private Sub cmdAjouterReference_Click()", j'ai "frmAjoutReference.Show" de surligné en jaune, je ne comprends pas pourquoi ?
25/06/2006, 11h48
AlainTech

Citation:

Envoyé par Viper7

j'ai une erreur

Laquelle?
28/06/2006, 16h15
Viper7
J'ai un peu évolué dans mon apprentissage, je vais traiter problème par problème.

J'ai un classeur de base de donnée de voitures, composé d'une feuille récapitulant toutes les voitures et d'une feuille par voiture avec les détails.
Pour gérer les voitures, j'ai un userform qui a pour fonction d'ajouter, modifier et supprimer les voitures une a une. Ca fonctionne tres bien.

Après avoir rempli le formulaire pour ajouter une voiture, on peut cliquer sur un bouton (ayant pour nom bnNouvelleFeuilleVoiture) qui ajoute une nouvelle feuille ayant pour nom celui de la voiture c'est à dire la valeur de ce qu'il y a dans une textbox du formulaire (ici la textbox s'appelle txNomVoiture)

Voici le code du bouton :
Code:

1 2 3 4 Private Sub bnNouvelleFeuilleVoiture_Click() Sheets.Add after:=Sheets(Worksheets.Count) Sheets(Worksheets.Count).Name = txNomVoiture.Value
C'est génial ca fonctionne mais si l'utilisateur clique une seconde fois, il y aura un message d'erreur VBA car il est impossible de créér deux fois la meme feuille (logique)
Je cherche donc à faire un message du style "la page existe déjà" mais je n'arrive pas à le faire. Quelqun pourrait-il m'aiguiller ?

pour tester si une feuille existe déjà, avec la gestion d'erreur par exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Function FeuilleExiste(W As Workbook, stNomFeuille As String) As Boolean
   On Error GoTo fin
   Debug.Print W.Sheets(stNomFeuille).Name
 
   FeuilleExiste = True
   Exit Function
fin:
   FeuilleExiste = False
End Function
 
 
'
' Utilisation
'
Sub Test
  If FeuilleExiste(Thisworkbook,"feuil1") then msgbox "la feuille existe"
end sub

29/06/2006, 08h22
Viper7

ok merci, mais je l'incorpore dans quoi ? je le met dans la macro du bouton ?

Citation:
Envoyé par zazaraignée
Salut

Moi aussi j'ai fait des tests. Je trouvais ton problèmes intéressant. Excuses moi d'interférer Ouskel, ;)

J'ai une feuille appeler Références qui contient un titre (Table des références) en A1 et un bouton de commande (Name : cmdAjouterRéférence, Caption : Ajouter une référence...).

J'ai aussi un UserForm nommé frmAjoutReferences (voir l'image)
Son code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Public valide As Boolean Private Sub cmdAnnuler_Click() valide = False Me.Hide End Sub Private Sub cmdValider_Click() If txbNomReference.Text <> "" Then valide = True Me.Hide Else 'ajout d'un message dans la barre d'état de la bt de dialogue. stbMessages.SimpleText = "Inscrivez une référence ou Annulez" ' retour du focus dans le champ texte txbNomReference.SetFocus End If End Sub Private Sub UserForm_Activate() txbNomReference.Text = "" stbMessages.SimpleText = "" End Sub
Le code du bouton cmdActiver de la feuille Références
Code:

1 2 3 4 5 6 Private Sub cmdAjouterReference_Click() frmAjoutReference.Show If frmAjoutReference.valide Then AjouterReference frmAjoutReference.txbNomReference.Text End If End Sub
Et la macro qui fait le travail
Code:

1 2 3 4 5 6 7 8 9 Public Sub AjouterReference(NomReference As String) Dim DerniereLigne As Integer DerniereLigne = Sheets("Références").Cells.SpecialCells(xlCellTypeLastCell).Row Sheets.Add after:=Sheets(Worksheets.Count) Sheets(Worksheets.Count).Name = NomReference Sheets("Références").Activate ActiveSheet.Hyperlinks.Add Anchor:=Cells(DerniereLigne, 1), Address:="", SubAddress:= _ NomReference & "!B7", TextToDisplay:=NomReference End Sub
[Edition : ajout et correction du code]
Cependant, les feuilles sont bein ajoutées mais la référnece avec l'hyperlien est toujours créée dans la même cellule... 8O
J'ai trouvé une solution pour notre problème. les références sont stockées en colonne A, on va nommer la fin de la colonne, c'est a dire la premiere cellule vide de la colonne A
Vas dans Insertion/Nom/Définir
Dans "Nom dans le Classeur" tu mets "FinA" puis ajouter
Voici la macro mise à jour :
Code:

1 2 3 4 5 6 7 8 9 Public Sub AjouterReference(NomReference As String) Sheets.Add after:=Sheets(Worksheets.Count) Sheets(Worksheets.Count).Name = NomReference Sheets("Références").Activate Range("FinA").Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ NomReference & "!B7", TextToDisplay:=NomReference End Sub
Voilà ca marche mais peux tu m'expliquer dans :
Code:

1 2 3 SubAddress:= _ NomReference & "!B7", TextToDisplay:=NomReference End Sub
à quoi sert "!B7" ?