Formulaire à problèmes!

Question

Bonjour,
j'ai un probl&#232;me avec Exel et mon VBA.  Je vais bien&#244;t faire mon aniversaire et j'ai fais un formulaire pour une liste d'invit&#233;s. Malheureusement j'ai 2 probl&#232;mes:

# Lorsque je remplit un formulaire, &#231;a se met dans la derni&#232;re ligne de la feuille exel!
# Lorsque je veux entrer les donn&#233;es pour un nouvel invit&#233;, &#231;a &#233;crit par dessus le 1er.

Voici mes codes:

Sub Saisie()
Range("B2").Select: Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("B1").Select
With FrmSaisie
.Show
End With
End Sub

ET

Private Sub BtnAnnuler_Click()
Unload Me
End Sub


Private Sub BtnOk_Click()
While Not IsNumeric(TxtAge)
TxtAge = InputBox("Veuillez mettre une valeur num&#233;rique et ne pas mettre le mot &#226;ge")
Wend
With ActiveCell
.Offset(0, 0).Value = UCase(TxtNom)
.Offset(0, 1).Value = TxtPrenom
If OptHomme Then
.Offset(0, 2).Value = "Mec"
Else
.Offset(0, 2).Value = "Miss"
End If
If OptPeu Then
.Offset(0, 5).Value = "OUI !"
Else
.Offset(0, 5).Value = "non..."
End If
.Offset(0, 3).Value = TxtAge
.Offset(0, 4).Value = TxtNatel
End With
Unload Me
End Sub

Pourriez vous m'aider? Merci d&#233;j&#224;

@+ Hurnac

asecher · Answer

Bonjour,

Je ne suis pas un ferru de VBA/Excel mais  les zones Range("AdresseFixe") ne me paraissent un peu trop fixes..;

Je crois me souvenir qu'il faut passer par la d&#233;claration d'une "base de donn&#233;es" (nommer une zone) et baser son/ses formulaires dessus.

Mais avant d'essayer de trouver son bonheur sur Internet, la recherche sur l'aide en ligne peut faire des miracles.

Mais bon, il y a par exemple http://www.excelabo.net/ qui montre plein de choses sympathiques.

Cordialement,

Alain 31

Formulaire à problèmes!

1 réponse

Discussions similaires