récupération de données d'une sheet excel dans un lable

Question

Bonjour

Voil&#224; j'ai un probl&#232;me.

Je veux r&#233;cup&#233;rer sur une feuille excel dans une cellule la donn&#233;e qui si trouve par rapport &#224; une entr&#233;e d'une textbox.

voici le code :

Private Sub TextBox5_Change()
    Feuil1.Cells(1, 15) = TextBox5
            Label20.Caption = Feuil1.Cells(16)
            Label28.Caption = Feuil1.Cells(17)
            Label29.Caption = Feuil1.Cells(18)
            
            
End Sub

Mais cel&#224; ne fonctionne pas.

Merci de votre aide
Cordialement

 PATREV

cs_franckydeluka · Answer

J'ai pas bien compris ce que tu voulais faire mais essaie comme &#231;a :

Private Sub TextBox5_Change()
            Feuil1.Cells(1, 15) = TextBox5.text
            Label20.Caption = Feuil1.Cells(16)
            Label28.Caption = Feuil1.Cells(17)
            Label29.Caption = Feuil1.Cells(18)
End Sub



Deluka.

cs_patrev · Answer

je viens de tester ces codes mais j'ai toujours la m&#234;me erreur.

j'explique mon probl&#232;me

Sur la feuil1 d'excel en colonne 15 dans la cellule de la premiere ligne je copie la textbox5 et en colonne 16 se trouve une recherchev sur une base de donn&#233;e que je veux r&#233;cup&#233;rer dans un label pour fournir l'information &#224; la personne qui va remplir la textbox.

les lignes qui me pause un probl&#232;me sont celle-ci

Label20.Caption = Feuil1.Cells(16)
            Label28.Caption = Feuil1.Cells(17)
            Label29.Caption = Feuil1.Cells(18)

Merci de votre aide
Cordialement

 PATREV

jpleroisse · Answer

Bonsoir,



Sheets("Feuil1").Activate

Label20.Caption = ActiveSheet.Cells(1, 16)

Label28.Caption = ActiveSheet.Cells(1, 17)

Label29.Caption = ActiveSheet.Cells(1, 18)



jpleroisse

Récupération de données d'une sheet excel dans un lable

3 réponses

Discussions similaires