creer une fenetre de saisie sous excel Fermé

Question

Bonjour,
Quelqu'un pourrait t-il me donner la démarche a suivre pour creer une fenetre de saisie sous excel afin de pouvoir rentrer des valeurs: par exemple la fenetre me demandrait fruit? et je pourrais rentrer banane cela pour plusieurs catégorie (fruit,prix,quantité) et que mes réponses soit rangé dans un tableau merci d'avance

Polux31 · Accepted Answer

Il faut rajouter ceci dans la procédure Sub CommanButton1_Click():

Dim lastRow As Integer    
lastRow = ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp).Row
Le code devient celui là dans mon exemple du post 1:
Private Sub CommandButton1_Click()
Dim lastRow As Long

    lastRow = ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp).Row
    ThisWorkbook.Worksheets(1).Range("A" & lastRow + 1).Value = TextBox1.Text
    ThisWorkbook.Worksheets(1).Range("B" & lastRow + 1).Value = TextBox2.Text

End Sub

Polux31 · Answer

Bonjour,

Il faut passer par l'éditeur Visaul Basic (Alt + F11), insérer un UserForm (Insertion -> UserForm).

Avec la boite à outils, placer un ou plusieurs TextBox et un CommandButton.

Double click sur le bouton pour arriver sur le module du UserForm. Il doit apparaître ça:

Private Sub CommandButton1_Click()

End Sub

Il suffit d'insérer entre ces 2 lignes le code correspondant :
    ThisWorkbook.Worksheets(1).Range("A1").Value = TextBox1.Text
    ThisWorkbook.Worksheets(1).Range("A2").Value = TextBox2.Text

Tu dois avoir ça :
Private Sub CommandButton1_Click()
    ThisWorkbook.Worksheets(1).Range("A1").Value = TextBox1.Text
    ThisWorkbook.Worksheets(1).Range("A2").Value = TextBox2.Text
End Sub

;o)

yoshino · Answer

ok merci deja pour ca et aprés comment enregistrer ce que t'a fais pour pouvoir le lancer danexcel
dsl je suis une bille pour ca!!!

m@rina · Answer

Bonjour 

Et la fonction Formulaire ne te suffirait pas ?

Tu crées le tableau et tu cliques à l'intérieur : Menu Données, Formulaire.

m@rina

yoshino · Answer

hélas non
mais merci quand meme m@rina
polux31 j'atends avec impatience ta réponse si tu c

Polux31 · Answer

UserForm1.Show est la commande VBA pour ouvrir le formulaire.

Je ne sais pas ce que tu comptes faire exactement.

Veux-tu que le formulaire se lance à l'ouverture du classeur ou bien en cliquant sur un bouton (dans la barre de menu ? sur la feuille Excel ?) etc ...

yoshino · Answer

j'aimerais si possible qu'il s'ouvre à l'ouverture de mon fichier excel

Polux31 · Answer

Toujours dans l'éditeur VB, double click sur ThisWorkbook pour ouvrir le module. Dans la liste déroulante (Général), sélectionne Workbook, tu vas voir ça :
Private Sub Workbook_Open()

End Sub
Tu insères UserForm1.Show entre les 2 lignes pour obtenir ça :
Private Sub Workbook_Open()
   UserForm1.Show 
End Sub
Tu sauvegardes, tu fermes Excel et tu lances le fichier ...

Voilà.

;o)

yoshino · Answer

merci ca marche tré trés bien :)
j'aurais aimé avoir juste encore un petit coup de main (je galère trop)
avec la fenetre que j'affiche je remplis les lignes de mon tableau et j'aimerais savoir une fois que j'ai remplis une ligne passer à celle d'en dessous et ainsi de suite et que lorsque je ferme mon fichier que cela retienne la derniere ligne que j'ai écrite et quand je réouvre mon fichier et que je rentre mes données elles s'inscrive dans la ligne d'en dessous
j'espere avoir été clair merci de ta réponse

yoshino · Answer

c cool t'assures vraiment ya juste un ti truc :
n'est - il pas possible que les caractères qui sont dans les champs de textes de la boite de dialogue s'effacent lorsque l'on clique sur le boutton??

Polux31 · Answer

Oui c'est possible, ça devient ça :
Private Sub CommandButton1_Click()
Dim lastRow As Long

    lastRow = ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp).Row
    ThisWorkbook.Worksheets(1).Range("A" & lastRow + 1).Value = TextBox1.Text
    ThisWorkbook.Worksheets(1).Range("B" & lastRow + 1).Value = TextBox2.Text
    TextBox1.Text = ""
    TextBox2.Text = ""
End Sub

;o)

yoshino · Answer

oki merci comme dab tes conseils marches super bien je te remercies

Polux31 · Answer

De rien,

Bonne continuation.

;o)

yoshino · Answer

bonjour encore une tite chose s'il te plait je sais j'abuse!!
t'aurais pas la ligne de code qui va bien
pour que quand je clique sur le boutton de validation de ma fenetre le cursuer revienne sur le premier champ de texte?
merci

Polux31 · Answer

Bonjour,

Rajoute une ligne juste avant End Sub et colle ça : TextBox1.Setfocus

;o)

yoshino · Answer

trop fort :) ;) merci
si je ferme ma fenetre de saisie et que je veut mettre dans mon classeur une ptite icone qui permet de la réouvrir quels sont tes conseils?
merci d'avance

