OptionButtons et Combobox

[anissa]

Bonsoir tt le mondes j’ai virement besoin de votre aide SVP je n’arrive pas à réalisé un UserForm avec les OptionButtons et Combobox avec remplissage, qui vont me permettre de remplir mes textebox a partir de la feuil1 Excel.
de cette manière si ya une possibilité :
UserForm1 :
Quand je sélection par exemple en premier Joueur1 (Joueur1=OptionButton1) ensuite je sélection une date dans la Combobox1 (combobox1=Date) qui représente les dates qui se trouve sur ma feuil1 du classeur après si deux actions les Textebox se remplisses de détails du Joueur1.

Et la même chose pour (Joueur2=OptionButton2) et (Joueur3=OptionButton3).

Feuil 1 :
A2 :A=date
B2 :B= joueurs
C 2:C=Fautes
D2 :d=Buts
E2 :E=Points
Je vous joins mon classeur

J’attends vos réponses avec impatience et merci pour tout le forum excel-downloads.

 

[jpb388]

Re : OptionButtons et Combobox

Bonjour a tous
Regarde si cela te va

 

[anissa]

Re : OptionButtons et Combobox

Bonjour jpb388, non ça ne marche pas y a erreur au niveau du code a chaque fois que je sélection une datte dans combobox voila les messages d’erreurs (pas de cellules correspondantes) la si je clic sur fin il remit le tableau a zéro quand je relance userform et je clic sur optionbouton puis je sectionne la datte une autre erreur apparaisse (un tableau ne peut pas en chevaucher un autre) et je clic sur débogage je vois cette erreur dans le code(Set Mon_Tableau = .ListObjects.Add(xlSrcRange, .Range("A1").CurrentRegion, xlYes) ).

Merci pour ton aide essai svp de ne pas définir de nom au tableau

 

[jpb388]

Re : OptionButtons et Combobox

Bonsoir à tous

le souci c'est que chez moi cela fonctionne
je change de joueur et sélectionne la date sans aucun problème
regarde si tu as des références manquantes si oui décoche les
un tableau a toujours un nom fourni par l'ordinateur je ne fais que changer le nom et de toute façon le tableau est détruit a la fin

les erreurs de tableaux viennent du fait que la macro n'a pas été jusqu'au bout et de ce fait n'a pas détruit le tableau existant
c'est erreur là sont normales celle de la combobox non

je vais réfléchir a une autre manière

 

[PMO2]

Re : OptionButtons et Combobox

Bonjour,

Alors peut être comme cela

Private Sub ComboBox1_Change()
Dim j&
Dim Id&
'---
Id& = ComboBox1.ListIndex
For j& = 2 To ComboBox1.ColumnCount - 1
  If Id& >= 0 Then
    Me.Controls("TextBox" & j& - 1) = ComboBox1.List(Id&, j&)
  Else
    Me.Controls("TextBox" & j& - 1) = ""
  End If
Next j&
End Sub

Private Sub ComboBox1_Enter()
Dim CT As Control
Dim bool
Dim A$
Dim R
Dim var
Dim i&
Dim j&
Dim cpt&
Dim T()
'---
For Each CT In Me.Controls
  If TypeName(CT) = "OptionButton" Then
    If CT = True Then
      A$ = CT.Caption
      bool = True
      Exit For
    End If
  End If
Next CT
If Not bool Then Exit Sub
'---
Set R = Sheets("Feuil1").[a1].CurrentRegion
var = R
For i& = 1 To UBound(var, 1)
  If var(i&, 2) = A$ Then
    cpt& = cpt& + 1
    ReDim Preserve T(1 To UBound(var, 2), 1 To cpt&)
    For j& = 1 To UBound(var, 2)
      T(j&, cpt&) = var(i&, j&)
    Next j&
  End If
Next i&
'---
With ComboBox1
  .ColumnCount = UBound(var, 2)
  .ColumnWidths = "20;0;0;0;0;0;0;0;0;0;0"
  .List = Application.WorksheetFunction.Transpose(T)
End With
End Sub

Private Sub OptionButton1_Click()
Me.ComboBox1.Clear
End Sub

Private Sub OptionButton2_Click()
Me.ComboBox1.Clear
End Sub

Private Sub OptionButton3_Click()
Me.ComboBox1.Clear
End Sub

 

[anissa]

Re : OptionButtons et Combobox

Bonjour PMO2, un grand merci pour toi ta vraiment assuré mon frère que dieu te bénisse et bonne continuation.

 

[grisan29]

Re : OptionButtons et Combobox

bonsoir PM02,jpb388 et le forum

j'ai essayer les 2 versions des fichiers et c'est parfait pour les 2

Anissa il faudrait peut être modifier ton profil afin d'afficher ta version d'excel

Pascal

 

[anissa]

Re : OptionButtons et Combobox

oui la version de PMO2 Fonctionne très bien grisan29 et pour mon profil si fait

et merci à jpb388 qui a fait le 1er teste