Remplir un tableau avec UserForm

[Amo]

Bonjour à tous, j'ai mis l'explication dans le fichier joint.
Je vous remercie d'avance pour votre aide.
Amo. [file name=formulaire.zip size=10495]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/formulaire.zip[/file]

 

[Gérard DEZAMIS]

Bonjour Amo

Chez Casto ' y a tout s'qui faut'

ici aussi !
Fais une recherche avec


'USF-Rudiments-Basic.zip' dans les archives et tu verras du boulot extra comme sait le faire notre Thierry spécial course XLD ....


Bon courage
@+ GD

 

[Gérard DEZAMIS]

Nouveau ici ?
Courtoisie et charte respectée
Très Bien
Tiens pour la peine ...

Cordialement
@+ GD [file name=USFRudimentsBasicPourAmo.zip size=23235]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/USFRudimentsBasicPourAmo.zip[/file]

 

[WILFRIED]

Salut amo,


Voici ton fichier réaliser.

A+ [file name=formulaire_20050915152736.zip size=10543]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/formulaire_20050915152736.zip[/file]



Arf Salut Gérard T'est encore plus rapide que moi...LOL

A+

Message édité par: WILFRIED, à: 15/09/2005 15:28

 

[Gérard DEZAMIS]

Salut Wilfried
Ce n'est pas un coup de main que tu donnes à Amo mais une grosse bourrade !

Ce n'est pas une piste que tu lui donnes mais tu lui construit une autoroute !

J'espère qu'il aura la curiosité d'aller voir 'l'intérieur de la bête' avec la VBE

Très bien ta petite protection pour éviter une saisie hâtive et incomplète des données.

Cordialement

@+ GD

 

[WILFRIED]

Salut GD


En faite j'ai déjà eu ce genre de réalisation à faire il y à un peu plus d'un ans, je n'est fais qu'un copier / coller / modifier.

J'espére aussi qu'il va aller voir histoire de comprendre un peu le code pour pouvoir l'utilisé correctement...


Je n'est pas mis la protection contre la saisie de l'age en lettre...

A+

 

[Amo]

Je n'ai rien d'autre à vous dire si ce n'est que de vous remercier pour votre efficacité et votre rapidité.
Merci encore et bonne fin d'aprés midi.
Amo.

 

[_Thierry]

Bonsoir Gérard, Wilfried, Amo, le Forum

Wilfried pour chaque lettre en Rouge, à Lyon ce sera une bière

Dim i As Integer
Private Sub Bt_ajouter_Click()
If Txt_nm.Text <> '' And txt_prnm.Text <> '' And txt_age.Text <> '' Then
Range('B65536').End(xlUp).Offset(1, 0).Select
For i = 0 To 2
Select Case i
Case 0
ActiveCell.Value = Txt_nm.Text
Case 1
ActiveCell.Value = txt_prnm.Text
Case 2
ActiveCell.Value = txt_age.Text
End Select
ActiveCell.Offset(0, 1).Select
Next i
Else
MsgBox UCase('vous devez entrer un nom, un prenom et un age pour pouvoir ajouter une entrer')
Exit Sub
End If
End Sub

Private Sub BT_quitter_Click()
End
End Sub

Private Sub UserForm_Click()
Txt_nm.Text = ''
txt_prnm.Text = ''
txt_age.Text = ''
End Sub



Bonne nuit

T'inquiètes de la pression suffira pas de la Duvel quoique c'est un meilleur investissement que France Télécom d'après un très bon pote Belge !

[ol]@+Thierry[/ol]

PS Merci Gérard au fait pour les 'special course'