besoin d'aide en vba sur Excel

Question

J'ai un nouveau problème de programmation en vba sous excel. Je voudrait qu'en choisissant une date dans une listbox (intégrée dans une userform) que j'ai construite, la cellule (de la feuille 1 par exemple) contenant cette date soit sélectionnée. Je n'y arrive pas.
(Dans les propriété de la listbox j'ai mis dans Rowsource la plage de cellule ou je veux rechercher ma date...je me rends compte que c'est pas très clair ce que je raconte, j'espère que vous comprendrez).

Si quelqu'un pouvait m'aider car cause de ça je suis bien coincé.

Merci

Armojax · Answer

Bonjour backin,

Il y a sans doute plus simple, mais vite fait, ci-dessous ça marche.
RowSource : la plage (A1:A10) de Feuil1.

Private Sub ListBox1_Click()
  Dim I As Long
  For I = 1 To Range(ListBox1.RowSource).Cells.Count
    If Sheets("Feuil1").Cells(I, 1).Value = ListBox1.Value Then
      Sheets("Feuil1").Cells(I, 1).Select
      Exit For
    End If
  Next
End Sub

backin · Answer

Merci pour ta réponse mais...

...ça ne fonctionne pas. Mais j'ai oublié de préciser quelque chose : les données des cellules de ma "Rowsource" sont des dates et quand je choisi une de ces dates dans ma listbox au lieu de s'afficher une date il s'affiche un numéro à 5 chiffres (je crois...) du type 38548. Peut-être que ça ne fonctionne pas à cause de ça. Peut-être qu'il faut que je dise à ma listbox que les données de la rowsource sont des dates mais je ne sais pas comment faire. quelqu'un peut-il m'aider ?

Merci d'avance

Utilisateur anonyme · Answer

re:If Sheets("Feuil1").Cells(I, 1).Value = format(ListBox1.Value,"aaaa-mm-jj") ThenLupin

backin · Answer

merci les gars ça fonctionne (ça ne fonctionnait pas car je faisais une fausse-manip)Merci bcp a+ pour une nouvelle question (ça ne serai tarder à mon avis...:)

Besoin d'aide en vba sur Excel

4 réponses

Newsletters