Discussion :

[rossemma]

bonjour à tous,

J'ai ce bout de code qui se trouve dans un module et qui se lance a l'activation du workbook.

Code :

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

1
2
3
4
5
6
7
Sub welcomeStatusBar()
 
Dim d As String
d = Format(Now(), "dd-mm-yyyy")
Application.StatusBar = "Welcome" & " / " & Environ("Username") & " / " & d
 
End Sub

Je voudrais ajouter au bout de ce code le nom de l'onglet tel qu'affiché dans le classeur et tel qu'affiché dans le code VBA.

De plus, je voudrais qu'il s'adapte a chaque changement de feuille. Je pensais appeler le code dans un private sub workbook_sheetactivate.

Merci pour votre aide.

[mercatog]

Oui essaie avec cet événement
Et ajoute Sh.name dans ton statusbar

[rossemma]

ce code est dans un module car j'y fait appel à plusieurs endroits dans mes codes

Code :

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

1
2
3
4
5
6
7
Sub welcomeStatusBar()
 
Dim d As String
d = Format(Now(), "dd-mm-yyyy")
Application.StatusBar = "Welcome" & " / " & Environ("Username") & " / " & d
 
End Sub

Comment faire appel à cette procédure et ajouter sh.name dans private sub workbook_sheetactivate(byval sh as object)

Merci

[vinc_bilb]

et bien .... vous avez presque la réponse il me semple

Code :

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

1
2
3
4
sub workbook_sheetactivate(byval sh as object)
.....
Call welcomeStatusBar(sh)
End Sub

et vous modifiez votre welcomeStatusBar pour mettre la worksheet en argument (optionnel ou non)

[rossemma]

Merci pour votre réponse mais n'est-ce pas private sub...

Je suis un peu débutant en VBA, que voulez vous dire par mettre la worksheet en argument?

[vinc_bilb]

Rebonjour,

Par exemple

Code :

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

1
2
3
4
5
6
7
8
9
Sub welcomeStatusBar(Optional Sh As Worksheet)
 
Dim d As String
If Sh Is Nothing Then Set Sh = ActiveSheet
 
d = Format(Now(), "dd-mm-yyyy")
Application.StatusBar = "Welcome" & " / " & Environ("Username") & " / " & d & " Sheet " & Sh.Name
 
End Sub

et pour l'appeler dans ThisWorkbook:

Code :

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

1
2
3
4
5
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 
Call welcomeStatusBar(Sh)
 
End Sub

[Philippe Tulliez]

Bonjour,

que voulez vous dire par mettre la worksheet en argument ?

Dans Excel, la plupart des fonctions ont besoin d'un ou plusieurs arguments pour renvoyer une valeur.
Et bien en VBA, c'est pareil. Si tu souhaites écrire une procédure qui ouvre un fichier, trier un de ces tableaux et ensuite l'exporter avec condition. Au lieu d'écrire plusieurs fonction ou SUb qui font pratiquement la même chose, tu en écris une seule en prévoyant des paramètres.

Pour faire plus simple.
Imagine que tu achètes un robot qui ouvre des portes et dont la commande est OUVREPORTE et bien si tu as plusieurs portes, tu lui passeras comme argument le numéro de la prorte à ouvrir soit OUVREPORTE 4 pour la 4ème porte à ouvrir
Si tu achètes maintenant un robot plus sophistiqué qui ouvre à la fois des portes et des fenêtres, et dont la commande est OUVRE, tu passeras deux arguments. L'un pour indiquer que c'est une porte ou une fenêtre qu'il doit ouvrir et le deuxième pour lui donner le numéro de la porte ou de la fenêtre à ouvrir soit OUVRE "Porte", 3

Est-ce plus clair ?