vba insersion de données ligne par ligne

[Skyna]

Bonjour à tous,

Je viens encore auprès de vous pour de l'aide.. Je souhaiterais enregistrer par vba des infos au fur et à mesure sur des lignes en commençant par la ligne 7. Voilà le code que j'ai commencé de faire mais qui ne fonctionne pas, toutes les infos ne s'enregistrent pas sur la bonne ligne, certaines d'entre elles remontent et s'écrasent sur la ligne 1 (comme par exemple la date).. Je ne peux mettre le fichier mais juste une copie d'écran de la page excel en question. Merci pour votre aide!

'Commande enregistrer saisie
Private Sub Enregistrer()
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Carte_achats_01-2014")
.Activate
xdlgn = .Range("B" & Rows.Count).End(xlUp).Row - 1
For i = 7 To xdlgn
If .Cells(i, 6) = "" Then
.Cells(1, 5) = CDate(TBDate)
.Cells(i, 6) = LBNom
.Cells(i, 7) = Tbsite
.Cells(i, 8) = TBGestion
.Cells(i, 9) = LBFournisseur
.Cells(i, 10) = TBlocalisationfournisseur
.Cells(1, 11) = LBCompte
.Cells(1, 12) = TBCompte
.Cells(1, 13) = LBOgur
.Cells(1, 14) = TBCodiquesite
.Cells(1, 15) = TBMontant
'.Rows(i).EntireRow.Hidden = False
Exit For
End If
Next i
End With
Application.ScreenUpdating = True
End Sub

 

[Pierrot93]

Re : vba insersion de données ligne par ligne

Bonjour,

remplace le 1

.Cells(1, 5) = CDate(TBDate)

par ta variable :

.Cells(i, 5) = CDate(TBDate)

bon après midi
@+

 

[Skyna]

Re : vba insersion de données ligne par ligne

Ho là là!!! bien vu!! Merci beaucoup, je n'avais pas vu cette erreur....
Merci et je reviendrai surement pour d'autres problèmes dans pas longtemps comme des recherches v dans des userform