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

  • Initiateur de la discussion Initiateur de la discussion mados225
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mados225

XLDnaute Nouveau
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
 
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😱
 
Re : erreur 9' l'indice n'appartient pas à la sélection

Code:
Sub REPARER()
DeleteERROR9 "mado225"
End Sub
Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Erreur UBound
Réponses
4
Affichages
144
Réponses
4
Affichages
177
Réponses
5
Affichages
235
Réponses
10
Affichages
281
Réponses
5
Affichages
232
Retour