Discussion :

[MartinTK]

Bonjour,
J'ai créé un formulaire permettant de charger les données d'une feuille excel. Les données en question s'organisent en ligne en fonction de plusieurs critères (colonnes). Je charge dans mon formulaire les données en utilisant une combobox avec le code 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 ComboBox1_Click()
    Dim cl As Range
    Dim n As Integer
    Set cl = Worksheets("LiftInfo").Range("AF2:AF65536").Find(UsfEditLiftInformation.ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False)
 
    'If value is found
    If Not cl Is Nothing And Not IsEmpty(cl) Then
        n = cl.Row
    UsfEditLiftInformation.CboLiftInfo.Value = Sheets("LiftInfo").Cells(n, "A").Value
    UsfEditLiftInformation.TextBox1.Value = Sheets("LiftInfo").Cells(n, "B").Value
        UsfEditLiftInformation.TextBox25.Value = Sheets("LiftInfo").Cells(n, "C").Value
                                                      .
                                                      .
                                                      .
End If
 
End Sub

Ainsi toutes les données de la ligne correspondant à la valeur de ma combobox sont chargées dans le formulaire dans différentes combo et textbox.

Ce que je voudrais pouvoir faire maintenant c'est : avoir la possibilité de modifier les valeurs des textbox et combobox du formulaire et les exporter sur une nouvelle ligne de la feuille.

Lorsqu'il n'était question que d'un simple formulaire d'entrée, je procédais de la manière suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton3_Click()
 
    Dim ctrl As Control                      'transfer data from userform to excel sheet "Projects"
    Dim r As Integer
    Dim derligne As Integer
 
        With Worksheets("LiftInfo")
            derligne = .Range("A65536").End(xlUp).Row + 1
            For Each ctrl In UsfLiftInformation.Controls
            r = Val(ctrl.Tag)
            If r > 0 And r < 31 Then Feuil12.Cells(derligne, r) = ctrl
            Next
        End With
End sub

Cependant cette commande ne semble désormais plus fonctionner... Quelqu'un aurait-il une petite idée sur la manière de procéder pour résoudre ce problème ?

En vous remerciant !

[Daniel.C]

Bonjour,

Cependant cette commande ne semble désormais plus fonctionner...

Il ne se passe rien ou tu as une erreur ? Est-ce que les tags sont renseignés ? Est-ce que ton séparateur décimal est le point ? "Val" ne fonctionne qu'avec ce séparateur. Sinon utilise "CInt" à la place.

[MartinTK]

Bonjour Daniel,

Il ne se passe rien, les valeurs des textbox/combobox ne sont pas transférées sur la feuille. Les tags sont pourtant bien renseignés. Je vais vérifier pour Val mais jusqu'à maintenant je n'ai pas eu de soucis avec (merci en tt cas pour l'info sur "CInt" !).

Cordialement,

Martin