Polux31 · Answer

Tu as plusieurs possibilités:
- Mettre un bouton sur ta feuille qui permet de lancer le formulaire.
- Ajouter un bouton à ta barre de menu Excel.

La plus simple est de mettre un bouton sur la feuille.
Si ce n'est déjà fait, ajoute le menu Visual Basic à la barre de menu Excel. Tu verras apparaître une icone avec un marteau et une clé en croix. En cliquant dessus tu ouvres la boîte à outils.

Passe en mode création en cliquant sur l'icone représentant une équerre et un crayon. Clique bouton de commande et place le sur ta feuille. Dans la boîte à outils, clique sur Propriétés, l'icone à droite de l'équerre et de la clé. Donne un nom à ton bouton, ex : Name = cmdFormulaire. Double click sur le bouton pour ouvrir l'éditeur de code. Tu dois avoir ça:
Private Sub cmdFormaire_Click()

End Sub

Place ce code entre les 2 lignes : UserForm1.Show
Private Sub cmdFormulaire_Click()
   UserForm1.Show
End Sub

Voilà ...

;o)

yoshino · Answer

merci beaucoup j'abuse de tes services
mais il me faudrait encore un coup de main si tu veux bien
voila avec les données que j'ai rentrée j'ai crée un tableau croisé dynamique
je voudrais récupérer la cellule qui contient le total de mon tableau or vu que celui ci est variable (ajout de ligne et de colonne) je ne sais pas comment m'y prendre. Je voudrais récupérer cette donnée et la placée dans une cellule de mon choix et si possible faire ca quand je clique sur un boutton si tu pe m'aider j'aurais finit merci pour ton aide

Polux31 · Answer

Je ne sais pas comment faire, mais regarde ici : https://excel.developpez.com/faq/index.php?page=Cellule#DerniereLigneNonVide

Peut être qu'en combinant la recherche de la dernière ligne et de la dernière colonne. Je ne connais pas bien Excel et les TCD.

yoshino · Answer

ok pas grave tu m'a deja bien aidé
au hasard t'aurais pas une petite macro qui pourrait creer un tableau croisé dynamique 
voila mes donnes


catégorie nom espece quantité 
fruits pomme golden 3 
fruits melon jaune 2 
legumes courgettes naines 5 
fruits pomme verte 6 
legumes courgettes grandes 4 
legumes salade masche 2 
fruits pomme golden 1 
... ... ... ... 

et j'aimerais avoir un tableau de ce type

catégorie (en choix)
           espece golden jaune naines verte masche total 
nom
pomme               4 0 0 6 0 10 
melon                  0 2 0 0 0 2 
courgettes              0 0 5 0 0 5 
salade                   0 0 0 0 2 2 

total                       4 2 5 6 2 19 
merci

Polux31 · Answer

Dsl, mais comme dit plus haut, je ne connais pas trop bien Excel et encore moins les tableaux croisés dynamiques.

Regarde ici, tu as tout ce qu'il faut pour y arriver : https://excel.developpez.com/faq/index.php?page=TCD#CreationTCDMacro , il n'y a rien de compliqué à l'adapter à ton besoin.

Bon courage.

;o)

yoshino · Answer

oki merci quand meme

yoshino · Answer

bonjour,
Ploux31 j'ai encore besoin de ton aide pour ma fenetre de saisie
il faut que je la modifie
je m'explique il faudrait 3 onglets
pour mon exemple:
un pour la catégorie
un pour l'espece
un pour le nom et la quantité
Pour faciliter la saisie 
Le premier onglet catégorie aurais juste une zone de texte à remplir
Le deuxième également
et le troisième 2 champs de texte à remplir et un boutton de validation
Ce que j'aimerais c'est dans le premier onglet je place une valeur, je passe sur le deuxieme onglet je rentre égalemnt une valeur je passe sur le toisieme onglet je lui rentre les valeurs et j'appuie sur OK ca me place tout ca dans mon tableau de donnée
Une fois que c'est fait il faudrait que les deux premiers onglets gardes leur valeur mais que le troisième les efface pour que puisse en renntrer d'autre et valider à nouveau
Mais il faudrait que je puisse changer la valeur des 2 premiers onglets quand je le souhaite mais qu'a chaque fois que je valide cette valeur se garde
j'esper etre clair

Polux31 · Answer

Bonjour,

Tu veux mettre un contrôle Onglet ou un Multipage sur ta UserForm ?

;o)

yoshino · Answer

Multipage si c'est possible.
Merci

Polux31 · Answer

Tu as déjà tout ce qu'il faut dans les posts précédents pour le faire.

Je ne vois pas où est la difficulté ?

Je veux bien t'aider, mais devoir tout te faire ...

;o)

Polux31 · Answer

Que veux-tu dire par "garder en mémoire" ? Le mieux est de stocker les valeurs dans des cellules et les appeler quand tu en as besoin.

lauraholt · Answer

Hello, 

plus simple par InputBox avec option de mettre le résultat dans une cellule choisie (ici F2) - Sans créer de UserForm.

Sub TexteSaisi()

    Dim Saisie As String
    
    Saisie = InputBox("Texte demandé?", "Titre de la boite")
   
  Range("F2").Select

    ActiveCell.FormulaR1C1 = Saisie

   End Sub

A+
LH

Creer une fenetre de saisie sous excel

28 réponses