G
G'Claire
Guest
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
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