Discussion :

[spookyz]

Bonjour j'aimerai si une personne peut m'aider cree une boite de dialogue avec une liste (combobox ou listbox??)
vierge dans laquelle lorsque la boite est ouverte je tape un texte dans la liste(vierge)et ce texte s'inscrit dans une cellule je referme la boite et lorsque que je recommence le prochain texte s'inscrit dans la cellule sous le precedent et ainssi de suite
voila je sais pas si c'est tres clair mais merci d'avance

[SilkyRoad]

bonsoir


j'espère que ces liens pourront t'aider

Utiliser les UserForm en VBA Excel

Utiliser les contrôles dans un UserForm
(D'après la description de ton message, utilise plutot le controle TextBox)

Comment retrouver les numéros des dernières lignes et dernières colonnes renseignées dans une feuille ?



bonne soirée
michel

[Bigalo]

Bonjour,

Voici 3 contrôles différents que l’on peut utiliser pour entrer du texte dans une boite de dialogue un UserForm) :

1. Un TextBox est une zone de saisie destinée à l'entrée de texte.
2. Un ListBox permet d'effectuer un choix à partir des éléments d'une liste.
3. Un ComboBox combine les 2 contrôles précédents en permettant le choix dans une liste, ou la saisie d'un texte absent de la liste.

A priori, un TextBox suffit dans ton cas, car une liste vierge n'apporte aucune fonctionnalité supplémentaire.

Tu pourrais même te contenter d'un InputBox (pas de UserForm), mais personnellement, c’est une technique que je déconseille

Quant au report avec une ligne de décalage, 2 options sont possibles :

1. Donner un nom à la cellule où reporter la première information saisie, "RéceptionDonnées" par exemple, et dans le traitement reportant le texte saisi, mettre à jour la référence associée au nom en la décalant d’une cellule vers le bas.
2. Utiliser la propriété End de l'objet Range, pour repérer la dernière ligne non vide de la colonne où reporter le texte.

Pour illustrer les 2 techniques, j'ai créé un classeur avec un bouton qui affiche 1 UserForm avec 2 TextBoxes, TNom et TPrenom, et 2 CommandButtons, BOK et BAnnuler.

Un clic sur BOK déclenche un contrôle de saisie, et si les 2 TextBoxes contiennent tous les 2 quelque chose, le report du nom et du prénom, avec un décalage d'une ligne à chaque fois.

Pour le report du nom, j'ai utilsé la première option :

Code :

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

1
2
3
4
5
6
Private Sub ReportNom()
    With FData.Range("RéceptionDonnées")
        .Value = TNom
        .Parent.Names.Add "RéceptionDonnées", .Offset(1)
    End With
End Sub

La faiblesse de ce système est que si quelqu’un supprime la ligne contenant la cellule nommée "RéceptionDonnées", la macro plante. Plusieurs solutions sont possibles, heureusement, pour traiter ce problème.

Le prénom est reporté en utilisant la seconde option :

Code :

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

1
2
3
4
5
Private Sub ReportPrenom()
Dim DerLigne As Long
    DerLigne = Range("B65536").End(xlUp).Row
    Range("B" & DerLigne + 1) = TPrenom
End Sub

Ce code est plus concis, mais plus difficile à comprendre.

Tu trouveras le classeur de test en pièce jointe. Si tu as besoin d'un complément d'info, n'hésite pas.

Cordialement,

Michel Gaboly