Private Sub ListBox1_Change() With ListBox1 [j10] = .List(.ListIndex, 0) [k10] = .List(.ListIndex, 1) [l10] = .List(.ListIndex, 2) End With End Sub
'lSteph "Hicham Oudrhiri" a écrit dans le message de news:
Bonsoir à tous J'ai une listbox avec trois columns. je voudrais copier le contenu de la listbox vers une feuille . merci de votre aide H
lSteph
..j'oubliais en colonne 3 c'est un prix donc adapter l'exemple:
Private Sub ListBox1_Change() With ListBox1 [j10] = .List(.ListIndex, 0) [k10] = .List(.ListIndex, 1) [l10].FormulaLocal = .List(.ListIndex, 2) End With End Sub
'lSteph
"Hicham Oudrhiri" a écrit dans le message de news:
Bonsoir à tous J'ai une listbox avec trois columns. je voudrais copier le contenu de la listbox vers une feuille . merci de votre aide H
..j'oubliais en colonne 3 c'est un prix donc adapter l'exemple:
Private Sub ListBox1_Change()
With ListBox1
[j10] = .List(.ListIndex, 0)
[k10] = .List(.ListIndex, 1)
[l10].FormulaLocal = .List(.ListIndex, 2)
End With
End Sub
'lSteph
"Hicham Oudrhiri" <hichamoudrhiri@yahoo.fr> a écrit dans le message de news:
edFHk4kZGHA.3532@TK2MSFTNGP05.phx.gbl...
Bonsoir à tous
J'ai une listbox avec trois columns. je voudrais copier le contenu de la
listbox vers une feuille .
merci de votre aide H
..j'oubliais en colonne 3 c'est un prix donc adapter l'exemple:
Private Sub ListBox1_Change() With ListBox1 [j10] = .List(.ListIndex, 0) [k10] = .List(.ListIndex, 1) [l10].FormulaLocal = .List(.ListIndex, 2) End With End Sub
'lSteph
"Hicham Oudrhiri" a écrit dans le message de news:
Bonsoir à tous J'ai une listbox avec trois columns. je voudrais copier le contenu de la listbox vers une feuille . merci de votre aide H