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

Discussion dans 'Windows' créé par pixandco, 28 Octobre 2012.

  1. Offline
    pixandco Say hello
    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 :)
    pixandco, 28 Octobre 2012
    #1
  2. Offline
    pixandco Say hello
    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
    pixandco, 28 Octobre 2012
    #2