Activation avec cellule

Le
Denys
Bonjour tous,

Je fais une petite application pour quelques dpartements
qui comptent de 5 15 employs. Comme chaque employ a
une feuille Excel correspondant son nom, certains
dpartements auront des feuilles en trop.

Le nom des employs est inscrit en colonne A sur la
feuille nomme Rcapitulation.

Ma question est la suivante: serait-il possible que je
cre l'avance les feuilles de travail et que celles-ci
restent caches jusqu' ce que le superviseur entre le nom
d'un employ dans une cellule de la colonne A de la
feuille rcapitulation?

Dj que cette feuille prend le nom de l'employ en
l'activant, je voudrais cependant qu'elle reste cache
tant qu'il n'y a pas un nom inscrit dans la cellule

Auriez-vous une petite ide???

Merci

Denys
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Nicolas B.
Le #1226469
Salut Denys,

Le superviseur devra exécuter cette macro après avoir entré en A2:An les
noms des nouvelles feuilles à afficher :

Sub Actualiser()
On Error Resume Next
With Sheets("Récapitulation")
For i = 2 To .Range("A1").End(xlDown).Row
Sheets(.Cells(i, 1).Value).Visible = True
Next
End With
End Sub

Il est inutile de repréciser en col A les utilisateurs dont la feuille est
déjà affichée. S'il ne faut afficher que les utilisateurs qui sont présents
dans la feuille Récapitulation, utilise plutôt cette macro :

Sub Actualiser2()
For Each sh In Sheets
If sh.Name <> "Récapitulation" Then sh.Visible = False
Next
On Error Resume Next
With Sheets("Récapitulation")
For i = 2 To .Range("A1").End(xlDown).Row
Sheets(.Cells(i, 1).Value).Visible = True
Next
End With
End Sub


A+
--
Nicolas B.


Bonjour à tous,

Je fais une petite application pour quelques départements
qui comptent de 5 à 15 employés. Comme chaque employé a
une feuille Excel correspondant à son nom, certains
départements auront des feuilles en trop.

Le nom des employés est inscrit en colonne A sur la
feuille nommée Récapitulation.

Ma question est la suivante: serait-il possible que je
crée à l'avance les feuilles de travail et que celles-ci
restent cachées jusqu'à ce que le superviseur entre le nom
d'un employé dans une cellule de la colonne A de la
feuille récapitulation?

Déjà que cette feuille prend le nom de l'employé en
l'activant, je voudrais cependant qu'elle reste cachée
tant qu'il n'y a pas un nom inscrit dans la cellule...

Auriez-vous une petite idée???

Merci

Denys


Rai
Le #1226466
"Denys" 0b$e8bdf590$
Bonjour à tous,
[.....]

Le nom des employés est inscrit en colonne A sur la
feuille nommée Récapitulation.

Ma question est la suivante: serait-il possible que je
crée à l'avance les feuilles de travail et que celles-ci
restent cachées jusqu'à ce que le superviseur entre le nom
d'un employé dans une cellule de la colonne A de la
feuille récapitulation?

Déjà que cette feuille prend le nom de l'employé en
l'activant, je voudrais cependant qu'elle reste cachée
tant qu'il n'y a pas un nom inscrit dans la cellule...

Auriez-vous une petite idée???

Merci


Bonjour,

Si on considère que tu appelles chaque feuille selon le nom de l'employé.
Si on considère que chacune de ces feuilles a la propriété "visible" = "xlsheethidden" ou "xlsheetveryhidden"
et si on considère que l'on saisit le nom de l'employé en A1 :

Placer le code ci-dessous dans la premirèe feuille, via l'éditeur VBA

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
For Each s In Sheets
If s.Name = Target.Value Then
s.Visible = xlSheetVisible
s.Select
End If
Next s
End If
End Sub


Après, il te restera à gérer le masquage des feuilles à la fermeture du classeur ...
par exemple en insérant ce code dans le classeur :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For s = 2 To Sheets.Count
If Sheets(s).Visible = xlSheetVisible Then
Sheets(s).Visible = xlSheetVeryHidden
End If
Next s
ThisWorkbook.Save
End Sub


