Discussion :

[Transitoire]

Bonjour le forum,
Toujours sur une recherche d'amélioration de mon code et de ma manière de travailler. Pour entrer des données dans une listbox1 d'un Userform1 (4 colonnes), Je désire charger une nouvelle ligne mais sans passer par la feuille de calcul(ça je sais faire). Est-ce possible? J'ai sur le UF1, 4 Textboxs et je désirerais après validation d'un commandButton, pouvoir transférer les données des TB dans la dite liste. je ne sais pas si c'est très clair? Disons que TB1 Transmettra la valeur de la ligne1 colonne1, TB2 transmettra la valeur de la ligne1 colonne2 etc.
Ce que je ne sais pas faire, c'est entrer de manière séquentielles les 4 données de la ligne????????
Jusqu'a présent, je travaille directement sur la feuille de calcul avec des Onkeys etc . Maintenant je voudrais travailler sur mon UserForm uniquement afin de ne transférer en BDdata à la fin, que le total des choses éffectuées.

Cordialement

[omrsmiloud]

bonjour
d'une maniere plus basique :

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
 
        Me.ListBox1.AddItem Me.TB1
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Me.TB2
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Me.TB3
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Me.TB4
End Sub

[Transitoire]

Bonsoir, Je ne dirai qu'un seul mot "BRAVO" et encore merci.
Je l'ai adapté à mon code et ça marche super
Cordialement

[patricktoulon]

bonjour transitoire
et pour en simplifier l'ecriture

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub CommandButton1_Click()
dim x as long.
         With Me.ListBox1
         AddItem Me.TB1: x = .ListCount - 1
        .List(x, 1) = Me.TB2
        .List(x, 2) = Me.TB3
        .List(x, 3) = Me.TB4
    End With
End Sub

[Transitoire]

Bonsoir Patrick,
ça marche impec aussi !
Merci
A+
Cordialement

[omrsmiloud]

je ne peut que m'incliner devant notre "Pro" Patrick