Base de données

[flamur1989]

Bonjour à tous,

Je suis entrain de créer une base de donnée par entreprise.

Pour cela j'aurai besoin que lorsque j'ajoute un nouvel employé, c'est à dire lorsque j'ouvre une nouvelle feuille qui aura le nom de l'employé celle ci s'ajoute automatiquement à la feuille "liste".

Les noms sur cette liste servirons de liens à leur feuilles.


Merci pour vos réponses.

 

[tototiti2008]

Re : Base de données

Bonjour flamur,

à tester dans le code de la feuille Liste

Private Sub Worksheet_Activate()
Dim Wks As Worksheet
    For Each Wks In ThisWorkbook.Worksheets
        If Application.CountIf(ActiveSheet.Range("A:A"), Wks.Name) = 0 Then
            ActiveSheet.Range("A" & ActiveSheet.Rows.Count).End(xlUp)(2).Value = Wks.Name
        End If
    Next Wks
End Sub

ça ne gère que les ajouts, pas les suppressions...
si tu veux gérer les suppressions, reviens-nous

 

[flamur1989]

Re : Base de données

Salut tototiti,

Merci pour ta réponse.

Ce serait bien si cela pouvait gérer les suppressions.

Mais j'aimerai aussi qu'apparaisse automatiquement un lien sur chaque nouvelle feuille qui permet d'aller a la première feuille "liste".

Aussi, les noms des feuilles qui seront automatiquement ajoutés à la feuille "liste" soient de format lien pour permettre de se rendre sur la feuille souhaité.

Merci.

 

[Chubby]

Re : Base de données

Bonsoir à tous, bonsoir flamur et tototiti,

Je te propose d'affecter un lien entre ta feuille liste et les autres feuilles
Regarde le fichier joint si ça le fait.
bonne soirée

 

[tototiti2008]

Re : Base de données

Bonjour flamur, Bonjour Chubby,

Ou une version mise à jour du code

Private Sub Worksheet_Activate()
Dim Wks As Worksheet
    Application.ScreenUpdating = False
    ActiveSheet.Range("A1").EntireColumn.ClearContents
    ActiveSheet.Range("A1").Value = ActiveSheet.Name
    For Each Wks In ThisWorkbook.Worksheets
        If Application.CountIf(ActiveSheet.Range("A:A"), Wks.Name) = 0 Then
            ActiveSheet.Range("A" & ActiveSheet.Rows.Count).End(xlUp)(2).Formula = "=HYPERLINK(""#'" & Wks.Name & "'!A1"",""" & Wks.Name & """)"
        End If
    Next Wks
    Application.ScreenUpdating = True
End Sub

 

[flamur1989]

Re : Base de données

Salut tototiti, salut chubby,

Merci pour vos réponse.

Les deux façons sont bien avec une préférence pour celle de tototiti qui affiche automatiquement le nom de la nouvelle feuille sur la feuille liste.

Chubby: Est ce que tu peux m'expliquer comment faire un signet ou lien?

Tototiti: Y a t'il une possibilité à ce que apparaisse automatiquement le lien a l'ouverture d'une nouvelle feuille vers la feuille liste?

Merci

 

[Chubby]

Re : Base de données

Bonsoir Flamur, bonsoir Tototiti et les zotres,

Pour créer le signet tu cliques droit, en bas du menu défilant "lien hypertexte", une fenêtre s'ouvre et là tu crées ton signet. Sinon, tu vas dans l'onglet "Insertion" puis dans le ruban tu vois lien hypertexte... et tu suis la même chose.
Si j'arrive à te poster une copie d'écran ce serait top.
J'espère t'avoir répondu pour t'aider.
Tototiti> merci pour ton code, je n'ai pas essayé, il faut dire que les macro et moi euh, pas top ambiance!
Quoiqu'il en soit merci le forum.
Chubby

 

[tototiti2008]

Re : Base de données

Bonjour flamur, Bonjour Chubby,

@flamur

Y a t'il une possibilité à ce que apparaisse automatiquement le lien a l'ouverture d'une nouvelle feuille vers la feuille liste?

A ajouter dans le code de ThisWorkbook du classeur :

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Sh.Range("A1").Formula = "=HYPERLINK(""#'Liste'!A1"",""Liste"")"
End Sub

@Chubby

merci pour ton code, je n'ai pas essayé, il faut dire que les macro et moi euh, pas top ambiance!

Si tu veux essayer, j'ai mis les 2 codes dans le classeur :

 

[Chubby]

Re : Base de données

Bonjour Flamur, Hello Tototiti,
Super, je te remercie pour ton petit fichier Tototiti.
Bonne ap.

 

[flamur1989]

Re : Base de données

Bonjour Tototiti et Chubby,

Merci beaucoup à tous les deux pour vos réponses j'ai réussi à faire ce que je voulais. Merci encore.

À bientôt.