Problème de programmation userform

[roma93]

Bonjour à tous,

je cherche à programmer un userform simple afin de saisir des données.

(le fichier est en pièce jointe).

je recherche donc que lorsque je click sur le "bouton1" de la feuille acceuil il s'ouvre une fênetre (que j'ai deja créee dans basic) afin de saisir un nom et qu'il vienne se ranger dans la feuille BDD à partir de (A;49) puis (A;50) pour le second et ainsi de suite.

Pourriez vous m'aidez !!! ???

Je suis sur que la procédure est simple mais la partie programmation me bloque.

Cordialement, et bonne journée à tous.

 

[kjin]

Re : Problème de programmation userform

Bonjour,

Private Sub CommandButton1_Click()
Dim dl#
With Feuil15 'BDD
    dl = .Range("A65000").End(xlUp).Row 'dernière ligne
    .Cells(dl + 1, 1) = TextBox1
End With
TextBox1 = ""
'Unload me
End Sub

A+
kjin

 

[roma93]

Re : Problème de programmation userform

merci bcp super !!!!!


Bon dimanche

 

[camarchepas]

Re : Problème de programmation userform

Bonjour roma93,

Alors là , du bénévolat pour les services d'urgences , je court de suite

voici

PS : Bonjour kjin
juste controle anti doublon en plus et déjà intégré dans l'appli