Protéger tableau créé par userform

Bonjour,

J'ai crée un Userform pour gérer un tableau selon des critères, je voudrais bloquer la modification du tableau par mot de passe afin qu'une fois la saisie faite elle ne puisse pas être modifié outre que par l'admin.

Bonjour,

Sans le MDP difficile de faire un test mais le résultat ci-contre devrait convenir.

Private Sub CommandButton1_Click()
With Worksheets(1)
            .Unprotect ("TonMDP")
'Ton code
            .Protect ("TonMDP")
End With
End Sub

Bonne journée.

Oui désolé j'avais oublié que j'avais proteger la feuille

Je découvre tout juste les userforms.

Y a-t-il une fonction qui permet dans une TextBox de faire une retour a ligne au moment de la saisie ?

Bonjour …

TextBox en multiligne : retour à la ligne avec Ctrl et Enter (en même temps).

Parfait merci !

Dans le champs critères, je voudrais que si la case n'est pas cocher que cela n'apparait pas.

D'ailleurs pour les checkbox peut-on changer le VRAI/FAUX en Oui/NON

Que veux tu dire par VRAI/FAUX ? Une checkbox n'est qu'une case à cocher, il n'y a pas d'intitulé.

Quand je check la box et reporte la valeur de la checkbox dans mon tableau cela m'affiche Vrai ou Faux si elle n'est pas cochée

Bonjour,

If Checkbox1.Value = True Then
    Cells(y, n).Value = "OUI"
    Else
    Cells(y, n).Value = "NON"
End If

Bonne journée.

J'ai saisie le code de la manière suivant et cela me fait une erreur à quel moment je dois rajouter le code ?

 .Cells(derlign, 7).Value = CheckBox1

            If CheckBox1.Value = True Then
    Cells(y, n).Value = "OUI"
    Else
    Cells(y, n).Value = "NON"
End If

A ce moment là tu remplaces le tout par

If CheckBox1.Value = True Then
.Cells(derlign, 7).Value = "OUI"
Else
.Cells(derlign, 7).Value = "NON"
End If

En espérant que ta checbox s'appelle bien checkbox 1.

Nickel merci :)

De rien. N'hésites pas à passer ton sujet en résolu.

Bonne journée.

Bonjour, J'ai une comboBox où je sélectionne une valeur dans un liste de deux colonne en Feuil2.

La valeur de la combobox s'affiche dans la colonne A et Je voudrais dans le colonne B l'information complémentaire de la liste.

J'ai codé ça :

Private Sub TextBox11_Change()

TextBox11.Value = Combox3.List(ComboBox3.ListIndex, 1)

End Sub

Mais cela ne m'affiche rien

C'est bon trouvé la solution :

.Cells(derlign, 5).Value = ComboBox3
.Cells(derlign, 6).Value = ComboBox3.Column(1)