Discussion :

[morobaboumar]

Bonjour membres du forum,
Comment entrer des données dans une feuille Excel protégée grâce à un userform ?
Je souhaite entrer des données sur une feuille Excel protègée par mot de passe sans le lui ôter.
Et cela grâce à un userform.
Cordialement.

[Philippe Tulliez]

Bonjour,
Pour écrire dans une ou plusieurs cellules d'une feuille protégée, il suffit d'utiliser la méthode Protect à l'aide de l'argument nommé UserInterfaceOnly avec comme valeur True ainsi que l'argument nommé Password en y insérant le mot de passe comme valeur
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub t()
  Dim sht As Worksheet
  Set sht = ThisWorkbook.Worksheets("Data")
  With sht
  .Protect UserInterfaceOnly:=True, Password:=""
  .Range("I2").Value = "Test"
  End With
  Set sht = Nothing
End Sub

[morobaboumar]

Bonsoir Philippe Tulliez,
Merci infiniment pour votre réponse précieuse.
Désolé pour le retard.
Donnez moi un peu de temps pour les essais.
Cordialement.

[morobaboumar]

Bonjour,
Pour écrire dans une ou plusieurs cellules d'une feuille protégée, il suffit d'utiliser la méthode Protect à l'aide de l'argument nommé UserInterfaceOnly avec comme valeur True ainsi que l'argument nommé Password en y insérant le mot de passe comme valeur
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub t()
  Dim sht As Worksheet
  Set sht = ThisWorkbook.Worksheets("Data")
  With sht
  .Protect UserInterfaceOnly:=True, Password:=""
  .Range("I2").Value = "Test"
  End With
  Set sht = Nothing
End Sub

