Erreur d'exécution 424 Objet requis

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.

Bonjour et bienvenu

fatifalcon a écrit :

je dois rendre mon projet aujourd'hui

Joins ton fichier en y indiquant la démarche à faire pour arriver à l'erreur

Rechercher des sujets similaires à "erreur execution 424 objet requis"