Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel progress bar.....

progress bar.....

2 réponses
Avatar
Hervé Frank-Dangel
Bonjour à toute la communauté....


Je voudrais ajouté une progresse bar a ce code en utilisant les userforms
(ou autre si vous pensez qu'il ya plus simple!!!!)

Sub Macro6()
'
' Macro6 Macro
' Macro enregistrée le 14/06/2004 par Hervé
'

'
Dim rangeToCopy As Range
Dim i As Long
With Worksheets("Feuil1").Columns("A:G")
Set rangeToCopy = .Rows(1)
For i = 11 To 1540 Step 10
Set rangeToCopy = Union(rangeToCopy, .Rows(i))
Next
End With
rangeToCopy.Copy Worksheets("Feuil2").Range("A1")
Set rangeToCopy = Nothing
End Sub


Comment dois-je m'y prendre ?????
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Daniel.M
Hervé,

Invoquer Union() itérativement avec de plus en plus de plages discontinues est
une façon de tester sa patience. Ça fonctionne mais c'est long.

Tu essaieras avec le code suivant (je laisse à d'autres pour ta question de
Progress Bar mais va quand même voir sur www.Excelabo.net):

Sub LaCopie()
Dim i As Long, j As Long
j = 1
Application.Calculation = xlCalculationManual ' si applicable
Application.ScreenUpdating = False
With Worksheets("Feuil1")
For i = 11 To 1540 Step 10
.Rows(i).copy Worksheets("Feuil2").Rows(j)
j = j + 1
Next
End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic ' si applicable

End Sub

Salutations,

Daniel M.

"Hervé Frank-Dangel" wrote in message
news:%
Bonjour à toute la communauté....


Je voudrais ajouté une progresse bar a ce code en utilisant les userforms
(ou autre si vous pensez qu'il ya plus simple!!!!)

Sub Macro6()
'
' Macro6 Macro
' Macro enregistrée le 14/06/2004 par Hervé
'

'
Dim rangeToCopy As Range
Dim i As Long
With Worksheets("Feuil1").Columns("A:G")
Set rangeToCopy = .Rows(1)
For i = 11 To 1540 Step 10
Set rangeToCopy = Union(rangeToCopy, .Rows(i))
Next
End With
rangeToCopy.Copy Worksheets("Feuil2").Range("A1")
Set rangeToCopy = Nothing
End Sub


Comment dois-je m'y prendre ?????





Avatar
Clément Marcotte
Avec l'aide d'Excelabo:

Il y a des textes et des fichiers

http://www.excelabo.net/xl/tempo.php#barreprogress1


http://www.excelabo.net/xl/tempo.php#barreprogression

http://www.excelabo.net/xl/tempo.php#progressbarexcel

http://www.excelabo.net/xl/barres.php#progressionajustée

http://disciplus.simplex.free.fr/classeursxl/dp-progressionstatusbar.zip

http://disciplus.simplex.free.fr/classeursxl/jw-barreprogression.zip

http://disciplus.simplex.free.fr/classeursxl/mp-progbarsamples.zip

http://disciplus.simplex.free.fr/classeursxl/mp-progressstatusbar.zip




"Hervé Frank-Dangel" a écrit dans le
message de news:%
Bonjour à toute la communauté....


Je voudrais ajouté une progresse bar a ce code en utilisant les
userforms

(ou autre si vous pensez qu'il ya plus simple!!!!)

Sub Macro6()
'
' Macro6 Macro
' Macro enregistrée le 14/06/2004 par Hervé
'

'
Dim rangeToCopy As Range
Dim i As Long
With Worksheets("Feuil1").Columns("A:G")
Set rangeToCopy = .Rows(1)
For i = 11 To 1540 Step 10
Set rangeToCopy = Union(rangeToCopy, .Rows(i))
Next
End With
rangeToCopy.Copy Worksheets("Feuil2").Range("A1")
Set rangeToCopy = Nothing
End Sub


Comment dois-je m'y prendre ?????