écrire dans une feuille excell

[isis1be]

Salut à tous

J'ai créé une userform sous excell avec des textbox des combobox et des option button et je doit envoyer dans une feuille excel des donnée insérée dans ma userform mais le problème c'est qu'il existe déja des données dans ma feuille.
Donc je doit savoir qu'elle est la dernière cellule vide et écrire toutes les données de ma userform (nom, prénom, adresse...) colonne par colonne nom dans la colonne c prénom dans la d et ainsi de suite.

je sais déja un début de code

Sub test()
Set r = Range("A1:A9")
For n = 1 To r.Rows.Count
If r.Cells(n, 1) = vide Then
MsgBox "Cellule vide en " & r.Cells(n, 1).Address
End If
Next n

End Sub

Mais je ne veut pas avoir une message box mais bien écrire les données dans ma feuille donc comment faire?
Je vous remercie d'avance et à très bientôt.

 

[job75]

Re : écrire dans une feuille excell

Bonjour isis1be,

Ce code entre la valeur "toto" dans la dernière cellule vide de la plage A1:A9, et la valeur "titi" dans la cellule à droite :

Sub test()
Dim cel As Range, ref As Range
For Each cel In Range("A1:A9")
If IsEmpty(cel) Then Set ref = cel
Next
If Not ref Is Nothing Then
ref = "toto"
ref.Offset(, 1) = "titi"
End If
End Sub

A+