Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Fonction personnalisé qui ne fonctionne pas

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Carnage029
  • 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 !

S'inscrire
C

Carnage029

XLDnaute Occasionnel
Bonjour à tous, j'ai crée une petite fonction personalisé pour récupérer VRAI ou FAUX dans une cellule de ma feuille

la fonction es la suivante

Code: 
Function is_protected_or_not(current As Sheets)

If current.ProtectContents = True Then
    is_protected_or_not = True
    Else: is_protected_or_not = False
End If


End Function

pourtant dans la case de mon classeur ou je met : is_protected_or_not("Clients") il m'affiche un magnifique #VALEUR

(Ma feuille s'appelle Clients)

Merci à vous de votre aide
 
Trier par date Trier par votes
Re : Fonction personnalisé qui ne fonctionne pas

Résolu par

=is_protected_or_not("Clients") dans la cellule

et comme fonction

Code: 
Function is_protected_or_not(current As String)

If Sheets(current).ProtectContents = True Then
    is_protected_or_not = True
    Else: is_protected_or_not = False
End If


End Function
 
Vote positif 0 Vote négatif
Re : Fonction personnalisé qui ne fonctionne pas

Bonjour,

peut être en modifiant ceci :
Code: 
Function is_protected_or_not(current As Sheets)

par cela :
Code: 
Function is_protected_or_not(current As Worksheet)

bon après midi
@+

Edition : ta solution est meilleure, tu ne peux pas passer un objet comme ca.......
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Fonction personnalisé qui ne fonctionne pas

En revanche j'ai un soucis, ma fonction me retourne toujours dévérouilé (oui je l'ai un peu modifié...)

Code: 
Function is_protected_or_not(current As String)

If Sheets(current).ProtectContents = True Then
    is_protected_or_not = "VEROUILÉ"
    Else: is_protected_or_not = "DEVEROUILÉ"
End If


End Function

Qui se fait appeller comme ça :

Code: 
Sub protect_clients()


If ActiveSheet.ProtectContents = True Then
    
    ActiveSheet.Protect Password:="password123", DrawingObjects:=True, Contents:= True, Scenarios:=True

    If MsgBox("Vous êtes sur le point de désactiver la protection de la feuille" & " Clients, cette feuille permet d'ajouter, de supprimer ou de modifier les informations concernant un client. Pour valider appuyez sur OUI, pour revenir en arrière sur NON ", vbYesNo + vbInformation, "Confirmation - Désactiver la protection de la feuille client") = vbYes Then
        
        ActiveSheet.Unprotect Password:="password123"
        ActiveSheet.Range("E4") = is_protected_or_not(ActiveSheet.Name)
        
    End If

    ElseIf MsgBox("Vous êtes sur le point de réactiver la protection de la feuille" & " Clients, cette feuille permet d'ajouter, de supprimer ou de modifier les informations concernant un client. Pour valider appuyez sur OUI, pour revenir en arrière sur NON ", vbYesNo + vbInformation, "Confirmation - Réactiver la protection de la feuille client") = vbYes Then
        
        ActiveSheet.Range("E4") = is_protected_or_not(ActiveSheet.Name)
        ActiveSheet.Protect Password:="password123", DrawingObjects:=True, Contents:= True, Scenarios:=True
        
    
End If
 
Vote positif 0 Vote négatif
Re : Fonction personnalisé qui ne fonctionne pas

Re,

comprends pas trop ton code.... avant d'appeler ta fonction tu déprotéges ta feuille... donc pourquoi appeler cette fonction....
Code: 
ActiveSheet.Unprotect Password:="password123"
        ActiveSheet.Range("E4") = is_protected_or_not(ActiveSheet.Name)
 
Vote positif 0 Vote négatif
Re : Fonction personnalisé qui ne fonctionne pas

Pour mettre à jour la valeur de ma cellule E4 à DEVEROUILÉ

par contre ça marche pas pour le VEROUILÉ, je dois agir sur une feuille verrouilé pour actualiser la valeur...

y'a du verouil-ception dans l'air là, 🙁
 
Vote positif 0 Vote négatif
Re : Fonction personnalisé qui ne fonctionne pas

Bon en trichant un peu, (beaucoup même) on obtient ça

Code: 
Sub protect_clients()


If ActiveSheet.ProtectContents = True Then
    
    ActiveSheet.Protect Password:="password123", DrawingObjects:=True, contents:=True, Scenarios:=True

    If MsgBox("Vous êtes sur le point de désactiver la protection de la feuille" & " Clients, cette feuille permet d'ajouter, de supprimer ou de modifier les informations concernant un client. Pour valider appuyez sur OUI, pour revenir en arrière sur NON ", vbYesNo + vbInformation, "Confirmation - Désactiver la protection de la feuille client") = vbYes Then
        
        ActiveSheet.Unprotect Password:="password123"
        ActiveSheet.Range("E4").Value = is_protected_or_not(ActiveSheet.Name)
        MsgBox (ActiveSheet.Name)
        
    End If

    ElseIf MsgBox("Vous êtes sur le point de réactiver la protection de la feuille" & " Clients, cette feuille permet d'ajouter, de supprimer ou de modifier les informations concernant un client. Pour valider appuyez sur OUI, pour revenir en arrière sur NON ", vbYesNo + vbInformation, "Confirmation - Réactiver la protection de la feuille client") = vbYes Then
        ActiveSheet.Range("E4").Value = "VEROUILÉ"
        ActiveSheet.Protect Password:="password123", DrawingObjects:=True, contents:=True, Scenarios:=True
        
        
    
End If


End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

  • Résolu(e)
XL 2013 api createmetafile ne fonctionne pas comme createenHmetafile
2 3
Réponses
44
Affichages
1 K
jurassic pork
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
745
patricktoulon
L
  • Question Question
Microsoft 365 Erreur automation 440 sur code VBA
Réponses
1
Affichages
396
job75
  • Résolu(e)
XL 2010 [RESOLU] Rendre Fonction Générique
Réponses
2
Affichages
335
cathodique
  • Question Question
Autres Séquenceur (Timer) dans autre instance d'Excel
Réponses
5
Affichages
450
Dranreb
J
  • Question Question
XL 2021 Créer une fonction qui renvoie le nombre de critères sélectionné dans 1 filtre
Réponses
2
Affichages
362
Johann RSW
J
Capturer et imprimer ou exporter en pdf un userform
Réponses
4
Affichages
613
PHV62
P
  • Suggestion Suggestion
Date et heure fonction férié pour faire suite a la fonction paques avec l'ago de meuss méthode butcher
Réponses
2
Affichages
328
patricktoulon
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
487
Anthony_51
A
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
zip And unzip des éléments d'un fichier de type zip y compris les fichiers Excelavec la commande (TAR)
Réponses
2
Affichages
761
patricktoulon
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
EXCEL :: CLASS_LIBRARY_TOOLS_V1.0 - Classes utilitaires - Fichier Log, Gestion de pile d'exécution, isExists, Paramètres, Collection, Dictionnaire
Réponses
0
Affichages
533
oguruma
M
  • Question Question
XL 2013 Bouton commande ne fonctionne pas
Réponses
7
Affichages
659
midovic
M
  • Question Question
Autres la fonction similaire
Réponses
11
Affichages
888
patricktoulon
Astuce du jour (Lister les cellule avec formule avec référence circulaire)
Réponses
3
Affichages
587
Dranreb
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
586
ManuEven
M
D
  • Question Question
Microsoft 365 Code VBA pour date DD/MM/YYYY
Réponses
6
Affichages
638
Staple1600
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
892
Lu76Fer
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…