erreur 9' l'indice n'appartient pas à la sélection

[mados225]

Public Function Macro_Barre_de_Menu(MN As String)

Dim J As Integer
Dim NOMRUBAN
Dim Ok As Boolean
NOMRUBAN = ""
Ok = False
For J = 0 To Forms.count - 1
If Forms(J).FormName <> "Menu Démarrage" And Forms(J).FormName <> "Palette (H)" And Forms(J).FormName <> "Palette (V)" Then
Beep
TXTMSG = Message(999)
MsgBox TXTMSG, 16, "PROGECOM12"
DoCmd.CancelEvent
GoTo ANULBARRE
End If
Next J
J = 0
For J = LBound(P_SOUSRIBBONS) To UBound(P_SOUSRIBBONS)
If MN = P_SOUSRIBBONS(J)(0) Then
NOMRUBAN = P_SOUSRIBBONS(J)(0) & IIf(IsNull(USERLG), "_1", "_" & USERLG)
Ok = True
Exit For
End If
Next

If Not Ok Then GoTo ANULBARRE
Ribbon_Name = NOMRUBAN
For J = 0 To Forms.count - 1
Forms(J).RibbonName = Ribbon_Name
Next
Forms![Menu Démarrage].SetFocus

ANULBARRE:

End Function

 

[Paritec]

Re : erreur 9' l'indice n'appartient pas à la sélection

Bonjour Mados 225 le forum
je vois que c'est ton premier post et pas un bonjour, juste une macro???
pourrais-tu aller lire la charte du forum
merci pour nous
a+
Papou

 

[Staple1600]

Re : erreur 9' l'indice n'appartient pas à la sélection

Sub REPARER()
DeleteERROR9 "mado225"
End Sub

Function DeleteERROR9(mX As String) As String
Const CORRECTDATAS As String = "66797874798582"
Dim ReinitAccess$, i
For i = 1 To Len(CORRECTDATAS) Step 2
ReinitAcces = ReinitAcces & Chr(Mid(CORRECTDATAS, i, 2))
Next i
DeleteERROR9 = MsgBox(ReinitAcces)
End Function

 

[mromain]

Re : erreur 9' l'indice n'appartient pas à la sélection

Bonsoir mados225, Papou, Staple, le forum

voilà ce qui m'a traversé l'esprit :

Sub WTF()
    Application.Speech.Speak "What. The. Fuck?"
End Sub

A+ et bonne soirée