Discussion :

[papyguy47]

Bonjour,
J'ai bien créé un UserForm qui fonctionne très bien mais, le seul problème que je rencontre est le fait que je vois aucun enregistrements déjà effectué dans mon fichier.
Je ne peux donc pas modifier un enregistrement existant.
La saisie d'un nouvel enregistrement par l'intermédiaire du formulaire fonctionne parfaitement.
Cordialement
PapyGuy47

[BENNASR]

Bonjour
La demande n'est pas claire surtout que tu montre pas comment tu fais le saisie via ton usf
l'idée en général est de faire un combobox dans ton userform qui s'alimente lors de l'initialisation par la colonne qui sera pris comme clé
et au moment du choix les autres textbox se charge automatiquement et tu fais les modif nécessaire et tu enregistre

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
Private Sub ComboBox1_Change()
Dim plage As Range
Dim Cell As Range
Dim Dernligne As Long
Dim coderech As String
coderech = ComboBox1.Value
With Sheets("Source")
Dernligne = .Range("A" & Rows.Count).End(xlUp).Row
Set plage = .Range("A2:A" & Dernligne)
For Each Cell In plage
 If Cell.Value = coderech Then
 TextBox1.Value = .Cells(Cell.Row, 2).Value
 TextBox2.Value = .Cells(Cell.Row, 3).Value
 End If
Next Cell
End With
End Sub

Un fichier exemple ci joint annexé
BONNE CONTINUATION

[papyguy47]

Merci beaucoup
Je vais regarder tout cela.
C'est ma 1ère prog VBA
Cdlt