Pour bien faire, tu devrais insérer une liste déroulante sur ta première feuille, celle-ci se basant sur la liste des employés.


--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour répondre...

Denys
Le #1226464
Bonjour Rai et Nicolas,

Merci beaucoup à vous deux.... Vous m'êtes d'un grand
secours...Mon application sera plus facile à gérer ainsi...

Bonne journée

Denys
michdenis
Le #1285903
Bonjour Denys,


J'ai supposé que tes données (nom des feuilles) étaient dans la colonne A1:A15 de la feuille récapitulation.
Avec ces procédures, ton classeur contiendra seulement des feuilles listées en colonne A de ta feuille. Si tu effaces le
nom d'une feuille, la feuille sera supprimé et si tu ajoutes un nouveau nom, la feuille sera ajoutée.

Si tu veux être certain qu'un usager n'utilise pas 2 fois le même nom, utilise un critère de validation directement dans
ta plage de cellules.

Si tes feuilles doivent être visible ou non... tu devras ajouter une ligne de code...


'copie ceci dans un module Standard

'déclaration d'une variable Public dans le haut du module
Public Tblo()
'------------------------------
Sub ListeDesFeuilles()

Dim A As Integer
ReDim Tblo(1 To Sheets.Count)

For Each sh In Worksheets
If sh.Name <> "Récapitulation" Then
A = A + 1
Tblo(A) = sh.Name
End If
Next

End Sub
'------------------------------

'Pour initialer la variable public dès l'ouverture du fichier :
'-------------------
Private Sub Workbook_Open()
ListeDesFeuilles
End Sub
'-------------------



Dans la feuille module où l'action se déroule, copie ce qui suit :

'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rg As Range, A As Integer, ActiveFeuille As String
ActiveFeuille = ActiveSheet.Name

Set Rg = Range("A1:A15").SpecialCells(xlCellTypeConstants, xlTextValues)
If Intersect(Target, Rg) Is Nothing Then Exit Sub

Application.ScreenUpdating = False
On Error Resume Next
For A = 1 To UBound(Tblo)
If IsError(Application.Match(Tblo(A), Rg, 0)) Then
Application.DisplayAlerts = False
Worksheets(Tblo(A)).Delete
Err = 0
Application.DisplayAlerts = True
End If
Next

If Not Rg Is Nothing Then
For Each c In Target
If c.Value <> "" Then
Set sh = Worksheets(c.Value)
If Err <> "" Then
Worksheets.Add after:=Sheets(Worksheets.Count)
ActiveSheet.Name = c.Value
Err = 0
End If
End If
Next
End If
ListeDesFeuilles
Sheets(ActiveFeuille).Select
Set Rg = Nothing
End Sub
'------------------------------


'copie ceci dans un module Standard

'déclaration d'une variable Public dans le haut du module
Public Tblo()
'------------------------------
Sub ListeDesFeuilles()

Dim A As Integer
ReDim Tblo(1 To Sheets.Count)

For Each sh In Worksheets
If sh.Name <> "Récapitulation" Then
A = A + 1
Tblo(A) = sh.Name
End If
Next

End Sub
'------------------------------


Salutations!



"Denys" Bonjour à tous,

Je fais une petite application pour quelques départements
qui comptent de 5 à 15 employés. Comme chaque employé a
une feuille Excel correspondant à son nom, certains
départements auront des feuilles en trop.

Le nom des employés est inscrit en colonne A sur la
feuille nommée Récapitulation.

Ma question est la suivante: serait-il possible que je
crée à l'avance les feuilles de travail et que celles-ci
restent cachées jusqu'à ce que le superviseur entre le nom
d'un employé dans une cellule de la colonne A de la
feuille récapitulation?

Déjà que cette feuille prend le nom de l'employé en
l'activant, je voudrais cependant qu'elle reste cachée
tant qu'il n'y a pas un nom inscrit dans la cellule...

