ComboBox et remplissage de TextBox

[G'Claire]

Bonjour a toutes et tous

J'utilise ce code (ou devrai-je dire je me bas avec un code) pour Remplir un ComboBox et suivant le résultat de celui-ci remplire les Textbox, mais le problème, (et oui problème il y a ) arrivé au cinquième choix le remplissage ne se fait plus.


Option Explicit

Dim WSDonneesSalles As Worksheet
Dim Plage2 As Range
Dim B As Long
Dim PlageSalles As String

Private Sub cbxNomDeSalle_Change()
Set WSDonneesSalles = Sheets("Salles")
Set Plage2 = WSDonneesSalles.Range("A5:A" & Range("E65535").End(xlUp).Row)

On Error Resume Next
B = Plage2.Find(What:=cbxNomDeSalle, LookAt:=xlWhole).Row


With WSDonneesSalles

txtTelSalle = .Range("F" & B)
txtLieuSalle = .Range("D" & B)
txtCodePostalLieuSalle = .Range("E" & B)

End With

End Sub


Private Sub UserForm_Initialize()

Set WSDonneesSalles = Worksheets("Salles")

With WSDonneesSalles
PlageSalles = .Range("A5:A" & .Range("A2000").End(xlUp).Row).Address
End With

cbxNomDeSalle.RowSource = "Salles!" & PlageSalles

End Sub

En choisissant une sale dans le ComboBox cela devrait me donner ses coordonnées, alors que dans ce cas de figure cela me les doinne mais que juste les 4 premières les autres ne suivent pas.

Je vous remercie par avance de vos suggestions, G'Claire

 

[Pascal76]

Salut G_Claire

Bon j'ai regardé ton fichier

La ligne a modifié est celle ci

Set Plage2 = WSDonneesSalles.Range("A5:A" & Range("E65535").End(xlUp).Row)

Il faut

Set Plage2 = WSDonneesSalles.Range("A5:A" & WSDonneesSalles.Range("E65535").End(xlUp).Row)

C'est valable pour toutes tes plages que tu déclares ainsi.

Bon courage

Pascal

 

[G'Claire]

Pascal, le forum

Merci, de ton aide, c'est nickel.

Salut,G'Claire

 

[Alex]

combobox initialisé

Bonjour!

J'aurais voulu savoir comment faire pour que dans ma feuille excel ma combobox soit rempli dès l'ouverture??

Et aussi...
comment realiser une version imprimable à partir d'une User form ??

Merci d'avance