Obliger la saisie via un userform

Bonjour

je cherche à obliger les utilisateurs à passer par un formulaire "UserForm" pour la saisie

Je ne sais pas quel est l'état de l'art dans ce domaine mais je voudrai interdire la saisie dans une cellule et autoriser le double-clic pour afficher mon "UserForm"

Comment faites vous généralement ?

Merci

Bonjour

A mon niveau de autodidacte j'affiche mon userform en plein écran lors de l'ouverture du classeur et je fais un bouton pour cacher USF et aller à Excel

Code:

---

1 2 3

Private Sub Workbook_Open() UserForm1.Show End Sub

---

Important : Ne pas oublier d'ajouter un bouton dans l'userform pour cacher USF et aller à Excel

Code:

---

1 2 3

Private Sub CommandButton1_Click() Unload Me End Sub

---

pour afficher USF en plein écran

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub UserForm_Activate() With Me .StartUpPosition = 3 .Width = Application.Width .Height = Application.Height .Left = 0 .Top = 0 End With End Sub

---

pour désactiver le croix en rouge qui ferme le userform

Code:

---

1 2 3

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Cancel = CloseMode = 0 End Sub

---

Bonjour, voici ma méthode très simple à mettre en oeuvre:

A l'ouverture du classeur, je protège la feuille avec:

Code:

---

1 2 3

Private Sub Workbook_Open() Worksheets("NomDeLaFeuille").Protect ' Changer le nom de la feuille End Sub

---

Et j'ouvre le userform sur double-clic avec:

Code:

---

1 2 3 4

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True UserForm1.Show End Sub

---

j'ajoute à l'intervention de franc (bonjour au passage)
ajouter dans votre code se saisie
au début

Code:

---

Worksheets("NomDeLaFeuille").Unprotect

---

et après enregistrement des données

Code:

---

Worksheets("NomDeLaFeuille").protect

---

Peut être c'est évident mais c'est utile pour les débutants

Bonjour,

si le but est de transférer des données depuis l'userform vers les feuilles protégées, ne pas oublier le paramètre suivant :

Code:

---

UserInterfaceOnly:=True

---

Cela permettra d'avoir une feuille protégée de la saisie des utilisateurs, mais pas de l'écriture réalisée par les procédures vba

Bonjour et merci de vos réponses,

je vais regarder, j'apprendrai bcp de choses

Mais je rappelle mon problème : juste bloquer la saisie dans une cellule en autorisant le double-clic

Ma macro fait juste ce que tu as demandé. Ce qui n'empêche pas qu'un problème puisse survenir, et donc les remarques faites par les autres intervenants sont tout à fait pertinentes et doivent être prises en compte.
On ne connaît ni ton projet, ni ton objectif et donc ce n'est pas parce que ta question est simple, que la solution l'est aussi ;)

C'est vrai ce n'est pas parce que la question est simple, que la solution l'est aussi...

Je m'aperçois au fil du temps que c'est souvent l'inverse, ce que l'humain ne fait pas le programme doit le faire...

Ceci dit mes effets sont infructueux, je vais essayer de préciser mon besoin :

J'ai une feuille F1 dans laquelle se trouve 20 lignes d'une cellule contenant des données par défaut, la longueur des cellules est identique sur chaque ligne. Chaque cellule a le paramètre "renvoi à la ligne"

La longueur des textes est variable d'une ligne à l'autre et la hauteur de la ligne est adapté par "Aufofit" à l'affichage de la feuille

Je veux que lorsque l'utilisateur souhaite modifier un texte, il double-clic sur la cellule concernée dans F1, avec le principe suivant :
- affichage du Userform
- récupération de la ligne active de la cellule dans F1
- saisi de l'utilisateur
- Modification de la cellule dans F1

Je ne veux pas que l'utilisateur modifie directement dans la cellule de F1

J'espère avoir été relativement clair

