masque de saisie

Robert

XLDnaute Barbatruc

Repose en paix

• 20 Juin 2005

• #2

Bonjour Annie, bonjour le forum,

J'ai passé un WE de m... au bord d'une piscine à manger de la feijoada alors que j'aurais pu être tranquilement au lit malade... Le sort s'acharne sur moi !

En pièce jointe un fichier vite fait qui devrait te convenir mais que tu devras adapter. [file name=Annie_20050620114747.zip size=9085]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Annie_20050620114747.zip[/file]

 

Pièces jointes

• Annie_20050620114747.zip

  8.9 KB · Affichages: 44

Vote positif 0 Vote négatif

C

Creepy

XLDnaute Accro

• 20 Juin 2005

• #3

Bonjour le Forum, Annie,

Il est difficle de te faire une application 'clef en main'

Ci joint un lien sur une personne que j'ai aidé pour la rélisation d'un questionnaire, qui apparement se rapproche de ce que tu veux.

Je ne connais pas ton niveau en Excel et VBA, mais l'idéal serait que tu fasses deja le maximum de ton coté (formatage des feuilles, userform si tu sais faire, etc...).

Lien supprimé

Regarde le fichier, essaie de l'adapter.

Bon courage.

++

Creepy

 

Vote positif 0 Vote négatif

A

Annie77

Guest

• 20 Juin 2005

• #4

Merci bcp, Robert et Creepy,


Je travaille avec ce que vous m'avez adressé et j'avance bien, je vous en remercie. J'essaye de comprendre en même temps, aussi ,j'aurai encore une question :
ou définie-t-on la destination de la données saisie dans le formulaire (par exemple, si au lieu de Bx, je souhaite pour mettre certaines données en Cz et d'autres Dy) ??


D'avance merci bcp de votre réponse mais déjà, je vous remerice bcp d'avoir répondu si vite à ma première question !

Bonne fin de journée sous cette canicule..

Annie

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 20 Juin 2005

• #5

Bonjour le fil, bonjour le forum,

Annie je ne peux te répondre pour Creepy car je n'ai pas regardé son fichier. Pour le mien le code est :

Private Sub CommandButton1_Click() 'bouton 'Ok'
Dim x As Byte
For x = 1 To 10
Cells(x + 1, 2).Value = Me.Controls('Textbox' & x).Value
Next x
Unload Me 'vide et ferme l'UserForm
End Sub

Cliquez pour agrandir...

et c'est Cells(x+1,2) qui détermine l'adresse. Sachant que la syntaxe est Cells(ligne, colonne). Dans mon exemple, j'ai utilisé une boucle car tu voulais les données les unes en dessous des autres. Tu peux faire aussi un par un du style :

Range('C4').value=TextBox1.Value
Range('G8').value=TextBox2.Value

Cliquez pour agrandir...

etc...

Tu vois, Cells(1,1) = Range('A1'). J'avais utilisé Cells(ligne, colonne) car ça me permettait de faire la boucle...

 

Vote positif 0 Vote négatif

A

Annie77

Guest

• 21 Juin 2005

• #6

Bonjour à toutes et tous,


Merci bcp Robert de ta réponse. Tout fonctionne à merveille désormais et mon projet est terminé....

Merci encore à tous.


Annie 🙂

 

Vote positif 0 Vote négatif