Bonjour,
C'est la première fois que je suis dans l'obligation d'utiliser une macro sur Excel , et je voudrai que vous m'aidiez à résoudre le 1er problème que j'ai rencontré.
Il s'agit de l'erreur 424 ,
Ci-dessous la macro que j'ai crée :
Sub ShowUserForm()
' UserForm1.Show
End Sub
Sub CC()
Dim PctDone As Single
Dim PctDone2 As Single
i = 21
j = 3
F = 0
While ACC.Cells(2, i) <> ""
'Barre de progression
'PctDone = 0.5
'UpdateProgressBar PctDone
j = 3
While ACC.Cells(j, 14) <> ""
' If InStr(ACC.Cells(j, i), "F") > 0 Then
If IsNumeric(Mid(ACC.Cells(j, i), InStr(ACC.Cells(j, i), "F") + 1, 2)) = True Then
F = F + (ACC.Cells(j, 14) / Mid(ACC.Cells(j, i), InStr(ACC.Cells(j, i), "F") + 1, 2))
Else
If IsNumeric(Mid(ACC.Cells(j, i), InStr(ACC.Cells(j, i), "F") + 1, 1)) = True Then
F = F + (ACC.Cells(j, 14) / Mid(ACC.Cells(j, i), InStr(ACC.Cells(j, i), "F") + 1, 1))
Else
F = F + ACC.Cells(j, 14)
End If
End If '
j = j + 1
Wend
'ACC.Cells(1312, i) = F 'FAB
F = 0
i = i + 1
Wend
'Barre de progression
PctDone = 1
UpdateProgressBar PctDone
MsgBox "Charge Capa calculée !!!"
End Sub
Sub UpdateProgressBar(PctDone As Single)
With UserForm1
' Update the Caption property of the Frame control.
.FrameProgress.Caption = Format(PctDone, "0%")
' Widen the Label control.
.LabelProgress.Width = PctDone * _
(.FrameProgress.Width - 20)
End With
' The DoEvents allows the UserForm to update.
DoEvents
End Sub
A noter que l'erreur s'affiche à partir de la ligne :
While ACC.Cells(2, i) <> ""
Prière de m'aider ASAP car je dois rendre mon projet aujourd'hui , que dois faire ?
Merci par avance.