Multicolonne excel

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

  • Votes
  • Date
  • Date décroissante
  1. etant donnée que le probleme citée au dessus est simplifié pouvez vous m'expliquer les ligne du programme cousinhub

    merci
    1. 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