besoin d'aide pour combobox

[Bricoltou]

Bonjour à Tous

j'ai plusieurs combobox dans une BDD rattaché bien sur a une colonne avec des références .
A chaque affichage de la BDD les combo sont vide et je voudrai que chaque combo apparaissent avec une cellule défini tout en gardant le pouvoir de modifier 😛
ci dessous mon code ,cela est il possible
merci d'avance pour vos réponses
@+
bricoltou

Private Sub UserForm_Initialize()
With Sheets("SD")
For i = 2 To .Range("A65000").End(xlUp).Row
If .Cells(i, 1) <> .Cells(i - 1, 1) Then
ComboBox18.AddItem .Cells(i, 1).Value
ComboBox19.AddItem .Cells(i, 1).Value
ComboBox20.AddItem .Cells(i, 1).Value
ComboBox21.AddItem .Cells(i, 1).Value
ComboBox22.AddItem .Cells(i, 1).Value
ComboBox23.AddItem .Cells(i, 1).Value
ComboBox24.AddItem .Cells(i, 1).Value
ComboBox25.AddItem .Cells(i, 1).Value
ComboBox26.AddItem .Cells(i, 1).Value
ComboBox27.AddItem .Cells(i, 1).Value
ComboBox28.AddItem .Cells(i, 1).Value
ComboBox29.AddItem .Cells(i, 1).Value
ComboBox30.AddItem .Cells(i, 1).Value
ComboBox31.AddItem .Cells(i, 1).Value
ComboBox32.AddItem .Cells(i, 1).Value

End If
Next
For j = 2 To .Range("C65000").End(xlUp).Row
If .Cells(j, 1) <> .Cells(j - 1, 3) Then
ComboBox1.AddItem .Cells(j, 3).Value
ComboBox4.AddItem .Cells(j, 3).Value
ComboBox5.AddItem .Cells(j, 3).Value
ComboBox6.AddItem .Cells(j, 3).Value
ComboBox7.AddItem .Cells(j, 3).Value
ComboBox8.AddItem .Cells(j, 3).Value
ComboBox9.AddItem .Cells(j, 3).Value
ComboBox10.AddItem .Cells(j, 3).Value
ComboBox11.AddItem .Cells(j, 3).Value
ComboBox12.AddItem .Cells(j, 3).Value
ComboBox13.AddItem .Cells(j, 3).Value
ComboBox14.AddItem .Cells(j, 3).Value
ComboBox15.AddItem .Cells(j, 3).Value
ComboBox16.AddItem .Cells(j, 3).Value
ComboBox17.AddItem .Cells(j, 3).Value

End If
Next
End With

End Sub

 

[Bricoltou]

Re : besoin d'aide pour combobox

Bonsoir à Tous

je joint un fichier a ma précédente demande car je peux etre pas été assez clair dans ma demande . 🙁
Je suis novice dans VBA et je viens de m'inscrire sur ce forum pour essayer de progresser .
J'ai bien sur fait des recherches sur ce forum avant de faire appel à vous .

Merci d'avance pour vos réponse 🙂

@+

Bricoltou

 

[Bricoltou]

Re : besoin d'aide pour combobox

HELP je ne m'en sort pas

Quelqu'un a t-il une solution pour moi

merci d'avance

je joint un fichier a ma précédente demande car je peux etre pas été assez clair dans ma demande . 🙁
Je suis novice dans VBA et je viens de m'inscrire sur ce forum pour essayer de progresser .
J'ai bien sur fait des recherches sur ce forum avant de faire appel à vous .

Merci d'avance pour vos réponse 🙂

@+

Bricoltou[/QUOTE]

 

[JNP]

Re : besoin d'aide pour combobox

