Discussion :

[chris09300]

bonsoir
j'ai le code suivant:

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
20
21
22
23
24
25
26
27
28
 
Option Explicit
Private Sub Userform_Initialize()
DTPicker1.Value = Date
Dim WsS As Worksheet
Dim DerLigS As Long, R As Long
Set WsS = Sheets("Data")
DerLigS = WsS.Cells(Columns(1).Cells.Count, 10).End(xlUp).Row
For R = 2 To DerLigS 'Boucle sur les lignes de la col. A
    UF_Saisie.CB_numero.AddItem WsS.Cells(R, 1) 'Ajout des N° au Combobox
Next R
End Sub
Private Sub CommandButton2_Click()
Dim WsS As Worksheet
Dim MaRech As Range, MaPlage As Range
Dim DerLigS As Long, DerCol As Long
 
Set WsS = Sheets("Data")
DerLigS = WsS.Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
Set MaPlage = WsS.Range(WsS.Cells(1, 1), WsS.Cells(DerLigS, 1))
Set MaRech = MaPlage.Find(UF_Saisie.CB_numero, LookIn:=xlValues)
DerCol = WsS.Cells(MaRech.Row, WsS.Rows(MaRech.Row).Cells.Count).End(xlToLeft).Column '
 
WsS.Cells(MaRech.Row, DerCol + 1) = CDate(DTPicker1) & " à " & UF_Saisie.Textbox1.Value & _
                                         Chr(10) & UF_Saisie.ComboBox1.Value
UF_Saisie.Hide
Unload UF_Saisie
End Sub

quand je rempli les differents element de l'userform, et que je clique sur ok, la macro s'arrete et retourne a ma feuille.
j'aimerais que quand je clique sur ok, l'userform reste afficher, pour refaire un autre choix, et cela jusqu'au moment ou je cliquerais sur un bouton fin.
et quel serait le code du bouton fin.
merci
cris

[chyanon]

Bonjour,

As tu essayé sans:

Code :

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

Unload UF_Saisie

A la place, tu initialises les saisies:

Code :

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

1
2
3
 
Textbox1.value =""
Combobox1.value=""

Le code du bouton fin:

Code :

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

1
2
 
Unload me

[chris09300]

parfait, ca marche.
merci
cris