récupérer la valeur de cellules Excel et affectation à des TextBox

Question

Bonjour, d&#233;butant en VBA sous Excel, je souhaite d&#233;velopper un soft de
gestion de collection de timbres. Mais pour l'instant je bloque &#224;
r&#233;cup&#233;rer des valeurs contenues dans les cellules d'une feuille nomm&#233;e
Collection et &#224; les appliquer &#224; la valeur de plusieurs Textbox
contenues dans une MultiPage1. 

Voici le code &#233;crit dans mon unique UserForm :



Public Sub Selection_Timbre()

txtConsultCat1.Value = Worksheets("Collection").Range("A2").Value

txtConsultCat1avch.Value = Worksheets("Collection").Range("H2").Value

txtConsultCat1obl.Value = Worksheets("Collection").Range("N2").Value

txtConsultSujet.Value = Worksheets("Collection").Range("D2").Value

cmbConsultCategorie.Value = Worksheets("Collection").Range("Q2").Value



End Sub



L'erreur g&#233;n&#233;r&#233;e est une erreur d'ex&#233;cution 9. "L'indice n'appartient pas &#224; la s&#233;lection."

Dois-je activer d'abord  ma feuille et comment ou bien un truc plus simple ?

Merci pour vos r&#233;ponses.

Matthieu

Molenn · Answer

Si je ne me trompe pas, ton code ne se trouve pas sur la feuille "Collection".
Rajoute juste avant, la commande :
worksheets("Collection").activate
puis remet ton code.
Ca devrait suffir.

Molenn

jpleroisse · Answer

Bonsoir,

Si ton code se trouve dans un module (comme cel&#224; doit-&#234;tre), tu mets



Sub Selection_Timbre()

UserForm1. txtConsultCat1.Text = Worksheets("Collection").Range("A2").Value

End Sub



Dans le code d'un bouton (ou autres)



Private Sub CommandButton1_Click()

Selection_Timbre

End Sub



jpleroisse

matfouc · Answer

En fait j'ai toujours la m&#234;me erreur en ayant rajout&#233; Worksheets("Collection").Activate comme ceci :



Private Sub Selection_Timbre()

Worksheets("Collection").Activate

txtConsultCat1.Value = Worksheets("Collection").Range("A2").Value

txtConsultCat1avch.Value = Sheets("Collection").Range("H2").Value

End Sub 



ainsi que ce code qui lance la proc&#233;dure Selection_Timbre lorsqu'on clique sur le 2&#232;me onglet de ma multipage :



Private Sub MultiPage1_Change()

If MultiPage1.Value = 1 Then

Selection_Timbre

End If

End Sub



Je pr&#233;cise que tout ce code est &#233;crit dans la page Code de ma UserForm qui s'appelle ColTim et non dans un module s&#233;par&#233;.



merci de vos premi&#232;res r&#233;ponses

jpleroisse · Answer

Bonsoir,

Je viens d'essy&#233; ton code, il fonctionne tr&#232;s bien.Ce n'est pas TextBox.Value, mais .Text



 Private Sub Selection_Timbre()

'Worksheets("Collection").Activate (tu n'es pas obliger d'activer la feuille)

txtConsultCat1.Text = Worksheets("Collection").Range("A2").Value

txtConsultCat1avch.Text = Sheets("Collection").Range("H2").Value

End Sub



Private Sub MultiPage1_Change()

If MultiPage1.Value = 1 Then

Selection_Timbre

End If

End Sub



jpleroisse

matfouc · Answer

Merci encore, je viens de comprendre mon erreur. En fait lorsque je faisais :

Worksheets("Collection").Range("A2").Value , la feuille que j'appelais
Collection avait bien pour propri&#233;t&#233; (Name) "Collection" mais pour la
propri&#233;t&#233; Name (sans parenth&#232;se) sa valeur &#233;tait "Collection de France".

J'ai rectifi&#233; cette erreur et maintenant tout marche.

Merci beaucoup 



Matthieu

Récupérer la valeur de cellules Excel et affectation à des TextBox

5 réponses

Discussions similaires