Bonjour, je débute sous visual basic et j'ai besion d'un peu d'aide...

Voila, je crée un site web en ce moment et je cherche à integrer une base "photo".
Pour cette base, j'ai un fichier excel avec :
  
sur la feuille 1, les colonnes suivantes
Nom de la photo | date | lieu ....

Je souhaiterai créer sur la feuille 2 un formulaire de visualisation, c'est à dire avec une combobox qui reprend la colonne "Nom de la photo", et quand on selection une photo, les informations qui lui sont liées (date, lieu...) s'affiche dans des labels par exemple.

Ensuite je pourrai enregistrer en page web et l'integrer à mon site...

Si quelqu'un à une idée

Merci d'avance

Salut
colonne A: nomphoto
colonne B: lieu
colonneC:date

un form avec un combobox1, un label1 et un label2

Et voila ce que tu demande:

Public

Class Form1

Dim excelapp As Microsoft.Office.Interop.Excel.Application

Dim DerniereLigne As Integer

Dim i As Integer

Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load

excelapp =

New Microsoft.Office.Interop.Excel.Application

excelapp.Workbooks.Open(

"C:\Classeur1.xls" )

excelapp.ActiveWorkbook.Worksheets(

"Feuil1" ).Select()

PremiereLigneVide(1)

For i = 1 To DerniereLigne

Dim Itemi As String

Itemi = excelapp.ActiveWorkbook.Worksheets(

"Feuil1" ).cells(i, 1).Value

ComboBox1.Items.Add(Itemi)

Next

End Sub

'le super snippet de mortalino
Public Function PremiereLigneVide( ByVal Colonne As Integer ) As Integer

PremiereLigneVide = excelapp.ActiveWorkbook.Worksheets(

"Feuil1" ).Columns(Colonne).Find( "" ).Row

DerniereLigne = PremiereLigneVide - 1

End Function

Private Sub ComboBox1_SelectedIndexChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

Dim PhotoSelect As String

Dim j As Integer

PhotoSelect = ComboBox1.Text

For j = 1 To DerniereLigne

If excelapp.ActiveWorkbook.Worksheets( "Feuil1" ).cells(j, 1).Value = PhotoSelect Then

Label1.Text = excelapp.ActiveWorkbook.Worksheets(

"Feuil1" ).cells(j, 2).Value

Label2.Text = excelapp.ActiveWorkbook.Worksheets(

"Feuil1" ).cells(j, 3).Value

End If

Next

End Sub

End

Class

 Drikce 06

Ps: j'ai pas commenté alors si il y a quelque chose que tu ne comprends demande, mais le code est assez simple à comprendre, il y a rien de compliquer.

 Drikce 06

Merci de ta reponse... je vais essayer.
Le code que tu me donne tu le tappe dans le visual basic editor de excel ou sous visual basic 2005?

Car tu crées une form et les forms ne sont pas exploitable en HTML...

Merci d'avance

Salut j'ai fais ça avec vb2005 express edition!
Là j'ai fais le meme avec vba (visual basic editor d'excel) je l'ai enregistrer an html et ça fonctionne!

 Drikce 06

    Tu crées un userform avec combobox1, label1 et label2

sur feuil1:
colonne A: nomphoto
colonne B: lieu
colonneC:date

Dim DerniereLigne As Integer
    Dim i As Integer

Private Sub ComboBox1_Change()

        Dim PhotoSelect As String
        Dim j As Integer
        PhotoSelect = ComboBox1.Text

        For j = 1 To DerniereLigne

            If Worksheets("Feuil1").Cells(j, 1).Value = PhotoSelect Then

                Label1.Caption = Worksheets("Feuil1").Cells(j, 2).Value
                Label2.Caption = Worksheets("Feuil1").Cells(j, 3).Value

            End If

        Next
       
End Sub

    Public Function PremiereLigneVide(ByVal Colonne As Integer) As Integer

        PremiereLigneVide = Worksheets("Feuil1").Columns(Colonne).Find("").Row
        DerniereLigne = PremiereLigneVide - 1

    End Function

Private Sub UserForm_Initialize()

        Worksheets("Feuil2").Activate
        PremiereLigneVide (1)

        For i = 1 To DerniereLigne

            Dim Itemi As String
            Itemi = Worksheets("Feuil1").Cells(i, 1).Value
            ComboBox1.AddItem (Itemi)

        Next

End Sub

Et pour afficher le userform à l'ouverture dans Thisworkbook:

Sub Workbook_open()

UserForm1.Show

End Sub

 Drikce 06

Ok je l'ai fait en mettant les controle directement sur la feuille 2 sans passer par un userform. Ca marche en xls mais en html non car pour programmer pour des application web tu ne peux pas avec visual basic il faut passer par un autre language. Tu ne peux pas faire ce que tu veux avec vb apparement!

 Drikce 06

Je viens de le faire ca marche bien sous le fichier excel merci....

Mais je ne peux pas l'exporter pour le mettre en .html. Comment peut on faire dans ce cas?

Merci

Re comme le dit mon dernier post il faut changer de language!

 Drikce 06

Pour programmer avec du html du peux utiliser du vbscript, javascript ou php, mais là je ne sais pas faire désolé!

 Drikce 06