Recuperation d'une cellule vide vers Combo ou textbox
gislain99
-
25 mai 2013 à 21:00
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 2018
-
26 mai 2013 à 15:38
Bonjour,
J'ai un Userform nomé "Userform3" avec une multipage. Sur une des pages nomé "Containers" j'ai plusieur textbox
listbox bouton qui me permete de renseigner une feuille excel nomé "bases containers" j'ai un bouton pour réaliser des modifications quand je clique dessus j'ouvre un userform nomé "Userform5" qui me demande de saisir l'immatriculation à modifier puis je valide et la j'ais toutes les info disponible sur cette immatriculation qui réaparesse dans les textbox listbox de ma page nomé "container" mon souci est que ci je n'ai pas renseigné une textbox ou listbox il me met une erreur car il n'accepte pas la cellule vide.
Private Sub CommandButton1_Click()
Dim cel As Range, lig&, i&
If TextBox1 + TextBox2 + Label2 + TextBox3 <> "" Then
Set cel = Feuil11.Range("A2:A" & Feuil11.Range("A" & Rows.Count).End(xlUp).Row).Find(TextBox1 + TextBox2 + Label2 + TextBox3, , , xlWhole)
If Not cel Is Nothing Then lig = cel.Row Else MsgBox "Cette Immatriculation n'existe pas !", , "Pas de corresp": Exit Sub
UserForm3.TextBox4 = Left(Feuil11.Cells(lig, 1), 4)
UserForm3.TextBox5 = Mid(Feuil11.Cells(lig, 1), 5, [6])
UserForm3.TextBox6 = Right(Feuil11.Cells(lig, 1), 1)
UserForm3.ComboBox1 = Feuil11.Cells(lig, 3)
UserForm3.ComboBox2 = Feuil11.Cells(lig, 4)
UserForm3.TextBox18 = Feuil11.Cells(lig, 5)
UserForm3.TextBox146 = Feuil11.Cells(lig, 6)
UserForm3.ComboBox3 = Feuil11.Cells(lig, 7)
UserForm3.TextBox10 = Feuil11.Cells(lig, 8)
UserForm3.ComboBox5 = Feuil11.Cells(lig, 9)
UserForm3.ComboBox6 = Feuil11.Cells(lig, 10)
UserForm3.ComboBox7 = Feuil11.Cells(lig, 11)
UserForm3.ComboBox8 = Feuil11.Cells(lig, 12)
UserForm3.TextBox20 = Feuil11.Cells(lig, 13)
UserForm3.TextBox61 = Feuil11.Cells(lig, 14)
Sheets("Bases_Containers").Rows(lig).Delete
Sheets("Impression_Liste_Containers").Rows(lig).Delete
UserForm3.ListBox1.RowSource = UserForm3.ListBox1.RowSource
UserForm5.Hide
End If
End Sub
A voir également:
Recuperation d'une cellule vide vers Combo ou textbox
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201823 26 mai 2013 à 15:38
Avec des combobox, tu peux utiliser MonCombo.AddItem pour ajouter un élément à sa liste ou le remplir d'un seul coup avec une plage, du genre
MonCombo.List = MonRange.Value
Et comme le dit cmarcotte, il est nécessaire quelquefois de valider une valeur avant de l'utiliser. Ça pourrait être le cas de tes appels à Left, Mid et Right qui réagiraient mal si la cellule était vide...
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI