Completer un tableau par un formulaire (sans userForm)

[SqUaB]

Bonjour,

Je débute en Excel et je cherche à remplir un tableau depuis un formulaire de saisie (sur une feuille). J'ai trouvé des exemples sur ce forum qui utilisent des userForm mais je ne préfère pas en utiliser (pour le moment) car je cherche le plus simple à mettre en oeuvre.

Merci d'avance pour votre aide.

SqUaB

 

[vincent]

Bonsoir

Le plus simple pour faire cela consiste à

1 remplir la premier ligne c'est à dire les etiquettes de ton tableau
nom(en cellule a1) pénom(en cellule b1) age(en cellule c1) par exemple

2 ensuite tu selectionnes les cellules (a1 à a3 dans mon exemple)

3 tu vas dans Données>Grille

Et voilà.Attention si tu as déjà des données tu dois tout selectionner.

Bonne nuit

@+Vincent

 

[SqUaB]

Merci pour ta réponse Vincent mais mon formulaire de saisie doit etre une feuille de calcul et donc je ne peux pas utiliser la fonction Grille.

Bonne nuit

 

[vincent]

Re

juste une question que veux tu dire par feuille de calcul ?

@+Vincent

 

[SqUaB]

Ben j'entend feuille de calcul : un worksheet excel 🙂

Ci-joint un classeu excel contenant mais deux feuilles ...
Mon but étant que lorsque j'ai rempli les 3 champs de la feuille 1, que cela créer une nouvelle ligne dans le tableau de la feuille 2 contenant les données saisies dans la feuille 1.

Merci d'avance.

 

[vincent]

Re

Avec un exemple on comprend tout de suite mieux 🙂 .Cependant sans vouloir être un empêcheur de tourner en rond essaye de zippé tes fichiers voir laCharte XLD.Sinon désolé mais sans macro je ne sais pas faire.

Bonne nuit

@+Vincent

 

[Celeda]

Bonjour,

Et pourtant c'est dommage car le Lien supprimé correspond vraiment bien à ce que tu recherches. Il suffit d'enlever une textbox dans le Userform et une ligne de code et changer les couleurs si tu veux plus joli.

en attendant....

Celeda

 

[SqUaB]

Merci Celeda pour ta réponse mais il faut pas que j'utilise de userform.
Donc j'ai ajouté un boutton "Enregistrer" dans ma feuille de saisie et j'ai pris le code source de l'exemple de Romfret mais ca ne fonctionne pas, il me dit "Object Required" :-(

UserForm de Romfret :
Private Sub CommandButton1_Click()

Range("A65536").End(xlUp).Cells(2, 1) = TextBox1
Range("B65536").End(xlUp).Cells(2, 1) = TextBox2
Range("C65536").End(xlUp).Cells(2, 1) = TextBox3
Range("D65536").End(xlUp).Cells(2, 1) = TextBox4

End Sub

Source de mon bouton "Enregistrer" :
Private Sub SaveButton_Click()
Range("A65536").End(xlUp).Cells(2, 1) = Feuil1!D10
Range("B65536").End(xlUp).Cells(2, 1) = Feuil1!D4
Range("C65536").End(xlUp).Cells(2, 1) = Feuil1!D8
End Sub

 

[SqUaB]

QQ'1 à une idée ?

Merci d'avance.

Fred

 

[vincent]

Re le fil, bonjour Celeda

ah bah voilà on y vient aux macros lol !!!!

change le code de ton bouton par celui ci

Private Sub SaveButton_Click()
With Sheets(1)
Range("B65536").End(xlUp).Offset(1, 0) = .Range("d4") 'j'ai toujours mis range("B65536") pour eviter les problèmes de decalage
Range("B65536").End(xlUp).Offset(1, 0) = .Range("d6")
Range("B65536").End(xlUp).Offset(1, 0) = .Range("d8")
End With
end sub

Bonne soirée

@+Vincent

 

[Celeda]

Bonjour,

Merci Vincent.

Celeda

 

[SqUaB]

Grand merci Vincent et Celeda .... c'est exactement ce que j'avais besoin.

A+

Fred