Nom ambigu/sub or function undeclared

doruidokaram -  
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. 
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

Réponse 1 / 1
Pierre1310 Messages postés 8854 Statut Membre 652
 
Salut,

Tu obtiens une ambiguïté juste avec ce bout de code?
0
doruidokaram
 
non avec celui la j'ai le deuxième cas (sub or function undeclared)
0
Pierre1310 Messages postés 8854 Statut Membre 652
 
Peux-tu me mettre tout ton code et me situer l'erreur d'ambiguïté stp.
0
doruidokaram
 
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"
0
Pierre1310 Messages postés 8854 Statut Membre 652
 
A ba c'est normal, tu n'as pas compris la programmation c'est tout. 
Dim actualiserValpha()

Cette ligne n'a pas lieu d'être en vba.
On ne déclare pas une fonction.
0
doruidokaram
 
je tombe sur la même erreur "Sub ou fonction non définie"
0

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site
ScarexStupid -
Rossignol -

9 réponses
Livebox 4 Réseau Orange non détecté
Azfun -
brupala -

10 réponses
Livebox s'allume mais marque pas de réseau orange
Bebelle -
kaumune -

9 réponses
Annuaire portable gratuit à partir d'un nom
dani26 -
Authority -

9 réponses
Nom d’adresse
X -
X -

2 réponses