bonjour,
En fait cette boucle sert à entrer dans une feuille excel des informations rentrées à l'aide d'un userform comprenant des combobox et listbox.
Le problème que j'ai est que cette boucle ne s'arrête pas et l'Userform ne se ferme pas jusqu'à que je clique sur la croix de fermeture et elle ne met pas toutes les valeurs en place.

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Public Sub OKforage_Click()
 
  Dim J As Integer
  Dim i As Integer
 
   v = Application.WorksheetFunction.Max(Nbrgruesforage, Nbrbennes, Nbrtrépans, Nbrcutteur)
 
    k = 3
 
   For J = 1 To 3 Step 1
     Sheets("Prepara").Cells(12, k) = "carac Grue"
     Sheets("Prepara").Cells(13, k) = Typegrue.Value
     Sheets("Prepara").Cells(14, k) = LongueurFleche.Value
     Sheets("Prepara").Cells(16, k) = Dategrue
     Sheets("Prepara").Cells(17, k) = "carac Benne"
     Sheets("Prepara").Cells(18, k) = Typebenne.Value
     Sheets("Prepara").Cells(19, k) = Typecoquilles.Value
     Sheets("Prepara").Cells(20, k) = Nbrcoquilles.Value
     Sheets("Prepara").Cells(12, k) = Typedents.Value
     Sheets("Prepara").Cells(13, k) = Nbrdents.Value
     Sheets("Prepara").Cells(23, k) = Nbrmaindecoffrage.Value
     Sheets("Prepara").Cells(25, k) = Nbrpochesecours.Value
     Sheets("Prepara").Cells(26, k) = Datebenne
     Sheets("Prepara").Cells(27, k) = "carac Trépan"
     Sheets("Prepara").Cells(28, k) = Typetrépan.Value
     Sheets("Prepara").Cells(29, k) = TypeCWS.Value
     Sheets("Prepara").Cells(34, k) = EpaisseurCWS.Value
     Sheets("Prepara").Cells(33, k) = Longueurcoffrage.Value
     Sheets("Prepara").Cells(31, k) = NbrcoffrageCWS.Value
     Sheets("Prepara").Cells(35, k) = Nbrfreins.Value
     Sheets("Prepara").Cells(37, k) = "carac Cutteur"
     Sheets("Prepara").Cells(38, k) = Typecutteur.Value
     Sheets("Prepara").Cells(39, k) = Typeroue.Value
     Sheets("Prepara").Cells(41, k) = Datecutteur
 
      If Taraben = True Then
        Sheets("Prepara").Cells(15, k) = "X"
      Else: Sheets("Prepara").Cells(15, k) = ""
      End If
      If Maindecoffrage = True Then
        Sheets("Prepara").Cells(22, k) = "X"
      Else: Sheets("Prepara").Cells(22, k) = ""
      End If
      If Voletsrattrapage = True Then
        Sheets("Prepara").Cells(24, k) = "X"
      Else: Sheets("Prepara").Cells(24, k) = ""
      End If
      If Montagerapide = True Then
        Sheets("Prepara").Cells(36, k) = "X"
      Else: Sheets("Prepara").Cells(36, k) = ""
      End If
      If Teteorientable = True Then
        Sheets("Prepara").Cells(40, k) = "X"
      Else: Sheets("Prepara").Cells(40, k) = ""
      End If
 
      k = k + 2
      Unload Forage
 
      Forage.Show
    Next
 
 Unload Forage
 Matériels.Show
 
End Sub
merci par avance.