Discussion :

[ziboua]

bonjour tout le monde
je ne suit pas un experet dans la matière, je vous remercie pour votre éclairage.

voila mon problème.
comment puis-je faire pour que mon formulaire saisiras la ligne suivante juste après la dernière saisie dans le dernier textbox.
merci beaucoup.

[jfontaine]

Bonjour,

La réponse sur ce post
http://www.developpez.net/forums/d11...-deverouillee/

[ziboua]

Bonjour.

Merci pour Votre attention.

ce n'est pas gagné. je pense que j'ai mal introduit le code .
voila mon travail ci-joint pour bien faire la chose .
et merci encore.

[jfontaine]

Ton code nomme "en dur" la cellule de destination.
Dans ton cas, il serait judicieux d'alimenter la feuille après validation de la userform par un bouton.
Cela te permettra aussi de vérifier la saisie des utilisateurs (zonne de texte obligatoier, saisie de chiffres ou de lettres etc...)

[ziboua]

je ne comprends rien

Merci quand même

[jfontaine]

Ci joint ton fichier avec quelques correctifs.

Quand on double clic sur un nom (colonne C), d'une feuille dont le premier caractère est numérique, on affiche la userform qui alimente les notes du nom précédemment choisi via le double clic

NOTES.zip


Dans le Workbook évenement Workbook_SheetBeforeDoubleClick. La variable Rg est déclarée en Public dans un module

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If IsNumeric(Left(Sh.Name, 1)) Then
    If Target.Count = 1 And Target.Column = 3 Then
        Set Rg = Target
        UserForm1.Show
    End If
End If
End Sub

pour l'alimentation en dynamique lors de la saisie des notes

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub TextBox1_Change()
Rg.Offset(0, 1).Value = TextBox1.Text
End Sub
 
Private Sub TextBox2_Change()
Rg.Offset(0, 2).Value = TextBox2.Text
End Sub
 
etc ...

[ziboua]

Merci beaucoup.

je ne suit pas arriver.