VB formulaire intégrer des données dans feuil Résolu

Question

Bonjour,
Je souhaiterai créer un formulaire qui une fois que jai selectionner par un simple clique (range("A1").Select)
j'ouvre mon formulaire avec 1 raccourci, et les données que jentre dans les différents textboxs, s'incrémentent dans A1 pour textbox1, B1 pour le texbox2 etc... jusqu'a Z.
Pareil si je selectionne la cellule A34, incrémentation dans B34 etc...

Merci de m'aider !

Polux31 · Answer

Bonjour,

Voilà un exemple qui récupère le numéro de la ligne quand on clique dans une cellule.

Dans cet exemple on travaille sur la feuille 1 et le formulaire s'ouvre quand on clique sur une cellule de colonne A.
Sur le formulaire il y a un bouton nommé "cmdValider" et les TextBoxes.
On a un UserForm1 (formulaire) et un module (module1) :

Dans l'éditeur VB de la feuille 1 :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 1 Then
        Module1.setNumLig (Target.Row)
        UserForm1.Show
    End If

End Sub

Dans le module1 :
Private numLig As Long

Public Sub setNumLig(ByVal str As Long)
    numLig = str
End Sub

Public Function getNumLig() As Long
    getNumLig = numLig
End Function

Public Sub Valider()

    Sheets(1).Range("B" & numLig).Value = UserForm1.TextBox1.Text
    Sheets(1).Range("C" & numLig).Value = UserForm1.TextBox2.Text
    '....
    
End Sub

Dans le UserForm1 :
Private Sub cmdValider_Click()
    Module1.Valider
End Sub

Voilà, tu dois pouvoir y arriver avec ça.

Bon courage.

;o)

florette59 · Answer

Cest exactement ce qu'il me fallait ! Merci Polux31.

VB formulaire intégrer des données dans feuil

2 réponses

Discussions similaires

Newsletters