Multicolonne excel

tourete -  
 boritu -
Bonjour,

Voila j'ai un problème sur vb excel ,

j ai un combobox reprennant des nom d'entreprise en colonne A feuille 1 et me le réecri en colonne A mais en feuille 2 sa sa marche

Ce que je voudrai c'est juste afficher a droite des nom d'entreprise dans ma combobox le code postal qui se trouve dans la colonne B feuille 1 à coté des nom d 'entreprise

Merci beaucoup de votre aide je débute

3 réponses

  2. boritu
     
    etant donnée que le probleme citée au dessus est simplifié pouvez vous m'expliquer les ligne du programme cousinhub

    merci
    0
  3. cousinhub
     
    Bonjour,

    essaie ces codes : 

    Private Sub CommandButton1_Click()
Dim DerLig As Long
If Me.ComboBox1 = "" Then Exit Sub
With Sheets("Feuil2")
    DerLig = .[A65000].End(xlUp).Row + 1
    .Cells(DerLig, 1).Value = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 0)
    .Cells(DerLig, 2).Value = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)
End With
End Sub


Private Sub UserForm_Initialize()
  Me.ComboBox1.ColumnCount = 2
  Me.ComboBox1.ColumnWidths = Me.ComboBox1.ColumnWidths & ";" & 0
  Me.ComboBox1.RowSource = "Feuil1!A1:B" & Feuil1.[A65000].End(xlUp).Row
End Sub


    Bonne journée
    -1