Bonjour,
Il est préférable de travailler avec un tableau structuré (ListObject en VBA)

Citation:

---

Mais je rappelle mon problème : juste bloquer la saisie dans une cellule en autorisant le double-clic

---

Pour répondre à cette question et à condition que l'on utilise un tableau structuré voici un exemple d'interception du double clic (la feuille a été protégée manuellement)
Pour l'exemple, j'utilise une procédure événementielle de la feuille mais s'il y a des tableaux dans d'autres feuilles , il est préférable de privilégier la procédure Workbook_SheetBeforeDoubleClick

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim oList As ListObject Dim r As Long Set oList = Target.ListObject If Not oList Is Nothing Then ' Uniquement si Target est une cellule présente dans un ListObject With oList ' Uniquement si Target est dans la zone des données d'un ListObject If Not Intersect(Target, .DataBodyRange) Is Nothing Then r = Target.Row - .Range.Row mMain.UserForm_CRUD oList, r ' Appel de la procédure qui va activé le UserForm Cancel = True End If End With End If End Sub

---

Dans un module standard

Code:

---

1 2 3 4 5 6 7

Function UserForm_CRUD(oTable As ListObject, RecordNumber As Long) ' Arguments ' oTable ListObject où se trouve les données ' RecordNumber N° d'enregistrement (ligne où a eu lieu le double clic) GetRecord UserForm1, oTable, RecordNumber UserForm1.Show End Function

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Function GetRecord(Usf As UserForm, oList As ListObject, RecordNumber As Long) ' Charge les données dans les contrôles TextBox du UserForm ' Le nom des colonnes se trouve dans les propriétés Tag ' Arguments ' Usf Objet UserForm ' oList ListObject où se trouve les données ' RecordNumber N° d'enregistrement à afficher Dim ctrl As Control Dim c As Integer ' N° de colonne For Each ctrl In Usf.Controls If TypeOf ctrl Is MSForms.TextBox Then c = oList.ListColumns(ctrl.Tag).Index ctrl.Value = oList.DataBodyRange(RecordNumber, c).Value End If Next Set ctrl = Nothing End Function

---

Illustration

Pièce jointe 639032

Quelques tutoriels à lire éventuellement sur le sujet

• Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages(1)
• Excel: Les tables de données en VBA
• Les évènements dans la feuille de calcul Excel
• Les évènements du module objet ThisWorkbook, dans Excel
• Utiliser les contrôles dans un UserForm, en VBA Excel
• Excel VBA: Modélisation des échanges entre table de données et userform
  

J'ai mis un classeur très simple qui ne fait qu'afficher les données de la ligne du tableau où a eu lieu le double clic ce qui peut vous donner des idées

Merci

il va me falloir un peu de temps pour comprendre tout ça

A bientôt...

Voici une autre méthode, testée et fonctionnelle, à toi de voir en fonction de ton projet:

Protection de la feuille F1:

Code:

---

1 2 3

Private Sub Workbook_Open() Worksheets("F1").Protect UserInterfaceOnly:=True End Sub

---

Gestion du double-clic:

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If ActiveSheet.Name = "F1" Then ' Vérifie si la feuille active est "F1" Cancel = True ' Annule l'action par défaut du double-clic (édition de la cellule) UserForm1.TextBox1.Value = Target.Value ' Remplit le TextBox avec le contenu de la cellule en cours UserForm1.Show ' Affiche le UserForm UserForm1.TextBox1.SetFocus ' Donne le focus au TextBox1 End If End Sub

---

Sauvegarde vers la cellule via bouton de commande:

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() activeCell.Value = UserForm1.TextBox1.Value ' Sauvegarde le contenu du TextBox dans la cellule en cours UserForm1.Hide ' Masque le UserForm End Sub

---

#11

merci très simple et parfait

#9
ma curiosité naturelle me pousse à comprendre mais cela me parait compliqué pour mon niveau

merci à tous