Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Listbox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion apdf1
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

apdf1

XLDnaute Impliqué
Bonjour

Dans mon formulaire j'ai des 10 TextBox et une Listbox comment alimenter ma listbox pour visionner les 10 colonnes de ma feuille et les envoyer vers les textbox.

Voici mon
Code: 
Private Sub ComboBox1_Change()
Dim C As Range
Set C = Cells.Find(what:=Me.ComboBox1.Text, LookIn:=xlValues, lookat:=xlWhole)
Me.TextBox2 = Cells(C.Row, 3).Text 'nom
Me.TextBox3 = Cells(C.Row, 4).Text 'date
Me.TextBox4 = Cells(C.Row, 5).Text 'N° Facture
Me.TextBox5 = Cells(C.Row, 6).Text ' Adresse
Me.TextBox6 = Cells(C.Row, 7).Text 'CP
Me.TextBox7 = Cells(C.Row, 8).Text 'Ville
Me.TextBox8 = Cells(C.Row, 9).Text 'Tel
Me.TextBox9 = Cells(C.Row, 10).Text ' Fax
Me.TextBox10 = Cells(C.Row, 11).Text 'Mobile
Me.TextBox1 = Cells(C.Row, 2).Text 'Ref
End Sub

' Recherche par la listboxt
Private Sub ListBox1_Change()
Dim reste As Double
 ligne = ListBox1.ListIndex
  TextBox1 = Sheets("Feuil1").Cells(ligne + 9, 2) 'Ref
   TextBox2 = Sheets("Feuil1").Cells(ligne + 9, 3) 'nom
    TextBox3 = Sheets("Feuil1").Cells(ligne + 9, 4) 'date
     TextBox4 = Sheets("Feuil1").Cells(ligne + 9, 5) 'N° Facture
      TextBox5 = Sheets("Feuil1").Cells(ligne + 9, 6) 'adresse
       TextBox6 = Sheets("Feuil1").Cells(ligne + 9, 7) 'cp
        TextBox7 = Sheets("Feuil1").Cells(ligne + 9, 8) 'ville
         TextBox8 = Sheets("Feuil1").Cells(ligne + 9, 9) 'Tel
         TextBox9 = Sheets("Feuil1").Cells(ligne + 9, 10) 'Fax
         TextBox10 = Sheets("Feuil1").Cells(ligne + 9, 11) 'Mobile
         

lignea = ligne
 
End Sub

Private Sub CommandButton1_Click()
'Modifier
Dim C As Range
Set C = Cells.Find(what:=Me.TextBox1.Text, LookIn:=xlValues, lookat:=xlWhole)
Cells(C.Row, 3) = TextBox2.Value  'nom
Cells(C.Row, 4) = TextBox3.Value  'date
Cells(C.Row, 5) = TextBox4.Value  'N° Facture
Cells(C.Row, 6) = TextBox5.Value  'adresse
Cells(C.Row, 7) = TextBox6.Value  'cp
Cells(C.Row, 8) = TextBox7.Value  'ville
Cells(C.Row, 9) = TextBox8.Value 'Tel
Cells(C.Row, 10) = TextBox9.Value  'Fax
Cells(C.Row, 11) = TextBox10.Value  'Mobile
UserForm_Initialize
End Sub
' supprimer
Private Sub CommandButton3_Click()
Dim C As Range
Set C = Cells.Find(what:=Me.TextBox2.Text, LookIn:=xlValues, lookat:=xlWhole)
C.EntireRow.Delete
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
UserForm_Initialize
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim aa As Variant
    aa = Feuil1.Range("c9:l" & Feuil1.Range("B65536").End(xlUp).Row)
    ComboBox1.List = aa
    
     'listbox1
  Dim Plage As Range
With Sheets("Feuil1")
    Set Plage = .Range("c9:c" & .Range("B65536").End(xlUp).Row)
End With
ListBox1.List = Plage.Value
    
End Sub

Merci d'avance

Max
 
Trier par date Trier par votes
Re : Listbox

Bonsoir Apdf1,

En attendant que quelqu'un vienne te dépatouiller ton soucis, voici déjà de quoi simplifier et raccourcir ton code

Code: 
Private Sub ComboBox1_Change()
Dim C As Range
Set C = Cells.Find(what:=Me.ComboBox1.Text, LookIn:=xlValues, lookat:=xlWhole)

For i = 1 To 10
   Me.Controls("TextBox" & i) = Cells(C.Row, i + 1).Text
Next i

End Sub

' Recherche par la listboxt
Private Sub ListBox1_Change()
Dim reste As Double
ligne = ListBox1.ListIndex

For j = 1 To 10
   Controls("TextBox" & j) = Sheets("Feuil1").Cells(ligne + 9, j + 1)
Next j

lignea = ligne
 
End Sub

Private Sub CommandButton1_Click()
'Modifier
Dim C As Range
Set C = Cells.Find(what:=Me.TextBox1.Text, LookIn:=xlValues, lookat:=xlWhole)

For k = 2 To 10
   Cells(C.Row, k + 1) = Controls("TextBox" & k).Value
Next k

UserForm_Initialize
End Sub

' supprimer
Private Sub CommandButton3_Click()
Dim C As Range
Set C = Cells.Find(what:=Me.TextBox2.Text, LookIn:=xlValues, lookat:=xlWhole)
C.EntireRow.Delete

For l = 1 To 10
    Controls("TextBox" & l) = ""
Next l

UserForm_Initialize
End Sub

' ...

Bonne soirée

Cordialement
 
Vote positif 0 Vote négatif
Re : Listbox

Bonsoir apdf, bonsoir le forum,

Et pourquoi pas ton fichier en pièce jointe aussi, pour qu'on n'ait pas à recreer ton envieronnement (UserForm, données, etc...) pour t'expliquer ce qui va pas dans la code ? Je suis sûr que tu obtiendras des réponses bien plus rapidement...

[Édition]
Bonsoir Excel-lent on s'est croisé...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 Importer les données Access dans Excel
Réponses
2
Affichages
391
badraaliou4
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
94
Pierreavecunp
P
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
254
CortoXls
C
S
  • Question Question
XL 2019 Modifications avec Combobox liées
Réponses
7
Affichages
236
Dranreb
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
113
Abi23
A
  • Question Question
XL 2021 Verifier les doublons dans feuille avant validation
Réponses
11
Affichages
154
cathodique
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
423
Francky79
F
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
102
KRUG WOO
K
M
  • Question Question
XL 2016 liste déroulante formulaire vba excel
2
Réponses
20
Affichages
238
fanch55
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
601
AtTheOne
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
743
laurent950
M
  • Question Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
411
Gégé-45550
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
P
  • Question Question
Microsoft 365 Problème de destination à l'exécution d'une macro
Réponses
2
Affichages
453
Pimpon974
P
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
97
sylvanu
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
342
Gestionnaire_rh
G
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
200
sebastien176
S
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
209
spike29
S
P
  • Question Question
XL 2016 texte d'images vers excel
Réponses
14
Affichages
171
jurassic pork
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
193
AlCapone
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…