Bonjour,

J'ai mis en place le code suivant qui me permet de rapatrier des données dans un tableau Excel. Cependant, je rencontre un problème. Une fois la première donnée saisie, les autres ne s'inscrivent pas en dessous de la première, mais ailleurs dans le tableau. La première donnée arrive en F25, la deuxième devrait logiquement arriver en F26, mais ça ne fonctionne pas. Pourriez-vous me dire ou ai-je commis une erreur ?
Je vous en remercie par avance :

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
 
Private Sub CmbOK_Click()
Dim vMessageErreur As String
Dim vErreur As Integer
vMessageErreur = ""
vErreur = 0
 
If UF1.CmbCat.Value = "" Then
    vErreur = 1
    vMessageErreur = vMessageErreur + Chr(10) + "Un code"
End If
If vErreur = 1 Then
    MsgBox "Vous avez oublié" + vMessageErreur, , "Erreur"
Exit Sub
End If
Sheets("Lot 1 - Abscis").Activate
If Range("F25") = "" Then
    Range("F25").Select
Else
    Range("F24").End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("F23").Select
End If
 
ActiveCell.Value = UF1.CmbCat.Value
ActiveCell.Offset(0, 1).Value = UF1.LstFS.List
ActiveCell.Offset(0, 2).Value = UF1.TxtNb1.Value
ActiveCell.Offset(0, 3).Value = UF1.LstHF.List
ActiveCell.Offset(0, 4).Value = UF1.TxtNb2.Value
 
End Sub