Bonjour Philippe Tulliez,
Désolé d'avoir passé assez de temps pour répondre!
voici la Zone unique d'une UserForm où devrais je entrer un montant numérique et l'insérer sur là
feuille Excel (voir Capture d'écran).



Je viens de créer une UserForm



Pour le reste il va falloir m'aider !

Pièce jointe

Cordialement.

[Philippe Tulliez]

Bonjour,

Désolé d'avoir passé assez de temps pour répondre!

C'est que vraisemblablement votre projet n'est pas urgent.

Pour le reste il va falloir m'aider !

Je pense avoir publié une solution répondant à votre demande
Mis à part d'avoir inséré un UserForm et un TextBox, qu'avez-vous fait d'autre ?
Votre réponse avant Noël ?

[morobaboumar]

Bonjour Philippe Tulliez;,
Pourriez vous me donner le lien de votre solution publiée ?
Merci infiniment.
Cordialement.

[Philippe Tulliez]

Bonjour,
Vous plaisantez, vous l'avez vous même recopiée ?
C'est ma réponse fil #2

[morobaboumar]

Bonjour,
Vous plaisantez, vous l'avez vous même recopiée ?
C'est ma réponse fil #2

Je Vous dois respect.
j'ai des erreurs:




Cordialement.

[Philippe Tulliez]

Bonjour,
Sans bien entendu avoir analysé votre procédure, si vous souhaitez que la procédure nommée t renvoie une valeur, il y a lieu de remplacer Sub par Function mais cela ne fonctionnera pas en tant que tel car vous n'avez pas programmé celle-ci pour quelle renvoie une valeur.
Je vous suggère la lecture de ce tutoriel Les fonctions personnelles dans Excel

Si votre cellule protégée doit contenir une somme, peut-être serait-il plus simple d'utiliser une fonction native d'excel ce qui vous éviterait d'avoir à demander l'encodage dans une zone de texte pour l'écrire ensuite dans une cellule.
Sans connaître la finalité de votre projet, nous risquons d'échanger longuement sans aboutir à une solution.

Cela sort un peu de votre demande initiale qui était de connaître la manière d'écrire dans la cellule d'une feuille protégée.

Il serait sans doute préférable d'ouvrir une nouvelle discussion avec un nouveau sujet

Edit
Je n'avais pas vu que vous utilisiez la procédure que j'avais publiée

Voici une exemple ci-dessous
Attention que le TextBox doit se nommer TextBox1 et que la feuille protégée doit être nommée Data et attention également que l'écriture dans mon exemple se fait en cellule I2

Vous devriez commencer par le début et lire des tutoriels pour apprendre à coder le VBA car faire du Copier/Coller sans comprendre ne va pas vous faire avancer et ce n'est pas à un enseignant, si j'en crois votre profil, que je dois le préciser.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox1_Change()
  t
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub t()
  Dim sht As Worksheet
  Set sht = ThisWorkbook.Worksheets("Data")
  With sht
  .Protect UserInterfaceOnly:=True, Password:=""
  .Range("I2").Value = Me.TextBox1.Value
  End With
  Set sht = Nothing
End Sub

[morobaboumar]

Bonsoir Philippe Tulliez,
Merci pour tous les bonnes suggestions que vous m'avez conférés !
Sauf votre respect, permettez moi de vous poster une pièce jointe afin que vous m'aidiez à la
conception d'une UserForm ?
Le mot de passe: OUMAR
J'ai trouver un exemple de ce que je recherche ici https://www.developpez.net/forums/d4...ille-protegee/
Cordialement.

[hyperion13]

Salut
Normal que vous ayez des erreurs, vous n'avez pas adapté le code à votre classeur Brouillon.xlsm!
Worksheets("Data"),vs Worksheets("Feuil1").

... j'ai des erreurs:...

Post#4 quel est l'intérêt de créer un USF pour saisir une valeur en G5 puisque, sauf erreur, G5 est la somme des montants de G8 à Gxx ? A moins que vous vouliez recalculer les montants à partir de G8 fonction de MoyennePartage, et tauxPartage ?

Peut-être pourriez-vous commencer par consulter la FAQ et lire certains tutos ici et là !

Bonsoir Philippe Tulliez,
Merci pour tous les bonnes suggestions que vous m'avez conférés !
Sauf votre respect, permettez moi de vous poster une pièce jointe afin que vous m'aidiez à la conception d'une UserForm ?

Euh ... mot de passe invalide !
Et en plus pas une ébauche d'USF dans votre classeur !

... Le mot de passe: OUMAR

[morobaboumar]

Salut
Normal que vous ayez des erreurs, vous n'avez pas adapté le code à votre classeur Brouillon.xlsm!
Worksheets("Data"),vs Worksheets("Feuil1").


Post#4 quel est l'intérêt de créer un USF pour saisir une valeur en G5 puisque, sauf erreur, G5 est la somme des montants de G8 à Gxx ? A moins que vous vouliez recalculer les montants à partir de G8 fonction de MoyennePartage, et tauxPartage ?

Peut-être pourriez-vous commencer par consulter la FAQ et lire certains tutos ici et là !

Euh ... mot de passe invalide !
Et en plus pas une ébauche d'USF dans votre classeur !

Bonjour hyperion13,
Content de vous retrouver !
Le mot de passe mettez le en miniscule.
Je ne recherche pas à refaire les calculs car
ça l'est déjà.
Ce que je voudrais est tout simplement
d'entrer un nouveau montant qu'Excel est chargé
de présenter les différentes parts.
Le montant doit être inséré dans la cellule au
dessus de la colonne Montant EMS.
Cordialement.

[hyperion13]

Euh ... majuscule ou minuscule, ça ne marche pas ! J'avais déjà vérifié !

... Le mot de passe mettez le en miniscule.

Vous faites des calculs sur un classeur alors que vous avez une bdd Acc qui les réalise déjà !

... Je ne recherche pas à refaire les calculs car ça l'est déjà.

Et ce nouveau montant, vous allez le recalculer dans votre bdd Acc ?

... Ce que je voudrais est tout simplement d'entrer un nouveau montant qu'Excel est chargé de présenter les différentes parts.

Je vais toutefois vous rappeler que les contributeurs de DEV sont tous des bénévoles qui ont ou non une activité professionnelle.
Je vous conseille vivement de consulter la FAQ et lire certains tutos ici et là !
Et vous ne recalculez pas SML et HDK ?
Et je ne comprends pas ce double-emploi bdd Acc et ce classeur Xl !

... Le montant doit être inséré dans la cellule au dessus de la colonne Montant EMS.

[morobaboumar]

Normal que vous ayez des erreurs, vous n'avez pas adapté le code à votre classeur Brouillon.xlsm!
Worksheets("Data"),vs Worksheets("Feuil1").

Comment adapter le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Data"),vs Worksheets("Feuil1")

?

Post#4 quel est l'intérêt de créer un USF pour saisir une valeur en G5 puisque, sauf erreur, G5 est la somme des montants de G8 à Gxx ? A moins que vous vouliez recalculer les montants à partir de G8 fonction de MoyennePartage, et tauxPartage ?

Je souhaiterais apprendre le VBA Excel et même Word.

Peut-être pourriez-vous commencer par consulter la FAQ et lire certains tutos ici et là !

Merci infiniment de m'avoir orienté !

Cordialement.

[morobaboumar]

Bonjour hyperion13,

Peut-être pourriez-vous commencer par consulter la FAQ et lire certains tutos ici et là !

Je vous présente ce que j'ai réalisé à partir de vos conseils:




Pièce jointe MP: oumar
Je suis conscient des énormes aides que vous nous apportez Nous vous sommes infiniment reconnaissant.
Bien! Pourriez vous me donner un coup de main concernant la zone de texte et la commande enregistrer. Le montant reçu par le TextBox
est enregistré dans la cellule grâce au code du bouton enregistrer.
Cordialement.

[Philippe Tulliez]

Bonjour,
Pour comprendre comment gérer les UserForm et les contrôles tels que Les TextBox, CommandButton, etc. je vous conseille la lecture des ces deux tutoriels

• Utiliser les UserForm en VBA Excel
• Utiliser les contrôles dans un UserForm, en VBA Excel

Pour débuter en VBA, quelques tutoriels

• Excel et Visual Basic : Tutoriel
• Initiation au VBA Office
• La gestion des boucles dans Excel
• Utiliser les variables en VBA Excel
• La gestion des erreurs dans Excel

[hyperion13]

Vous relancez une discussion qui date du 11/2021.
Entre temps, et cela est évident, vous n'avez pas pris la peine de consulter des tutos à propos de la création d'USF et de leurs manipulations. Les liens sont la FAQ, Utiliser les USF et Utiliser les contrôles dans un USF.

Philippe Tulliez que je salue au passage indique dans son Post#9 que vous devez adapter le code qu'il a fourni à votre IHM.
Il est évident que la feuille de calculs Worksheets("Data"),n'existe pas dans votre classeur. Et vous insistez dans votre démarche sans chercher à comprendre. D'où ma remarque ci-dessous.

Comment adapter le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Data") vs Worksheets("Feuil1")

?

Majuscule ou minuscule ça ne marche pas !

... Pièce jointe MP: oumar

A l'évidence, vous n'avez pas fait de recherche et/ou lu les tutos.
Un conseil pour les débutants, évitez de donner des noms exotiques aux USF et objets d'USF. Gardez les noms génériques fournis par l'assistant. Une fois que vous aurez des heures de vol à votre actif vous pourrez commencer à "customiser" vos USF.

... Bien!, Pourriez vous me donner un coup de main ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Option Explicit
Private Sub CommandButton1_Click() ' Enregistrer
    Worksheets("PARTAGE GLOBAL").Range("G5").Value = TextBox1.Value
End Sub
Private Sub CommandButton2_Click() ' Fermer
    Unload Me
End Sub

[morobaboumar]

Bonsoir Membres du forum,
bonsoir hyperion13,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserFormEnregistrerMontantant_Change()
  t
End Sub
 
Sub t()
  Dim sht As Worksheet
  Set sht = ThisWorkbook.Worksheets("PARTAGE GLOBAL")
  With sht
  .Protect UserInterfaceOnly:=True, Password:=""
  .Range("G5").Value = "Test"
  End With
  Set sht = Nothing
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CmdButtonENREGISTRER_Click() ' Enregistrer
    Worksheet("PARTAGE GLOBAL").Range("G5").Value = UserFormEnregistrerMontantant.Value
End Sub
 
 
Private Sub CmdButtonFERMER_Click()
Unload Me
End Sub
 
 
'avec la virgule valide(décimale)
Private Sub TextBoxInsererMontant_Change()
    On Error Resume Next
 
    If Not IsNumeric(Right(TextBoxInsererMontant, 1)) And Right(TextBoxInsererMontant, 1) <> "," Then
        MsgBox "Le caractere saisi n'est pas valide"
        TextBoxInsererMontant = Left(TextBoxInsererMontant, Len(TextBoxInsererMontant) - 1)
    End If
End Sub

Messages d'erreus:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("PARTAGE GLOBAL"),vs Worksheets("PARTAGE GLOBAL")

Cordialement.

[Philippe Tulliez]

Bonjour,
Dans le deuxième code publié, première procédure il manque un s à Worksheet
Soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CmdButtonENREGISTRER_Click() ' Enregistrer
    Worksheets("PARTAGE GLOBAL").Range("G5").Value = UserFormEnregistrerMontantant.Value
End Sub

Il est possible qu'il y ait d'autres soucis mais celui-là, je l'ai repéré immédiatement.

Et dans votre dernière illustration la syntaxe est mauvaise
Que voulez-vous faire à l'ouverture du classeur ?

[morobaboumar]

Bonsoir Philippe Tulliez,
Franchement, je n'y arrive pas car je maitrise pas pour le moment le Vba Excel.
En attendant pourriez vous me résoudre notre discussion ?
Mon objectif principal (le post #4).
Le code de la commande enregistrer génère des erreurs.



Cordialement.