Bonjour Bricoltout 🙂,
Y a pas le feu au lac 😀...
N'oublie pas que tu n'es pas sur une hot line, mais sur un site de bénévoles, et en plus, tout le monde n'est pas encore rentré de vacances 😡!
Pas sûr d'avoir tout compris, mais tu peux tester

    For i = 2 To .Range("A65000").End(xlUp).Row
            If .Cells(i, 1) <> .Cells(i - 1, 1) Then
            ComboBox18.AddItem .Cells(i, 1).Value
            ComboBox18.Value = .Cells(2, 1).Value
            ComboBox19.AddItem .Cells(i, 1).Value
            ComboBox19.Value = .Cells(3, 1).Value
            ComboBox20.AddItem .Cells(i, 1).Value
            ComboBox20.Value = .Cells(4, 1).Value
            ComboBox21.AddItem .Cells(i, 1).Value
            ComboBox21.Value = .Cells(5, 1).Value
            ComboBox22.AddItem .Cells(i, 1).Value
            ComboBox22.Value = .Cells(6, 1).Value
            ComboBox23.AddItem .Cells(i, 1).Value
            ComboBox23.Value = .Cells(7, 1).Value
            ComboBox24.AddItem .Cells(i, 1).Value
            ComboBox24.Value = .Cells(8, 1).Value
            ComboBox25.AddItem .Cells(i, 1).Value
            ComboBox25.Value = .Cells(9, 1).Value
            ComboBox26.AddItem .Cells(i, 1).Value
            ComboBox26.Value = .Cells(10, 1).Value
            ComboBox27.AddItem .Cells(i, 1).Value
            ComboBox27.Value = .Cells(11, 1).Value
            ComboBox28.AddItem .Cells(i, 1).Value
            ComboBox28.Value = .Cells(12, 1).Value
            ComboBox29.AddItem .Cells(i, 1).Value
            ComboBox29.Value = .Cells(13, 1).Value
            ComboBox30.AddItem .Cells(i, 1).Value
            ComboBox30.Value = .Cells(14, 1).Value
            ComboBox31.AddItem .Cells(i, 1).Value
            ComboBox31.Value = .Cells(15, 1).Value
            ComboBox32.AddItem .Cells(i, 1).Value
            ComboBox32.Value = .Cells(16, 1).Value
            End If
            Next i

Bonne journée 😎

 

[Robert]

Re : besoin d'aide pour combobox

Bonjour le fil, bonjour le forum,

Je te propose le code suivant :

Private Sub UserForm_Initialize()
Dim i As Integer, j As Integer, k As Integer
Dim y As Byte
 
With Sheets("SD")
    For i = 2 To .Range("A65000").End(xlUp).Row
        If .Cells(i, 1) <> .Cells(i - 1, 1) Then
            For y = 18 To 32
                Me.Controls("ComboBox" & y).AddItem .Cells(i, 1).Value
            Next y
        End If
    Next i
    For j = 2 To .Range("C65000").End(xlUp).Row
        If .Cells(j, 1) <> .Cells(j - 1, 3) Then
            For y = 1 To 17
                Select Case y
                    Case 1, 4 To 17
                    Me.Controls("ComboBox" & y).AddItem .Cells(j, 3).Value
                End Select
            Next y
        End If
    Next j
    For k = 2 To .Range("F65000").End(xlUp).Row
        If .Cells(k, 1) <> .Cells(k - 1, 6) Then ComboBox33.AddItem .Cells(k, 6).Value
    Next k
End With
For y = 1 To 33
    Select Case y
        Case 1, 4 To 33
        Me.Controls("ComboBox" & y).ListIndex = 0 'affiche la première valeur de la ComboBox
    End Select
Next y
End Sub

Bizarre ton : If .Cells(j, 1) <> .Cells(j - 1, 3) Then ???

 

[Bricoltou]

Re : besoin d'aide pour combobox

Bonjour à tous
Merci à JNP et Robert 😎

Le Code fonctionne mais tout les combox reprennent la cellule 1 .
Je voudrais que le combox 1 reprenne la cellule 1 à l'affichage et le combox la cellule 2 et ainsi de suite (fichier joint)
Je cherche depuis ce matin mais je démarre en VBA et j'avoue que je galère pas mal .

Merci d'avance pour vos conseils

@+

Bricoltou

 

[Robert]

Re : besoin d'aide pour combobox

Bonjour le fil, bonjour le forum,

En pièce jointe ton fichier modifié.

 

[Bricoltou]

Re : besoin d'aide pour combobox

Encore Merci Robert 😎

@+

Bricoltou