Insérer la valeur d'une variable dans une cellule (VBA Excel)

Yop,

Petite question assez bête, mais je n arrive pas a trouver la solution..

J ai créé pour m entrainer une fonction VBA qui demande via une InputBox le nom, prénom, adresse, etc d'un membre.

J'aimerais par la suite que la fonction VBA mette la valeur de ce que je viens d entrer dans des cellules de mon classeur Excel actif.

J ai codé:

Sub AjouterMembre()
Dim Nouveau As Membre
With Nouveau
.Prénom = InputBox("Entrez le prénom :")
.Nom = InputBox("Entrez le nom :")
.Adresse = InputBox("Entrez l'adresse :")
.Téléphone = InputBox("Entrez le téléphone :")
End With
ActiveCell.Offset(0, 0).Text = Nouveau.Prénom
ActiveCell.Offset(1, 0).Text = Nouveau.Nom
ActiveCell.Offset(2, 0).Text = Nouveau.Adresse
ActiveCell.Offset(3, 0).Text = Nouveau.Téléphone
End Sub


Mais ca ne fonctionne pas :/ Quelqu un pourrait m aider?

Thanks

Bon j ai trouvé, faut dabord a chaque fois selectionner la celulle..

ActiveCell.Offset(0, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = Nouveau.Prénom
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = Nouveau.Nom
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = Nouveau.Adresse
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = Nouveau.Téléphone

Tout redondant mais bon, pas trouvé mieux pour l instant

Vous pouvez supprimer/lock