Chargement d'une combobox sur plusieur feuil

[creolia]

Bonsoir à tous

je cherche une solution pour charger dans une combobox toute les valeur d'une plage de cellule sur plusieur feuille

Ma plage de cellule va de B5:E
mes Feuilles porte tous le nom SAS..... (SAS1; SAS2......)

pouvez vous m'aider à mettre en place cette macro svp merci

 

[Compte Supprimé 979]

Re : Chargement d'une combobox sur plusieur feuil

Salut Creolia,

Je vois que ta plage va de la colonne B à E, c'est ça ?

Si c'est le cas, il va falloir utiliser une ListBox

Private Sub UserForm_Initialize()
  Dim Sht As Worksheet, Lig As Long
  ' Définir le nombe de colonnes de la listbox
  Me.ListBox1.ColumnCount = 4
  ' Pour chaque feuille du classeur
  For Each Sht In ThisWorkbook
    ' Si le nom de la feuille commence par "SAS"
    If Left(Sht.Name, 3) = "SAS" Then
      ' Pour chaque ligne de 5 à 10
      For Lig = 5 To 10
        ' Ajouter les valeurs des colonnes B à E
        Me.ListBox1.AddItem Sht.Range("B" & Lig).Value
        Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Sht.Range("C" & Lig).Value
        Me.ListBox1.List(ListBox1.ListCount - 1, 2) = Sht.Range("D" & Lig).Value
        Me.ListBox1.List(ListBox1.ListCount - 1, 3) = Sht.Range("E" & Lig).Value
      Next Lig
    End If
  Next Sht
End Sub

A+

 

[creolia]

Re : Chargement d'une combobox sur plusieur feuil

Bonjour brunot bon et bien tanpis je voulais juste faire une sorte d'ecriture automatique dans ma combobox qui me sert de recherche.

merci à toi à trés bientot

 

[Compte Supprimé 979]

Re : Chargement d'une combobox sur plusieur feuil

Re,

Tu peux le faire, mais en ne mettant qu'une seule colonne !
ou en choisissant ta colonne de recherche, voir fichier joint

A+

 

[creolia]

Re : Chargement d'une combobox sur plusieur feuil

Re bunot45

ta proposition ma donnée une idée et sa fonctionne trés bien

Dim x As Long
 Dim Sht As Worksheet, Col As Integer, Lig As Long
  ' Définir la colonne de recherche
  Col = Me.ComboBox1.ListIndex + 1
  ' Pour chaque feuille
  For Each Sht In ThisWorkbook.Worksheets
    ' Si le début du nom de la feuille correspond
    If Left(Sht.Name, 3) = "SAS" Then
      ' Pour chaque ling
      For x = 2 To 4
      For Lig = 2 To 10
        ' Ajouter la valeur de la colonne sélectionnée
        Me.ComboBox2.AddItem Sht.Cells(Lig, x + Col)
       
      Next Lig

  Next x
End If
Next Sht
End Sub

il me reste plus qu'a resoudre le probleme de doublon

je tiens informée
à bientot