[XL-2007] Code débuter archivage ligne 10

[korosifs]

Bonjour,

Voici mon code d'archivage:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
'archivage
Private Sub Valider_Click()
  Dim Lg As Long
   For i = 0 To Me.Intervenant.ListCount - 1
     If Me.Intervenant.Selected(i) = True Then temp = temp & Me.Intervenant.List(i) & " "
  Next i
k = CLng(Numinter) + 1
 
  With Sheets("Archivage")
'    .Unprotect
    .Cells(k, 1) = Numinter
    .Cells(k, 1) = CDbl(Numinter)
    .Cells(k, 2) = Dateinter: Dateinter = Date
    .Cells(k, 3) = Heureinter: Heureinter = Heure
    .Cells(k, 4) = Datedemande: Datedemande = Date
    .Cells(k, 5) = Dureeinter: Dureeinter = Heure
    .Cells(k, 6) = LTrim(temp): Intervenant = ""
    .Cells(k, 7) = Localisation: Localisation = ""
    .Cells(k, 8) = Typeinter: Typeinter = ""
    .Cells(k, 9) = Objet: Objet = ""
'    .Protect
  End With
UserForm_Initialize
End Sub

Le soucis c'est que ça commence à archiver à la première ligne alors que je souhaiterais que ça début ligne 10. Quel est le "bout" de code qu'il me manque?

Merci

Cdt

[jfontaine]

Bonjour,

Pour commencer ligne 10, il faudrait que k soit = 10 au premier tour soit Numinter = 9 .
Regarde la valeur de Numinter au démarrage de la boucle