Auriez-vous une petite idée???

Merci

Denys
Denys
Le #1233759
Bonjour Denis,

Ma parole!!! Tu as fais tout le travail !!!! Je te
remercie énormément pour tout ce temps consacré à mes
demandes...

Bonne journée

Denys


-----Original Message-----
Bonjour Denys,


J'ai supposé que tes données (nom des feuilles) étaient
dans la colonne A1:A15 de la feuille récapitulation.

Avec ces procédures, ton classeur contiendra seulement
des feuilles listées en colonne A de ta feuille. Si tu

effaces le
nom d'une feuille, la feuille sera supprimé et si tu
ajoutes un nouveau nom, la feuille sera ajoutée.


Si tu veux être certain qu'un usager n'utilise pas 2 fois
le même nom, utilise un critère de validation directement

dans
ta plage de cellules.

Si tes feuilles doivent être visible ou non... tu devras
ajouter une ligne de code...



'copie ceci dans un module Standard

'déclaration d'une variable Public dans le haut du module
Public Tblo()
'------------------------------
Sub ListeDesFeuilles()

Dim A As Integer
ReDim Tblo(1 To Sheets.Count)

For Each sh In Worksheets
If sh.Name <> "Récapitulation" Then
A = A + 1
Tblo(A) = sh.Name
End If
Next

End Sub
'------------------------------

'Pour initialer la variable public dès l'ouverture du
fichier :

'-------------------
Private Sub Workbook_Open()
ListeDesFeuilles
End Sub
'-------------------



Dans la feuille module où l'action se déroule, copie ce
qui suit :


'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rg As Range, A As Integer, ActiveFeuille As String
ActiveFeuille = ActiveSheet.Name

Set Rg = Range("A1:A15").SpecialCells
(xlCellTypeConstants, xlTextValues)

If Intersect(Target, Rg) Is Nothing Then Exit Sub

Application.ScreenUpdating = False
On Error Resume Next
For A = 1 To UBound(Tblo)
If IsError(Application.Match(Tblo(A), Rg, 0)) Then
Application.DisplayAlerts = False
Worksheets(Tblo(A)).Delete
Err = 0
Application.DisplayAlerts = True
End If
Next

If Not Rg Is Nothing Then
For Each c In Target
If c.Value <> "" Then
Set sh = Worksheets(c.Value)
If Err <> "" Then
Worksheets.Add after:=Sheets(Worksheets.Count)
ActiveSheet.Name = c.Value
Err = 0
End If
End If
Next
End If
ListeDesFeuilles
Sheets(ActiveFeuille).Select
Set Rg = Nothing
End Sub
'------------------------------


'copie ceci dans un module Standard

'déclaration d'une variable Public dans le haut du module
Public Tblo()
'------------------------------
Sub ListeDesFeuilles()

Dim A As Integer
ReDim Tblo(1 To Sheets.Count)

For Each sh In Worksheets
If sh.Name <> "Récapitulation" Then
A = A + 1
Tblo(A) = sh.Name
End If
Next

End Sub
'------------------------------


Salutations!



"Denys" dans le message de news:185be01c41b0b$e8bdf590

$
Bonjour à tous,

Je fais une petite application pour quelques départements
qui comptent de 5 à 15 employés. Comme chaque employé a
une feuille Excel correspondant à son nom, certains
départements auront des feuilles en trop.

Le nom des employés est inscrit en colonne A sur la
feuille nommée Récapitulation.

Ma question est la suivante: serait-il possible que je
crée à l'avance les feuilles de travail et que celles-ci
restent cachées jusqu'à ce que le superviseur entre le nom
d'un employé dans une cellule de la colonne A de la
feuille récapitulation?

Déjà que cette feuille prend le nom de l'employé en
l'activant, je voudrais cependant qu'elle reste cachée
tant qu'il n'y a pas un nom inscrit dans la cellule...

Auriez-vous une petite idée???

Merci

Denys


.



Publicité
Poster une réponse
Anonyme