Suivant ce qui est affiché dans une ComboBox, afficher des infosRésolu

Question

Bonsoir &#224; tous,

Je bute sur un probl&#232;me d'affichage :

En VBA Excel, j'ai cr&#233;&#233; un UserForm qui, suivant ce qui est affich&#233; dans la combobox,
inscrit des donn&#233;es dans des Labels.

Dans ma colonne A de la feuille Excel, j'ai une liste &#224; faire apparaitre dans la ComboBox,
puis des donn&#233;es dans les Colonnes B, C & D.

Voici mon code :

Private Sub UserForm1_Initialize()

   ComboBoxListe1.RowSource = "NomFeuille!A2:A167"

End Sub
' Cela fonctionne tr&#232;s bien !

puis, pour afficher les infos :

Private Sub ComboBoxListe1_Change()

For i = 2 to 167
   aa = ("A" & i)
   bb = ("B" & i)
   cc = ("C" & i)
   dd = ("D" & i)

      If ComboBoxListe1.Value = Range(aa).Value then
         Label1.Value = Range(bb).Value
         Label2.Value = Range(cc).Value
         Label3.Value = Range(dd).Value
      End If
Next i
End Sub
' Dans cette configuration, &#231;a marche tr&#232;s bien, mes infos s'affichent dans les Labels, par contre, si je rajoute sous le Label3 :

ElseIf ComboBoxListe1.Value <>Range(aa).Value then
   Label1.Value = ""
   Label2.Value = ""
   Label3.Value = ""
' pour g&#233;rer les noms qui ne font pas parti de la liste de la ComboBox, m&#234;me si un appartient bien &#224; cette fameuse liste, mes Labels reste vierge, alors qu'ils devraient afficher des infos.

Une &#226;me charitable aurait-elle le moyen de m'aider &#224; faire apparaitre mes infos si le nom est existant et &#224; l'inverse, ne rien afficher si le nom ne correspond &#224; rien.

GRAND MERCI et Joyeuse F&#234;tes de Fin d'Ann&#233;e


  Mortalino

mortalino · Accepted Answer

Merci pour l'info de tester pas &#224; pas, j'ai pu remarquer que ta premi&#232;re r&#233;ponse &#233;tait bonne, il manquait juste avant le "Else", Exit Sub.

Le fait de ne pas l'avoir mis, la proc&#233;dure continuait la boucle.

Merci encore et meilleurs voeux pour l'ann&#233;e 2006, joie, sant&#233; et argent.


  Mortalino

Renfield · Answer

vraiment étrange...
au passage, le ElseIf est inutile :

Private Sub ComboBoxListe1_Change()

For i = 2 to 167
   aa = ("A" & i)
   bb = ("B" & i)
   cc = ("C" & i)
   dd = ("D" & i)

      If ComboBoxListe1.Value = Range(aa).Value then
         Label1.Value = Range(bb).Value
         Label2.Value = Range(cc).Value
         Label3.Value = Range(dd).Value
      Else
         Label1.Value = VbNullString
         Label2.Value = VbNullString
         Label3.Value = VbNullString
      End If
Next i
End Sub

mortalino · Answer

Salut Renfield,


j'ai essay&#233; ta m&#233;thode mais &#231;a me fait le m&#234;me probl&#232;me : 
le Else 
      Label1.Value = VbNullString
   etc...
   End If
prend le dessus et donc mes infos ne s'affiche pas.

PS : j'ai mis Label3.Caption car le Value n'est pas pris en compte.

Sinon le fait que la combobox ai l'&#233;criture intuitive n'y fait elle pas pour quelque chose ?

Merci encore !


  Mortalino

Renfield · Answer

il va te falloir tester en pas a pas, et regarder les valeurs de  ComboBoxListe1.Value et Range(aa).Value

Renfield
Admin CodeS-SourceS - MVP Visual Basic

Renfield · Answer

ah, ok, je pensais la boucle voulue ^^



bien vu

Renfield
Admin CodeS-SourceS - MVP Visual Basic

Suivant ce qui est affiché dans une ComboBox, afficher des infos

5 réponses

Discussions similaires