Bonjour,
Je viens de lire qu'il valait mieux ne pas mettre de fichiers joint donc je reformule ma demande (message du 13/03/2013).
J'ai créé un fichier pour permettre de faciliter la saisie du suivi d'un fichier Excel.
Mon problème est que quand je vais chercher les informations, que je remplis les combos la phase suivante est l'écriture. Tout va très vite alors que je voudrai ne remplir les combos que ligne par ligne, si cela va click sur valid ou bien je modifie et puis je clicke et à ce moment la ligne est copiée dans le fichier. Cette action entraîne le remplissage des combos avec les valeurs de la ligne de dessous et etc pendant 9 fois. Mon Userform3 n'apparaît qu'à la fin et donc trop tard.
Je mets le code qui se trouve sur l'UF3.
Merci pour vos réponses

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
29
30
31
32
33
34
35
36
37
38
Private Sub Frame2_Rlx()
TextBox1.Value = UF2.TextBox3.Value + 9
Dim a2 As String
Dim cherche1 As String
Dim Cellule As String
Dim ligne As String
UF2.Hide
Sheets("Durée de vie").Select
cherche1 = UF2.ComboBox.Value
TextBox2.Value = UF2.ComboBox.Value
a2 = TextBox1.Value
For n = 0 To 8
ligne = a2 + n
CBRlx = Range("H" & ligne).Value  'Affiche le Positionnement rouleau
CBN° = Range("I" & ligne).Value
CBØmin = Range("M" & ligne).Value
CBØmont = Range("J" & ligne).Value
CBØrectif = Range("N" & ligne).Value
CBDur = Range("K" & ligne).Value
CBmatiere = Range("P" & ligne).Value
CBFournis = Range("Q" & ligne).Value
CmdBvalid_Click
Next n
 
End Sub
Private Sub CmdBvalid_Click()
Cpt = Cpt + 1
num = Sheets("Durée de vie").Range("A8").Row + (Cpt)
Sheets("Durée de vie").Activate
Range("H" & num).Value = CBRlx.Value
Range("I" & num).Value = CBN°.Value
Range("M" & num).Value = CBØmin.Value
Range("J" & num).Value = CBØmont.Value
Range("N" & num).Value = CBØrectif.Value
Range("K" & num).Value = CBDur.Value
Range("P" & num).Value = CBmatiere.Value
Range("Q" & num).Value = CBFournis.Value
 End Sub