Problème compatibilité userform - Combobox

[Bouby]

Bonjour,

Alors voila j'ai un petit problème au niveau de ma combobox 1 et 2 qui sont sur la feuille accueil.
Elle fonctionnent parfaitement sauf qu'elles ne recherche que sur la 1ère ligne de chaque tableau mais pas sur les lignes suivante quand j'entre un nouveau produit avec mon userform1 (Nouvelle entrée)

Exemple : je suis sur la feuille accueil je clique sur le bouton +5° car je recherche un produit qui est sur cette feuille ensuite je clique sur ma combobox 1 ou 2 peu importe il n’apparaît alors que les info de la 1ere ligne pas les lignes suivantes... C'est là qu'est mon problème. Quand je rentre un nouveau produit avec mon Userform1 (Nouvelle Entrée) celui-ci s'insère correctement dans mon tableau mais mes ComboBox ne le reconnaissent pas...
Je joint mon tableau pour que cela soit plus claire.

Cordialement,
Bouby

 

[PMO2]

Re : Problème compatibilité userform - Combobox

Bonjour,

Essayez avec le code de la procédure "CommandButton21_Click" où des ajouts ont été apportés (voir les '///)

Private Sub CommandButton21_Click()
    ComboBox1.Clear
    Set feuilSrc = Feuil2

'/// ajout
Dim R As Range
'---
With feuilSrc
  Set R = .ListObjects(1).Range
  Set R = R.Resize(.[a1].CurrentRegion.Rows.Count, R.Columns.Count)
  .ListObjects(1).Resize R
End With
'///

    For i = 1 To feuilSrc.ListObjects(1).DataBodyRange.Rows.Count
        ComboBox1.AddItem feuilSrc.ListObjects(1).DataBodyRange.Cells(i, 1)
    Next
    With Feuil1
        .Range("D9:E9").ClearContents
        .Range("D11:E11").ClearContents
        .Range("D13:E13").ClearContents
        .Range("D15:E15").ClearContents
        .Range("D17:E17").ClearContents
        .Range("D19:E19").ClearContents
        .Range("D21:E21").ClearContents
        .Range("D23:E23").ClearContents
        .Range("D25:E25").ClearContents
        .Range("I9:J9").ClearContents
        .Range("I11:J11").ClearContents
        .Range("I13:J13").ClearContents
        .Range("I15:J15").ClearContents
        .Range("I17:J17").ClearContents
        .Range("I19:J19").ClearContents
        .Range("I21:J21").ClearContents
        .Range("I23:J23").ClearContents
        .Range("I25:J25").ClearContents
        .Range("I27:J27").ClearContents
    End With
        
 
 ComboBox2.Clear
    
    Set feuilSrc = Feuil2
    For i = 1 To feuilSrc.ListObjects(1).DataBodyRange.Rows.Count
        ComboBox2.AddItem feuilSrc.ListObjects(1).DataBodyRange.Cells(i, 2)
            Next
            
        With Feuil1
         .Range("D9:E9").ClearContents
        .Range("D11:E11").ClearContents
        .Range("D13:E13").ClearContents
        .Range("D15:E15").ClearContents
        .Range("D17:E17").ClearContents
        .Range("D19:E19").ClearContents
        .Range("D21:E21").ClearContents
        .Range("D23:E23").ClearContents
        .Range("D25:E25").ClearContents
        .Range("I9:J9").ClearContents
        .Range("I11:J11").ClearContents
        .Range("I13:J13").ClearContents
        .Range("I15:J15").ClearContents
        .Range("I17:J17").ClearContents
        .Range("I19:J19").ClearContents
        .Range("I21:J21").ClearContents
        .Range("I23:J23").ClearContents
        .Range("I25:J25").ClearContents
        .Range("I27:J27").ClearContents
        
        End With
        
End Sub

 

[Bouby]

Re : Problème compatibilité userform - Combobox

Bonjour,
Je tenais à vous remercier j'ai repris votre code sur toutes les pages et il fonctionne à merveille encore merci.

Cordialement,
Bouby