Lien commande sur feuille et userform

Version imprimable

13/05/2013, 21h48
heinejb

Lien commande sur feuille et userform

Bonjour à tous,

Je débute en VBA, et je bloque depuis quelque temps sur le point suivant:

J'ai une feuille excel avec des boutons sur chaque ligne de la feuille. Ce bouton permet d'ouvrir un userform pour la saisie de donnée. Je souhaite garder cette configuration des boutons sur chaque ligne pour modifier plus facilement les données une fois saisies une première fois.

Donc dans la logique lorsque je sélectionne ce bouton, celui-ci doit être capable de donner l'information de la ligne a la variable présente dans le userform pour que les données saisies soient dans la bonne ligne.
En espérant que l'on m'a compris ;)

Car je ne vois pas du tout comment coder cela...:(
14/05/2013, 00h45
jijie

Bonsoir,

Je ne sais pas si cela te va!?

double clique sur une ligne !

Cordialement,

Code:

1
2
3
4
 
'Dans le Userform1
Option Explicit
Public LaLigne As Long

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
'Dans le module de classe "Classe1"
 
Public WithEvents GrLignes As MSForms.CommandButton
 
Private Sub GrLignes_Click()
 
    Call OuvrirUserform1(GrLignes)
 
End Sub
 
Sub OuvrirUserform1(obj)
 
    LigneHaut = Range(GrLignes.TopLeftCell.Address).Row
    LigneBas = Range(GrLignes.BottomRightCell.Address).Row
    If LigneHaut <> LigneBas Then
        MsgBox "Ajuste la position du bouton [" & GrLignes.Caption & "] [" & GrLignes.Name & "] "
    End If
 
    UserForm1.LaLigne = LigneBas
    UserForm1.Label1.Caption = LigneBas
    UserForm1.TextBox1.Text = Worksheets("Feuil1").Cells(LigneBas, 1).Value
    UserForm1.Show vbModeless
End Sub

Code:

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
 
'Dans le code de la Feuille
Option Explicit
 
Dim Bouton() As New Classe1 'Le module de classe s'appelle Classe1. C'est lui qui contient les procedures
 
Sub Initialise__Les_Boutons()
 
    Dim Nb As Integer, oB As OLEObject
    For Each oB In Feuil1.OLEObjects
        If TypeName(oB.Object) = "CommandButton" Then
            Nb = Nb + 1
            ReDim Preserve Bouton(1 To Nb)
            Set Bouton(Nb).GrLignes = oB.Object
        End If
    Next
 
End Sub
 
Private Sub Worksheet_Activate()
    Initialise__Les_Boutons
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Initialise__Les_Boutons
End Sub

14/05/2013, 16h42
heinejb

:) merci infiniment Docmarti, ton code marche parfaitement, et répond tout a fait à ma requête! C'est assez impressionnant je n'y serais jamais arrivé seul.:ccool:

Cependant je n'arrive pas a finir mon idée par moi même, en effet j'ai plusieurs combobox sur mon userform et je souhaiterai que les valeurs choisies dans le combobox s'inscrive sur la même ligne que le bouton sélectionné.

Par exemple si je clique sur le bouton 3 se trouvant sur la troisième ligne, le userform s'ouvre, je choisi l'item que je veux dans le combobox, une fois sélectionné celui ci doit s'inscrire en ligne 3(donc doit utiliser la variable ligneBas), colonne "B".

J'ai testé différentes méthodes aucune marchant...

D'avance merci!

Utilise la variable LaLigne dans Cells(LaLigne, "B").formula.
Car la variable Laligne dans le Userform a recu la valeur de LigneBas grâce à
UserForm1.LaLigne = LigneBas
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub ComboBox1_Click() Dim valeur As String valeur = ComboBox1.List(ComboBox1.ListIndex) If LaLigne > 0 Then ThisWorkbook.Worksheets("Feuil1").Cells(LaLigne, "B").Formula = valeur End If End Sub