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
Peux-tu me mettre tout ton code et me situer l'erreur d'ambiguïté stp.
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"
Cette ligne n'a pas lieu d'être en vba.
On ne déclare pas une fonction.