bonsoir
j'ai cherché des infos sur les barres de progression mais mon niveau en VBA ne me permet pas de les intégrer dans mon code
j'aimerai integrer un barre de progression dans le code suivant
merci de votre aide
Sub tri()
Sheets("feuille de garde").Select
Worksheets("feuille de garde").Unprotect
Sheets("Feuil1").Select
liste = 1
Range("As6:iv150").Select
Selection.Copy
Sheets("Feuille de garde").Select
Range("A150").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
' tri vierge en feuil3 sous la liste de garde
For col = 1 To 221 Step 1
Range(Cells(150, col), Cells(295, col)).Select
Selection.Sort Key1:=Cells(151, col), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
lig = 150
Cells(lig, col).Select
While ActiveCell.Value = vide And lig < 295
lig = lig + 1
Cells(lig, col).Select
Wend
deb = ActiveCell.Row
ActiveWorkbook.Names.Add Name:="Liste" & liste, RefersToR1C1:="=Feuille de garde!R" & deb & "C" & col & ":R295C" & col
liste = liste + 1
Next
Sheets("feuille de garde").Select
Range("a2").Select
Worksheets("feuille de garde").Range("A150:iv295").Locked = True
Worksheets("feuil1").Select
Worksheets("feuil1").Unprotect
Range("d6").Select
Sheets("feuille de garde").Select
Application.ScreenUpdating = True
End Sub
j'ai cherché des infos sur les barres de progression mais mon niveau en VBA ne me permet pas de les intégrer dans mon code
j'aimerai integrer un barre de progression dans le code suivant
merci de votre aide
Sub tri()
Sheets("feuille de garde").Select
Worksheets("feuille de garde").Unprotect
Sheets("Feuil1").Select
liste = 1
Range("As6:iv150").Select
Selection.Copy
Sheets("Feuille de garde").Select
Range("A150").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
' tri vierge en feuil3 sous la liste de garde
For col = 1 To 221 Step 1
Range(Cells(150, col), Cells(295, col)).Select
Selection.Sort Key1:=Cells(151, col), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
lig = 150
Cells(lig, col).Select
While ActiveCell.Value = vide And lig < 295
lig = lig + 1
Cells(lig, col).Select
Wend
deb = ActiveCell.Row
ActiveWorkbook.Names.Add Name:="Liste" & liste, RefersToR1C1:="=Feuille de garde!R" & deb & "C" & col & ":R295C" & col
liste = liste + 1
Next
Sheets("feuille de garde").Select
Range("a2").Select
Worksheets("feuille de garde").Range("A150:iv295").Locked = True
Worksheets("feuil1").Select
Worksheets("feuil1").Unprotect
Range("d6").Select
Sheets("feuille de garde").Select
Application.ScreenUpdating = True
End Sub