Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

besoin d'aide pour combobox

B

Bricoltou

XLDnaute Occasionnel
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
 
Trier par date Trier par votes
B

Bricoltou

XLDnaute Occasionnel
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
 

Pièces jointes

  • Bricoltou.zip
    26.9 KB · Affichages: 37
  • Bricoltou.zip
    26.9 KB · Affichages: 37
  • Bricoltou.zip
    26.9 KB · Affichages: 38
Dernière édition:
Vote positif 0 Vote négatif
B

Bricoltou

XLDnaute Occasionnel
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]
 

Pièces jointes

  • Bricoltou.zip
    26.9 KB · Affichages: 29
  • Bricoltou.zip
    26.9 KB · Affichages: 33
  • Bricoltou.zip
    26.9 KB · Affichages: 23
Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc
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
Code: 
    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
 
Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc
Repose en paix
Re : besoin d'aide pour combobox

Bonjour le fil, bonjour le forum,

Je te propose le code suivant :
Code: 
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 ???
 
Vote positif 0 Vote négatif
B

Bricoltou

XLDnaute Occasionnel
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
 

Pièces jointes

  • Bricoltou.zip
    24.6 KB · Affichages: 31
  • Bricoltou.zip
    24.6 KB · Affichages: 39
  • Bricoltou.zip
    24.6 KB · Affichages: 32
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
Microsoft 365 VBA Transpose
Réponses
11
Affichages
633
sylvanu
C
  • Question
XL 2021 Problème de remplissage d'une colonne conditionné à d'autres valeurs
Réponses
2
Affichages
314
CathyLD
C
G
  • Résolu(e)
XL 2021 VBA dates au mauvais format
Réponses
5
Affichages
208
vgendron
  • Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
477
AtTheOne
  • Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
889
Nicolas JACQUIN
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
636
Messan
S
  • Résolu(e)
XL 2016 problème de filtre dans listbox
2 3 4
Réponses
51
Affichages
2 K
saidoush
S
E
  • Question
Microsoft 365 Listbox avec plus de 10 colonnes
Réponses
6
Affichages
371
Excellearning
E
D
  • Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
1 K
Dranreb
S
  • Question
XL 2019 Remplir une combobox avec une ligne
2
Réponses
17
Affichages
982
fanch55
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…