[RESOLU] Problème dans une macro

[LRWAGNER]

Bonjour à toutes et à tous

Voilà mon petit soucis

J'ai un formulaire dans lequel je souhaite afficher les donnée grâce à une combobox mais je dois avoir un soucis dans le code :s

Ci dessous le code que j'utilise

Private Sub UserForm1_Initialize()
Set F = Sheets("Feuil1")
For Each C In F.Range("B2:B" & F.[B65000].End(xlUp).Row)
Me.ComboBox4.AddItem C
Next C
End Sub

Private Sub ComboBox4_Click()

End Sub
ligne = Me.ComboBox4.ListIndex + 2
Me.TextBox1 = F.Cells(ligne, 1)
Me.TextBox3 = F.Cells(ligne, 3)
Me.TextBox4 = F.Cells(ligne, 4)
Me.TextBox5 = F.Cells(ligne, 5)
Me.TextBox6 = F.Cells(ligne, 6)
Me.ComboBox1 = F.Cells(ligne, 7)
Me.TextBox7 = F.Cells(ligne, 8)
Me.TextBox8 = F.Cells(ligne, 9)
Me.ComboBox2 = F.Cells(ligne, 10)
Me.TextBox9 = F.Cells(ligne, 11)
Me.TextBox10 = F.Cells(ligne, 12)
Me.TextBox11 = F.Cells(ligne, 13)
Me.ComboBox3 = F.Cells(ligne, 15)

End Sub

Merci d'avance pour votre aide

 

[phlaurent55]

Re : Problème dans une macro

Bonjour,

le code contient deux procédures dont une est vide et ne sert à rien

Comment est activé tout le reste (en dessous du second "End Sub" )

ligne = Me.ComboBox4.ListIndex + 2
    Me.TextBox1 = F.Cells(ligne, 1)
    Me.TextBox3 = F.Cells(ligne, 3)
    Me.TextBox4 = F.Cells(ligne, 4)
    Me.TextBox5 = F.Cells(ligne, 5)
    Me.TextBox6 = F.Cells(ligne, 6)
    Me.ComboBox1 = F.Cells(ligne, 7)
    Me.TextBox7 = F.Cells(ligne, 8)
    Me.TextBox8 = F.Cells(ligne, 9)
    Me.ComboBox2 = F.Cells(ligne, 10)
    Me.TextBox9 = F.Cells(ligne, 11)
    Me.TextBox10 = F.Cells(ligne, 12)
    Me.TextBox11 = F.Cells(ligne, 13)
    Me.ComboBox3 = F.Cells(ligne, 15)

à+
Philippe

 

[LRWAGNER]

Re : Problème dans une macro

J'ai enlevé le second end sub et rien y fait je n'arrive pas à afficher ma liste dans la combobox4

 

[phlaurent55]

Re : Problème dans une macro

Re,

Sans voir le fichier, ça ne sera pas facile de comprendre le problème et encore moins pour y apporter une réponse

à+
Philippe

 

[LRWAGNER]

Re : Problème dans une macro

Philippe

En PJ le fichier en question

 

[phlaurent55]

Re : Problème dans une macro

Re,

Désolé, il n'y pas d'USF, pas de code dans le fichier et, à cause de cela, ma boule de cristal refuse obstinément de me donner la solution

à+

 

[LRWAGNER]

Re : Problème dans une macro

Désolé je l'avais enregistré en xlsx le voilà en xls ça ira mieux

 

[phlaurent55]

Re : Problème dans une macro

Re,

voici, j'ai modifié:

la manière de remplir le Combobox4 à l'ouverture du fichier (fait maintenant par zone nommée dynamiquement) voir la propriété RowSource du combo4

la procédure Combobox4_Clic

à+
Philippe

 

[LRWAGNER]

Re : Problème dans une macro

Bonjour Philippe

Merci beaucoup pour ton aide

Bonne journée