ajouter des données via un usf

[Jean]

Bonjour à tous

Dans un premier temps j'ai tapé mes informations (prénom, nom et téléphone dans une feuille). J'ai ensuite créé un usf afin de visualiser les données. Je suis aussi capable de supprimer des données (a partir du usf)

Toutefois, il me reste deux problèmes que je n'arrive pas à comprendre comment je dois le faire.

Comment je fais pour me servir du usf pour enregistrer des nouvelles données.

Merci pour votre aide.


Jean

 

[@+Thierry]

Bonsoir Jean, le Forum

Dans ton UserForm tu ajoutes un CommandButton4 et tu ajoutes ce Code :

Private Sub CommandButton4_Click()
Dim L As Integer

With Sheets("Feuil1")
L = .Range("A65536").End(xlUp).Row + 1

.Range("A" & L) = Me.ComboBox1
.Range("B" & L) = Me.TextBox1
.Range("C" & L) = Me.TextBox2
End With
End Sub

On pourrait aussi ajouter des tests du style
If Me.ComboBox1 <> "" And Me.TextBox1 <> "" And Me.TextBox2 <> "" Then
Pour eviter d'envoyer des valeurs nulles...

Bonne Soirée au Canada !
@+Thierry

 

[Jean]

Bonjour (et merci) Thierry

Bonjour à tous

J'ai encore des problèmes avec mon usf.

1) le ComboPrenom ne veut pas afficher les nouvelles données ?

2) est-ce que l'on peut faire un masque de saisie pour le TextTelephone
ex: (514) 123-4567

Merci pour votre aide


Jean