GysEcxelVBA
XLDnaute Nouveau
bonjour,
j'ai un userform avec une combobox qui s'écrit dans une cellule précise et j'ai 43 textbox qui ont la valeur de différentes cellules.
Problème : certaines cellules sont vide et les textbox affiche un "0" : quel code vba en plus à mettre pour empecher l'afficher de 0 si cellule vide.
j'ai un userform avec une combobox qui s'écrit dans une cellule précise et j'ai 43 textbox qui ont la valeur de différentes cellules.
Problème : certaines cellules sont vide et les textbox affiche un "0" : quel code vba en plus à mettre pour empecher l'afficher de 0 si cellule vide.
Code:
Private Sub UserForm_Initialize()
Dim i
For i = 1 To 358
combobox1.AddItem ThisWorkbook.Sheets("calcul").Cells(i, 20)
Next
End Sub
Private Sub Villes_Change()
ThisWorkbook.Sheets("calcul").Range("W6").Value = combobox1.Value
textbox1.Value = ThisWorkbook.Sheets("calcul").Range("W6").Value
textbox2.Value = ThisWorkbook.Sheets("calcul").Range("W8").Value
textbox3.Value = ThisWorkbook.Sheets("calcul").Range("W9").Value
textbox3.Value = ThisWorkbook.Sheets("calcul").Range("W7").Value