V
VB@D
Guest
Bonjour a tous
Voici une macro dans lequelle j'essai d'insérer une progressbar mais je n y arrive pas :-(.
Sub Suppression()
'suppression des doublons
i = 0
progressbar1.value = i
1:
If i = 65535 Then Exit Sub
If ActiveCell.Offset(i, 0) <> 0 And ActiveCell.Offset(i, 0) = ActiveCell.Offset(i + 1, 0) Then
ActiveCell.Offset(i, 0).EntireRow.Delete Shift:=xlUp
GoTo 1
Else
i = i + 1
GoTo 1
End If
End Sub
Je sais il y a des goto et c'est pas bien mais j'ai du mal a m'en passer
Bon pour la progressbar ca ne marche pas j'ai regarder un fichier de TI mais lui utilise
For i=0 to 65536
Progressbar1.value=i
....
next i
Alors je suis un peut perdu
Merci de votre aide
@+ tous le monde et bon week end
VB@D
Voici une macro dans lequelle j'essai d'insérer une progressbar mais je n y arrive pas :-(.
Sub Suppression()
'suppression des doublons
i = 0
progressbar1.value = i
1:
If i = 65535 Then Exit Sub
If ActiveCell.Offset(i, 0) <> 0 And ActiveCell.Offset(i, 0) = ActiveCell.Offset(i + 1, 0) Then
ActiveCell.Offset(i, 0).EntireRow.Delete Shift:=xlUp
GoTo 1
Else
i = i + 1
GoTo 1
End If
End Sub
Je sais il y a des goto et c'est pas bien mais j'ai du mal a m'en passer
Bon pour la progressbar ca ne marche pas j'ai regarder un fichier de TI mais lui utilise
For i=0 to 65536
Progressbar1.value=i
....
next i
Alors je suis un peut perdu
Merci de votre aide
@+ tous le monde et bon week end
VB@D