Discussion :

[beebe]

bonjour tout le monde!

Je suis en train de créer un fichier dans le quel j'aimerais me servir d'une boite de dialogue pour automatiser la saisie.
dans cette boite j'ai 2 zones d'édition de texte et 3 listes déroulante.
Quand on click sur OK je voudrais que les données rentrées soient copier dans la dernière ligne d'une des feuilles...

si vous pouvez faire un miracle pour moi...

[fring]

Bonjour et bienvenue sur le forum,

Ce que tu appelles "faire des miracles" veut dire "faire mon boulot"...!
Ce n'est pas vraiment le but du forum, on peut bien sûr t'aider à faire quelques retouches mais pas repeindre entièrement la pièce.

Le tuto que je te met en lien ci-dessous explique comment utiliser les contrôles dans un userform, commence par là, cela devrait déjà te permettre d'y voir plus clair et de comprendre le fonctionnement.

Utiliser les contrôles dans un UserForm

Pour trouver la première ligne vide de la colonne A par exemple :

Code :

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

Range("A65535").End(xlUp).Offset(1, 0)

.

[beebe]

et oui chacun son boulot!
nan mais quand je dit miracle ça veut dire un coup de main quoi.
Pour ce morceau de code je l'avais vu traîner...

Le code que j'ai essayer de faire pour le premier TextBox est le suivant:

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
Private Sub CommandButton1_Click()
 
Sheets("Liste projets").Select
 
ActiveCell.SpecialCells(xlLastCell).Select
    Selection.End(xlDown).Select
    Selection.End(xlToLeft).Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
 
        If Me.Controls("TextBox1").Value = "" Then Me.Controls("TextBox1").SetFocus: Exit Sub
        ActiveCell.Offset(0, 1).Range("A1").Select
        A1.Value = Me.Controls("TextBox1").Value
 
 
Unload Me
End Sub

Je ne sais pas trop ce qu'il se passe mais il bloque sur la ligne:

Code :

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

A1.Value = Me.controls("TextBox1").Value

je me suis inspiré de morceaux de codes que j'ai trouver mais j'ai un problème pour appeler le contenu des TextBox

En Tout cas merci je vais jeter un coup d'oeil sur les controles de userform

à plus
BIBI

[fring]

Voilà qui est mieux, là on a une base

Ca bug pour la raison suivante --> A1.Value
Il y a plusieurs possibilités de faire référence à la cellule A1 :
Range("A1") ou Cells(1, 1) ou [A1]

Pour le reste du code, disons qu'il y a moyen de faire plus propre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
 
If Me.Textbox1.Value = "" Then
    MsgBox "veuillez compléter la zone de saisie"
    Me.Textbox1.SetFocus
    Exit Sub
End If
 
Sheets("Liste projets").Range("A65535").End(xlUp).Offset(1, 0) = Me.Textbox1.Value
 
Unload Me
End Sub

[beebe]

nickel!

juste deux petites questions (en attendant le prochain gros problème...)

-à quoi sert le code "Me."... et comment ça marche exactement?
-est ce qu'en procédant de la même manière j'arriverai à afficher le contenu d'une liste déroulante?

merci encore

BIBI

[fring]

Vu que le contrôle (bouton, textbox, listbox, etc...) se trouve sur le userform et que l'on écrit le code, non pas dans un module, mais dans l'objet userform lui même, on peut remplacer UserForm1.TextBox1 par Me.TextBox1 et c'est valable pour tous types de contrôles.
Si on fait référence au contenu de la TextBox depuis une macro insérée dans un module, dans ce cas il faut spécifier le UserForm1

Pour afficher le contenu de la ListBox (zone de liste) ou ComboBox (liste déroulante) regarde dans le tuto, tu devrais y trouver les explications

[beebe]

merci!

[AlainTech]

Si ce problème est résolu, veux-tu bien cliquer sur le bouton , en bas de discussion?

Merci