Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
Voici les références qui actives : Regarde la pièce jointe 1221467
J'ai du ouvrir une fichier vierge car, dans votre fichier, le menu Référence est grisé.
Dois-je ajouter manuellement les références manquantes ?
Je pense que c'est un problème de version peut-être. Quelle est votre version d'Excel ?
Sinon, pour aller au plus simple, mettez la fonction en commentaire:
Sub OteCroix(UF As UserForm)
' #If Win64 Then
Enlève la croix rouge de l'UF
' Dim hWnd As Longptr
' hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") _
' & "Frame", UF.Caption)
' SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
' #Else
Enlève la croix rouge de l'UF
' Dim hWnd As Long
' hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") _
' & "Frame", UF.Caption)
' SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
' #End If
End Sub
- 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