Ajouter 1 mot dans ma feuille BDD via USF ou inputbox

Bonjour toutes et tous

Depuis hier, je me heurte à un petit souci soit par inputbox ou par usf: grrr

Je souhaiterai si possible :

-sur ma feuille BDD le bouton de commande 1 ActiveX, ouvre l'usf1 (çà ok) mais, dans la textbox1 que l'on puisse ajouter un mot de 7 lettres' en cliquant sur le bouton Go de l'Usf1 et celui-ci se mettrait automatiquement en fin de colonne A

ou bien

-toujours sur ma feuille BDD en utilisant le bouton de commande ' CmdAJOUTligne' via Inputbox (j'ai commencé mis en commentaire dans le code mais, je me suis pommé)

merci d'avance à celles ou ceux qui pencheront sur mon classeur ci-joint

crdlt,

André

ztestaaaa
12melanger-v5.xlsm (89.19 Ko)

Bonjour,

Un essai ... sans le trie des mots ...

ric

Re,

Je te remercies super cela me convient à merveille Merciiiiiiiiiiii

il ne me reste plus qu'à faire du nettoyage dans les modules

ric

Bonjour,

Pas sûr d'avoir bien compris ta demande

Voici le code que je t'ai pondu de ce que j'ai compris ! A mettre dans le module du formulaire :

Private Sub CommandButton2_Click()

    Dim Lig As Long

    If Len(TextBox2.Text) <> 7 Then MsgBox "Le mot doit comporter 7 lettres !": Exit Sub

    With Worksheets("BDD")

        Lig = .Cells(2, 1).End(xlDown).Row 'sur colonne A
        .Cells(Lig + 1, 1).Value = UCase(TextBox2.Text)
        TextBox1.Text = TextBox1.Text & vbCrLf & UCase(TextBox2.Text)

    End With

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Select Case KeyAscii

        Case 65 To 97, 97 To 122, 224 To 226, 228, 231 To 235, 238, 239, 244, 246, 249, 251, 252

        Case Else: KeyAscii = 0

    End Select

End Sub

Merci Thèze, tu as très bien compris

j'adapte les 2 codes, merci pour le TextBox2_KeyPress

Un grand merci pour votre aide

crdlt,

André

Bonjour,

Content de t'avoir aidé

Rechercher des sujets similaires à "ajouter mot feuille bdd via usf inputbox"