Inserer une ligne dans une tranche spécifique du tableau

Bonjour à tous,

Je suis sur un projet de planning.

Je voudrai à partir d'un USF inclure une ligne dans un tableau que j'ai commencé à remplir par ce code qui me rempli la dernière ligne vide :

Private Sub OK_Click()

'Inclure dans la la feuille

Sheets("clients").Select

Range("a65000").End(xlUp).Offset(1, 0).Select

ActiveCell.Offset(0, 0).Value = NumCli.Value

ActiveCell.Offset(0, 1).Value = NomCli.Value

ActiveCell.Offset(0, 2).Value = AdressCli.Value

ActiveCell.Offset(0, 3).Value = CPCli.Value

ActiveCell.Offset(0, 5).Value = T2L.Value

ActiveCell.Offset(0, 6).Value = IMM.Value

ActiveCell.Offset(0, 7).Value = ObsCliPge1.Value

ActiveCell.Offset(0, 8).Value = GSM2.Value

ActiveCell.Offset(0, 9).Value = TextBox8.Value

End Sub

Etant donné que les lignes à partir de 37 sont remplies, comment faut-il faire pour remplir de la ligne 6 à la ligne 36.

Merci de votre aide

Amicalement

Noel

Bonjour Noel

Peut être essayer ceci :

Private Sub OK_Click()
'Inclure dans la la feuille
With Sheets("clients")
    For i = 6 To 36
        .Cells(i, 1).Value = NumCli.Value
        .Cells(i, 2).Value = NomCli.Value
        .Cells(i, 3).Value = AdressCli.Value
        .Cells(i, 4).Value = CPCli.Value
        .Cells(i, 6).Value = T2L.Value
        .Cells(i, 7).Value = IMM.Value
        .Cells(i, 8).Value = ObsCliPge1.Value
        .Cells(i, 9).Value = GSM2.Value
        .Cells(i, 10).Value = TextBox8.Value
    Next
End With
End Sub

Amicalement

Bonjour à tous

Bonjour Dan,

merci pour ce code je vais l'essayer et je te tiendrai informé.

Je suis connecté sans interruption sur Skype.

@+

Amicalement

Noel

Re

Dan je suis désolé cela ne fonctionne pas.

Mais ne t'en fait pas j'ai trouvé la solution.

Donc je peux fermer le fil.

@+

Amicalement

Noel