Discussion :

[lemonette59]

Bonjour,

Je souhaite développer sur VBA - Excel un programme qui me permet de poser des questions (Inputbox) et de les voir s'afficher dans l'interface utilisateur d'excel

Afin de mieux présenter ma demande voici le code pré-établi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub CommandButton1_Click()
 
'Déclaration des variables
Dim description As String
Dim temps As Integer
Dim remarque As String
Dim marchearret As Boolean
Dim question_marchearret As String
 
description = InputBox("Décrivez l'opération")              'demande la description de l'opération
temps = InputBox("combien de temps dure l'opération ?")     'demande le temps de l'opération
remarque = InputBox("Avez-vous une remarque ?")             'demande si remarque
marchearret = False
question_marchearret = InputBox("L'opération est-elle machine en marche ou machine à l'arrêt ?")    'demande si en marche ou à l'arrêt
 
If question_marchearret = "oui" Then
 
    marchearret = True
 
    Else
 
    marchearret = False
 
End If
 
End Sub

Je souhaiterais maintenant prendre mes variables et les insérer dans la feuille de calcul excel néanmoins je ne connais pas le code pour.

De même je souhaite qu'à chaque clique sur mon commandbutton, les données s'insèrent avec un décallage de colonne et pas toujours dans la même colonne.

Merci de votre attention,
lemonette59

[Fanfan2A]

Bonjour.

Pour info, concernant ta demande qui est de niveau basique, il existe d'excellents tutoriaux à consulter sur ce site !

Pour résumer sommairement :
- soit la variable MaVariable
1/

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1")=MaVariable

la valeur de MaVariable dans la cellule A1 de la feuille active.

2/

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WorkSheets(2).Range("A1")=MaVariable

la valeur de MaVariable dans la cellule A1 de la feuille n°2 du classeur.

3/

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WorkSheets("Ma Feuille").Cells(Lig,Col)=MaVariable

la valeur de MaVariable dans la cellule dont les coordonnées sont Lig et Col (variables entières contenant les numéros de ligne et colonne) de la feuille nommée "Ma Feuille"

Remarque: Il serait peut-être souhaitable de poser comme question "Si vous avez une remarque, merci de l'indiquer" plutôt que "Avez-vous une remarque" car la réponse sera dans 99% des cas "OUI"...

Remarque n°2: dans ton test le "else marchearret=False" est inutile puisque tu l'as déja initialisée juste avant (VBA le fait automatiquement dès la déclaration de la variable). Il faut simplifier le code!


En espérant t'avoir aidé.
Cdlt

[lemonette59]

Merci bien, en effet cela m'est utile et je vais voir pour le reste du code.

Pour les tutoriels j'ai tenté de les lire mais devant la montagne de pages, je me suis résigné à poser ma question directement... Je les lirais en cours du soir :p

Lemonette59