Nom ambigu/sub or function undeclared
doruidokaram
-
Pierre1310 Messages postés 8854 Statut Membre -
Pierre1310 Messages postés 8854 Statut Membre -
Bonjour,
j'ai besoin d'aide le plus vite possible, mon boss m'a demander de lui programmer un bouton sur excel qui actualise les taches selon "côluté" pour 1 ou "en cours" pour 0,le problème ne réside pas ici, mais sur les déclarations, si je déclare la fonction j'ai un message "nom ambigu détecté", et si je ne le fait pas j'ai un message d'erreur "sub or function undeclared", le code seras ci-joint.
merci d'avance :D.
j'ai besoin d'aide le plus vite possible, mon boss m'a demander de lui programmer un bouton sur excel qui actualise les taches selon "côluté" pour 1 ou "en cours" pour 0,le problème ne réside pas ici, mais sur les déclarations, si je déclare la fonction j'ai un message "nom ambigu détecté", et si je ne le fait pas j'ai un message d'erreur "sub or function undeclared", le code seras ci-joint.
merci d'avance :D.
Dim j As Integer
Dim cpt As Integer
Dim cpt_ok As Integer
Dim cpt_nok As Integer
Function actualiserValpha()
GoTo Feuil2
i = 0
j = 8
cpt = 0
cpt_ok = 0
cpt_nok = 0
While (Worksheet.Name = "feuil2(rraport activité direction 2016)")
For i = 2 To Worksheet.Size()
If (T(i)(j) = True) Then
cpt_ok = cpt_ok + 1
Else
cpt_nok = cpt_nok + 1
MsgBox("vous avez %d taches. details :\n%d cmôturées \n%d encours", cpt, cpt_ok, cpt_nok) = vbOK
End Function
1 réponse
-
Salut,
Tu obtiens une ambiguïté juste avec ce bout de code?
-
-
-
voila j'ai mis les deux cas
'quand je ne declare pas
Dim i As Integer
Dim j As Integer
Dim cpt As Integer
Dim cpt_ok As Integer
Dim cpt_nok As Integer
Function actualiserValpha()
GoTo Feuil2
i = 0
j = 8
cpt = 0
cpt_ok = 0
cpt_nok = 0
While (Worksheet.Name = "feuil2(rraport activité direction 2016)")
For i = 2 To Worksheet.Size()
If (T(i)(j) = True) Then
cpt_ok = cpt_ok + 1
Else
cpt_nok = cpt_nok + 1
MsgBox("vous avez %d taches. details :\n%d cmôturées \n%d encours", cpt, cpt_ok, cpt_nok) = vbOK
End Function
'dans ce cas le message d'erreur "Sub or Function undeclared"
'si je declare
Dim i As Integer
Dim j As Integer
Dim cpt As Integer
Dim cpt_ok As Integer
Dim cpt_nok As Integer
Dim actualiserValpha()
Function actualiserValpha()
GoTo Feuil2
i = 0
j = 8
cpt = 0
cpt_ok = 0
cpt_nok = 0
While (Worksheet.Name = "feuil2(rraport activité direction 2016)")
For i = 2 To Worksheet.Size()
If (T(i)(j) = True) Then
cpt_ok = cpt_ok + 1
Else
cpt_nok = cpt_nok + 1
MsgBox("vous avez %d taches. details :\n%d cmôturées \n%d encours", cpt, cpt_ok, cpt_nok) = vbOK
End Function
'dans ce cas le message d'erreur "nom ambigu détecté :actualiserValpha" -
-
-
