J'essai :-[ de mettre une barre de progression pour cette macro :
Sub LigneCacherOf()
For i = 1 To Sheets.Count
Sheets(i).Unprotect
Next
For i = 6 To 10
If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Next
End Sub
qui est lancer par :
Private Sub Worksheet_Activate()
LigneCacherOf
End Sub
J'ai cree un userform nomme ProgressBar avec un controle Microsoft
Progress Bar Control
mais comment le lancer ? et que le pourcentage augmente au fur et a
mesure de ma macro?
--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre
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
Denis
Bonjour, à l'activation montre son UserForm Private Sub Worksheet_Activate() ProgressBar.show End Sub
Private Sub UserForm_Activate() ProgressBar1.Value = 0 Application.ScreenUpdating = False
' ton code le mien est un exemple qui dure un peu For i = 1 To 1000 ProgressBar1.Value = i / 1000 * 100 Next 'fin de ton code Application.ScreenUpdating = True Unload Me End Sub
Denis
-----Message d'origine----- Bonjour a tous,
J'essai :-[ de mettre une barre de progression pour cette macro :
Sub LigneCacherOf() For i = 1 To Sheets.Count Sheets(i).Unprotect Next For i = 6 To 10 If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Next End Sub
qui est lancer par :
Private Sub Worksheet_Activate() LigneCacherOf End Sub
J'ai cree un userform nomme ProgressBar avec un controle Microsoft
Progress Bar Control mais comment le lancer ? et que le pourcentage augmente au fur et a
mesure de ma macro?
-- enlever lesurcitaire La Vie n'est rien sans la joie de vivre
.
Bonjour,
à l'activation montre son UserForm
Private Sub Worksheet_Activate()
ProgressBar.show
End Sub
Private Sub UserForm_Activate()
ProgressBar1.Value = 0
Application.ScreenUpdating = False
' ton code le mien est un exemple qui dure un peu
For i = 1 To 1000
ProgressBar1.Value = i / 1000 * 100
Next
'fin de ton code
Application.ScreenUpdating = True
Unload Me
End Sub
Denis
-----Message d'origine-----
Bonjour a tous,
J'essai :-[ de mettre une barre de progression pour cette
macro :
Sub LigneCacherOf()
For i = 1 To Sheets.Count
Sheets(i).Unprotect
Next
For i = 6 To 10
If Cells(i, 1).Text = "" Then Rows(i).Hidden =
True
Next
End Sub
qui est lancer par :
Private Sub Worksheet_Activate()
LigneCacherOf
End Sub
J'ai cree un userform nomme ProgressBar avec un controle
Microsoft
Progress Bar Control
mais comment le lancer ? et que le pourcentage augmente
au fur et a
mesure de ma macro?
--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre
Bonjour, à l'activation montre son UserForm Private Sub Worksheet_Activate() ProgressBar.show End Sub
Private Sub UserForm_Activate() ProgressBar1.Value = 0 Application.ScreenUpdating = False
' ton code le mien est un exemple qui dure un peu For i = 1 To 1000 ProgressBar1.Value = i / 1000 * 100 Next 'fin de ton code Application.ScreenUpdating = True Unload Me End Sub
Denis
-----Message d'origine----- Bonjour a tous,
J'essai :-[ de mettre une barre de progression pour cette macro :
Sub LigneCacherOf() For i = 1 To Sheets.Count Sheets(i).Unprotect Next For i = 6 To 10 If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Next End Sub
qui est lancer par :
Private Sub Worksheet_Activate() LigneCacherOf End Sub
J'ai cree un userform nomme ProgressBar avec un controle Microsoft
Progress Bar Control mais comment le lancer ? et que le pourcentage augmente au fur et a
mesure de ma macro?
-- enlever lesurcitaire La Vie n'est rien sans la joie de vivre
.
Misange
Bonjour tu trouveras plein d'exemples d'untilisation d'une progress bar sur la page tempo d'excelabo.
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
on 10/10/2004 21:43:
Bonjour a tous,
J'essai :-[ de mettre une barre de progression pour cette macro :
Sub LigneCacherOf() For i = 1 To Sheets.Count Sheets(i).Unprotect Next For i = 6 To 10 If Cells(i, 1).Text = "" Then Rows(i).Hidden = True Next End Sub
qui est lancer par :
Private Sub Worksheet_Activate() LigneCacherOf End Sub
J'ai cree un userform nomme ProgressBar avec un controle Microsoft Progress Bar Control mais comment le lancer ? et que le pourcentage augmente au fur et a mesure de ma macro?
Bonjour
tu trouveras plein d'exemples d'untilisation d'une progress bar sur la
page tempo d'excelabo.
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
on 10/10/2004 21:43:
Bonjour a tous,
J'essai :-[ de mettre une barre de progression pour cette macro :
Sub LigneCacherOf()
For i = 1 To Sheets.Count
Sheets(i).Unprotect
Next
For i = 6 To 10
If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Next
End Sub
qui est lancer par :
Private Sub Worksheet_Activate()
LigneCacherOf
End Sub
J'ai cree un userform nomme ProgressBar avec un controle Microsoft
Progress Bar Control
mais comment le lancer ? et que le pourcentage augmente au fur et a
mesure de ma macro?
Bonjour tu trouveras plein d'exemples d'untilisation d'une progress bar sur la page tempo d'excelabo.
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
on 10/10/2004 21:43:
Bonjour a tous,
J'essai :-[ de mettre une barre de progression pour cette macro :
Sub LigneCacherOf() For i = 1 To Sheets.Count Sheets(i).Unprotect Next For i = 6 To 10 If Cells(i, 1).Text = "" Then Rows(i).Hidden = True Next End Sub
qui est lancer par :
Private Sub Worksheet_Activate() LigneCacherOf End Sub
J'ai cree un userform nomme ProgressBar avec un controle Microsoft Progress Bar Control mais comment le lancer ? et que le pourcentage augmente au fur et a mesure de ma macro?
Le Surcitaire
Denis a couché sur son écran :
Bonjour, à l'activation montre son UserForm Private Sub Worksheet_Activate() ProgressBar.show End Sub
Private Sub UserForm_Activate() ProgressBar1.Value = 0 Application.ScreenUpdating = False
' ton code le mien est un exemple qui dure un peu For i = 1 To 1000 ProgressBar1.Value = i / 1000 * 100 Next 'fin de ton code Application.ScreenUpdating = True Unload Me End Sub
Denis
-----Message d'origine----- Bonjour a tous,
J'essai :-[ de mettre une barre de progression pour cette macro :
Sub LigneCacherOf() For i = 1 To Sheets.Count Sheets(i).Unprotect Next For i = 6 To 10 If Cells(i, 1).Text = "" Then Rows(i).Hidden = True Next End Sub
qui est lancer par :
Private Sub Worksheet_Activate() LigneCacherOf End Sub
J'ai cree un userform nomme ProgressBar avec un controle Microsoft Progress Bar Control mais comment le lancer ? et que le pourcentage augmente au fur et a mesure de ma macro?
-- enlever lesurcitaire La Vie n'est rien sans la joie de vivre
.
Merci cela fonctionne presque a merveille mais car je ne vois pas ma barre de progression il y a juste un userform blanc qui s'affiche
-- enlever lesurcitaire La Vie n'est rien sans la joie de vivre
Denis a couché sur son écran :
Bonjour,
à l'activation montre son UserForm
Private Sub Worksheet_Activate()
ProgressBar.show
End Sub
Private Sub UserForm_Activate()
ProgressBar1.Value = 0
Application.ScreenUpdating = False
' ton code le mien est un exemple qui dure un peu
For i = 1 To 1000
ProgressBar1.Value = i / 1000 * 100
Next
'fin de ton code
Application.ScreenUpdating = True
Unload Me
End Sub
Denis
-----Message d'origine-----
Bonjour a tous,
J'essai :-[ de mettre une barre de progression pour cette macro :
Sub LigneCacherOf()
For i = 1 To Sheets.Count
Sheets(i).Unprotect
Next
For i = 6 To 10
If Cells(i, 1).Text = "" Then Rows(i).Hidden = True
Next
End Sub
qui est lancer par :
Private Sub Worksheet_Activate()
LigneCacherOf
End Sub
J'ai cree un userform nomme ProgressBar avec un controle Microsoft
Progress Bar Control
mais comment le lancer ? et que le pourcentage augmente au fur et a
mesure de ma macro?
--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre
.
Merci cela fonctionne presque a merveille mais car je ne vois pas ma
barre de progression il y a juste un userform blanc qui s'affiche
--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre
Bonjour, à l'activation montre son UserForm Private Sub Worksheet_Activate() ProgressBar.show End Sub
Private Sub UserForm_Activate() ProgressBar1.Value = 0 Application.ScreenUpdating = False
' ton code le mien est un exemple qui dure un peu For i = 1 To 1000 ProgressBar1.Value = i / 1000 * 100 Next 'fin de ton code Application.ScreenUpdating = True Unload Me End Sub
Denis
-----Message d'origine----- Bonjour a tous,
J'essai :-[ de mettre une barre de progression pour cette macro :
Sub LigneCacherOf() For i = 1 To Sheets.Count Sheets(i).Unprotect Next For i = 6 To 10 If Cells(i, 1).Text = "" Then Rows(i).Hidden = True Next End Sub
qui est lancer par :
Private Sub Worksheet_Activate() LigneCacherOf End Sub
J'ai cree un userform nomme ProgressBar avec un controle Microsoft Progress Bar Control mais comment le lancer ? et que le pourcentage augmente au fur et a mesure de ma macro?
-- enlever lesurcitaire La Vie n'est rien sans la joie de vivre
.
Merci cela fonctionne presque a merveille mais car je ne vois pas ma barre de progression il y a juste un userform blanc qui s'affiche
-- enlever lesurcitaire La Vie n'est rien sans la joie de vivre
