Is it possible to retrieve the text of the statusbar with VBA ?
5 réponses
Corto
Hello Forum,
I would like to retrieve the text saying XXX records selected on XXXX
that appears on the status bar when I use an autofilter but when I
retrieve the property Application.StatusBar it returns False wich is the
value to indicate that this text is left to Excel.
I was wondering if one of you guys knew another way of retrieving it.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Ici, normalement, on essaie de parler français. Essaie :
For i = 2 To Range("_filterdatabase").Rows.Count If Range("_filterdatabase")(i, 1).EntireRow.Hidden = False Then ctr = ctr + 1 End If Next i MsgBox ctr
Cordialement. Daniel "Corto" a écrit dans le message de news:
Hello Forum, I would like to retrieve the text saying XXX records selected on XXXX that appears on the status bar when I use an autofilter but when I retrieve the property Application.StatusBar it returns False wich is the value to indicate that this text is left to Excel. I was wondering if one of you guys knew another way of retrieving it.
Bonjour.
Ici, normalement, on essaie de parler français.
Essaie :
For i = 2 To Range("_filterdatabase").Rows.Count
If Range("_filterdatabase")(i, 1).EntireRow.Hidden = False Then
ctr = ctr + 1
End If
Next i
MsgBox ctr
Cordialement.
Daniel
"Corto" <fcdirckx@hotmail.com> a écrit dans le message de news:
OA9AKGFUHHA.4872@TK2MSFTNGP03.phx.gbl...
Hello Forum,
I would like to retrieve the text saying XXX records selected on XXXX that
appears on the status bar when I use an autofilter but when I retrieve the
property Application.StatusBar it returns False wich is the value to
indicate that this text is left to Excel.
I was wondering if one of you guys knew another way of retrieving it.
Bonjour. Ici, normalement, on essaie de parler français. Essaie :
For i = 2 To Range("_filterdatabase").Rows.Count If Range("_filterdatabase")(i, 1).EntireRow.Hidden = False Then ctr = ctr + 1 End If Next i MsgBox ctr
Cordialement. Daniel "Corto" a écrit dans le message de news:
Hello Forum, I would like to retrieve the text saying XXX records selected on XXXX that appears on the status bar when I use an autofilter but when I retrieve the property Application.StatusBar it returns False wich is the value to indicate that this text is left to Excel. I was wondering if one of you guys knew another way of retrieving it.
jps
that's right, my dear corto...maltese?, and then we use to say "merci" jps
"Daniel" a écrit dans le message de news:
Bonjour. Ici, normalement, on essaie de parler français.
that's right, my dear corto...maltese?, and then we use to say "merci"
jps
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uDXAcUFUHHA.4872@TK2MSFTNGP03.phx.gbl...
Bonjour.
Ici, normalement, on essaie de parler français.
that's right, my dear corto...maltese?, and then we use to say "merci" jps
"Daniel" a écrit dans le message de news:
Bonjour. Ici, normalement, on essaie de parler français.
Corto
Bonjour Forum, Veuillez bien excuser mon dérapage linguistique, mais je venais d'envoyer une autre demande sur un forum anglophone et je n'ai plus pensé que celui-ci était dans la langue de San-Antonio. Merci Daniel pour la solution que tu propose, mais c'est en gros ce que je fais déjà et comme il s'agit de gros fichier c'est beaucoup trop long, cest donc pour cela que j'ai essayé de récupérer l'information affichée dans la statusbar. Si l'un de vous connait une autre solution, merci d'avance.
Corto
Bonjour. Ici, normalement, on essaie de parler français. Essaie :
For i = 2 To Range("_filterdatabase").Rows.Count If Range("_filterdatabase")(i, 1).EntireRow.Hidden = False Then ctr = ctr + 1 End If Next i MsgBox ctr
Cordialement. Daniel "Corto" a écrit dans le message de news:
Hello Forum, I would like to retrieve the text saying XXX records selected on XXXX that appears on the status bar when I use an autofilter but when I retrieve the property Application.StatusBar it returns False wich is the value to indicate that this text is left to Excel. I was wondering if one of you guys knew another way of retrieving it.
Bonjour Forum,
Veuillez bien excuser mon dérapage linguistique, mais je venais
d'envoyer une autre demande sur un forum anglophone et je n'ai plus
pensé que celui-ci était dans la langue de San-Antonio.
Merci Daniel pour la solution que tu propose, mais c'est en gros ce que
je fais déjà et comme il s'agit de gros fichier c'est beaucoup trop
long, cest donc pour cela que j'ai essayé de récupérer l'information
affichée dans la statusbar.
Si l'un de vous connait une autre solution, merci d'avance.
Corto
Bonjour.
Ici, normalement, on essaie de parler français.
Essaie :
For i = 2 To Range("_filterdatabase").Rows.Count
If Range("_filterdatabase")(i, 1).EntireRow.Hidden = False Then
ctr = ctr + 1
End If
Next i
MsgBox ctr
Cordialement.
Daniel
"Corto" <fcdirckx@hotmail.com> a écrit dans le message de news:
OA9AKGFUHHA.4872@TK2MSFTNGP03.phx.gbl...
Hello Forum,
I would like to retrieve the text saying XXX records selected on XXXX that
appears on the status bar when I use an autofilter but when I retrieve the
property Application.StatusBar it returns False wich is the value to
indicate that this text is left to Excel.
I was wondering if one of you guys knew another way of retrieving it.
Bonjour Forum, Veuillez bien excuser mon dérapage linguistique, mais je venais d'envoyer une autre demande sur un forum anglophone et je n'ai plus pensé que celui-ci était dans la langue de San-Antonio. Merci Daniel pour la solution que tu propose, mais c'est en gros ce que je fais déjà et comme il s'agit de gros fichier c'est beaucoup trop long, cest donc pour cela que j'ai essayé de récupérer l'information affichée dans la statusbar. Si l'un de vous connait une autre solution, merci d'avance.
Corto
Bonjour. Ici, normalement, on essaie de parler français. Essaie :
For i = 2 To Range("_filterdatabase").Rows.Count If Range("_filterdatabase")(i, 1).EntireRow.Hidden = False Then ctr = ctr + 1 End If Next i MsgBox ctr
Cordialement. Daniel "Corto" a écrit dans le message de news:
Hello Forum, I would like to retrieve the text saying XXX records selected on XXXX that appears on the status bar when I use an autofilter but when I retrieve the property Application.StatusBar it returns False wich is the value to indicate that this text is left to Excel. I was wondering if one of you guys knew another way of retrieving it.
JB
Bonjour,
MsgBox Application.SubTotal(3,[A:A])
JB
On 16 fév, 15:19, Corto wrote:
Bonjour Forum, Veuillez bien excuser mon dérapage linguistique, mais je venais d'envoyer une autre demande sur un forum anglophone et je n'ai plus pensé que celui-ci était dans la langue de San-Antonio. Merci Daniel pour la solution que tu propose, mais c'est en gros ce que je fais déjà et comme il s'agit de gros fichier c'est beaucoup trop long, cest donc pour cela que j'ai essayé de récupérer l'information affichée dans la statusbar. Si l'un de vous connait une autre solution, merci d'avance.
Corto
Bonjour. Ici, normalement, on essaie de parler français. Essaie :
For i = 2 To Range("_filterdatabase").Rows.Count If Range("_filterdatabase")(i, 1).EntireRow.Hidden = False Th en ctr = ctr + 1 End If Next i MsgBox ctr
Cordialement. Daniel "Corto" a écrit dans le message de news:
Hello Forum, I would like to retrieve the text saying XXX records selected on XXXX that appears on the status bar when I use an autofilter but when I retrieve the property Application.StatusBar it returns False wich is the value to indicate that this text is left to Excel. I was wondering if one of you guys knew another way of retrieving it.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
MsgBox Application.SubTotal(3,[A:A])
JB
On 16 fév, 15:19, Corto <fcdir...@hotmail.com> wrote:
Bonjour Forum,
Veuillez bien excuser mon dérapage linguistique, mais je venais
d'envoyer une autre demande sur un forum anglophone et je n'ai plus
pensé que celui-ci était dans la langue de San-Antonio.
Merci Daniel pour la solution que tu propose, mais c'est en gros ce que
je fais déjà et comme il s'agit de gros fichier c'est beaucoup trop
long, cest donc pour cela que j'ai essayé de récupérer l'information
affichée dans la statusbar.
Si l'un de vous connait une autre solution, merci d'avance.
Corto
Bonjour.
Ici, normalement, on essaie de parler français.
Essaie :
For i = 2 To Range("_filterdatabase").Rows.Count
If Range("_filterdatabase")(i, 1).EntireRow.Hidden = False Th en
ctr = ctr + 1
End If
Next i
MsgBox ctr
Cordialement.
Daniel
"Corto" <fcdir...@hotmail.com> a écrit dans le message de news:
OA9AKGFUHHA.4...@TK2MSFTNGP03.phx.gbl...
Hello Forum,
I would like to retrieve the text saying XXX records selected on XXXX that
appears on the status bar when I use an autofilter but when I retrieve the
property Application.StatusBar it returns False wich is the value to
indicate that this text is left to Excel.
I was wondering if one of you guys knew another way of retrieving it.- Masquer le texte des messages précédents -
Bonjour Forum, Veuillez bien excuser mon dérapage linguistique, mais je venais d'envoyer une autre demande sur un forum anglophone et je n'ai plus pensé que celui-ci était dans la langue de San-Antonio. Merci Daniel pour la solution que tu propose, mais c'est en gros ce que je fais déjà et comme il s'agit de gros fichier c'est beaucoup trop long, cest donc pour cela que j'ai essayé de récupérer l'information affichée dans la statusbar. Si l'un de vous connait une autre solution, merci d'avance.
Corto
Bonjour. Ici, normalement, on essaie de parler français. Essaie :
For i = 2 To Range("_filterdatabase").Rows.Count If Range("_filterdatabase")(i, 1).EntireRow.Hidden = False Th en ctr = ctr + 1 End If Next i MsgBox ctr
Cordialement. Daniel "Corto" a écrit dans le message de news:
Hello Forum, I would like to retrieve the text saying XXX records selected on XXXX that appears on the status bar when I use an autofilter but when I retrieve the property Application.StatusBar it returns False wich is the value to indicate that this text is left to Excel. I was wondering if one of you guys knew another way of retrieving it.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Corto
Merci, c'est effectivement beaucoup plus rapide.
Corto
Bonjour,
MsgBox Application.SubTotal(3,[A:A])
JB
On 16 fév, 15:19, Corto wrote:
Bonjour Forum, Veuillez bien excuser mon dérapage linguistique, mais je venais d'envoyer une autre demande sur un forum anglophone et je n'ai plus pensé que celui-ci était dans la langue de San-Antonio. Merci Daniel pour la solution que tu propose, mais c'est en gros ce que je fais déjà et comme il s'agit de gros fichier c'est beaucoup trop long, cest donc pour cela que j'ai essayé de récupérer l'information affichée dans la statusbar. Si l'un de vous connait une autre solution, merci d'avance.
Corto
Bonjour. Ici, normalement, on essaie de parler français. Essaie : For i = 2 To Range("_filterdatabase").Rows.Count If Range("_filterdatabase")(i, 1).EntireRow.Hidden = False Then ctr = ctr + 1 End If Next i MsgBox ctr Cordialement. Daniel "Corto" a écrit dans le message de news:
Hello Forum, I would like to retrieve the text saying XXX records selected on XXXX that appears on the status bar when I use an autofilter but when I retrieve the property Application.StatusBar it returns False wich is the value to indicate that this text is left to Excel. I was wondering if one of you guys knew another way of retrieving it.- Masquer le texte des messages précédents - - Afficher le texte des messages précédents -
Merci, c'est effectivement beaucoup plus rapide.
Corto
Bonjour,
MsgBox Application.SubTotal(3,[A:A])
JB
On 16 fév, 15:19, Corto <fcdir...@hotmail.com> wrote:
Bonjour Forum,
Veuillez bien excuser mon dérapage linguistique, mais je venais
d'envoyer une autre demande sur un forum anglophone et je n'ai plus
pensé que celui-ci était dans la langue de San-Antonio.
Merci Daniel pour la solution que tu propose, mais c'est en gros ce que
je fais déjà et comme il s'agit de gros fichier c'est beaucoup trop
long, cest donc pour cela que j'ai essayé de récupérer l'information
affichée dans la statusbar.
Si l'un de vous connait une autre solution, merci d'avance.
Corto
Bonjour.
Ici, normalement, on essaie de parler français.
Essaie :
For i = 2 To Range("_filterdatabase").Rows.Count
If Range("_filterdatabase")(i, 1).EntireRow.Hidden = False Then
ctr = ctr + 1
End If
Next i
MsgBox ctr
Cordialement.
Daniel
"Corto" <fcdir...@hotmail.com> a écrit dans le message de news:
OA9AKGFUHHA.4...@TK2MSFTNGP03.phx.gbl...
Hello Forum,
I would like to retrieve the text saying XXX records selected on XXXX that
appears on the status bar when I use an autofilter but when I retrieve the
property Application.StatusBar it returns False wich is the value to
indicate that this text is left to Excel.
I was wondering if one of you guys knew another way of retrieving it.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour Forum, Veuillez bien excuser mon dérapage linguistique, mais je venais d'envoyer une autre demande sur un forum anglophone et je n'ai plus pensé que celui-ci était dans la langue de San-Antonio. Merci Daniel pour la solution que tu propose, mais c'est en gros ce que je fais déjà et comme il s'agit de gros fichier c'est beaucoup trop long, cest donc pour cela que j'ai essayé de récupérer l'information affichée dans la statusbar. Si l'un de vous connait une autre solution, merci d'avance.
Corto
Bonjour. Ici, normalement, on essaie de parler français. Essaie : For i = 2 To Range("_filterdatabase").Rows.Count If Range("_filterdatabase")(i, 1).EntireRow.Hidden = False Then ctr = ctr + 1 End If Next i MsgBox ctr Cordialement. Daniel "Corto" a écrit dans le message de news:
Hello Forum, I would like to retrieve the text saying XXX records selected on XXXX that appears on the status bar when I use an autofilter but when I retrieve the property Application.StatusBar it returns False wich is the value to indicate that this text is left to Excel. I was wondering if one of you guys knew another way of retrieving it.- Masquer le texte des messages précédents - - Afficher le texte des messages précédents -