bonjour a tous,
déjà, merci à ceux qui répondent: vous m'avez déjà bcp aidé!
mais la, je bloque depuis 1 semaine...(j'ai plus bcp de cheveux!)
voici mon 1er userform...:
combobox depuis liste de données (qui ne remonte pas)
3 textbox
2 boutons
plusieurs choses:
la combobox est vide (il faudrait la colonne C de "données")
le curseur ne bouge pas et les boutons inactifs
Pb au lancement depuis bouton 182
une fois que cela marche, j'aimerai intégrer les données dans chaque feuille annuelle, à la suite du modèle précisée ds le combobox.... mais j'essaierai.
voici mon code: attention, c'est du patchwork!!
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize() 'parametrage USF
mon_userform.Height = 250
mon_userform.Width = 240
ComboBox_pompe.AddItem "AC-SPERHI Mystrale"
ComboBox_pompe.AddItem "AC-SPERHI Expert Autonome"
ComboBox_pompe.AddItem "AC-SPERHI Mystrale Autonome"
ComboBox_pompe.AddItem "C&S - SMART PUMP 1.6"
ComboBox_pompe.AddItem "C&S - SMART PUMP B"
ComboBox_pompe.AddItem "DELTANOVA GH18G3"
End Sub
Private Sub CommandButton2_Click() 'alerte erreur
If TextBox_serie.Value = "" Then
Label1.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_MES.Value = "" Then
Label2.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_etalonnage.Value = "" Then
Label3.ForeColor = RGB(255, 0, 0)
ElseIf ComboBox_pompe.Value = "" Then
Label.ComboBox_pompe.ForeColor = RGB(255, 0, 0)
Else
Dim modele As String, no_ligne As Long, lastrow As Long
If ComboBox_pompe.Value <> "" Then
modele = ComboBox_pompe.Value
lastrow = Range("B" & Rows.Count).End(xlUp).Row 'recherche emplacement insertion données
For i = lastrow To 8
If Cells(i - 1, 2) = modele Then
Row(i).Insert shift:=xlDown
Next
no_ligne = i + 1
Range(no_ligne, 1) = textbox_kalilab.Value 'insertion données
Range(no_ligne, 3) = TextBox_serie.Value
Range(no_ligne, 4) = TextBox_MES.Value
Range(no_ligne, 5) = TextBox_etalonnage.Value
OptionButton2.Value = True 'reinitialisation
TextBox_serie.Value = ""
TextBox_MES.Value = ""
TextBox_etalonnage.Value = ""
ComboBox_pompe.Value = ""
End Sub
merci d'avance.
fabrice
déjà, merci à ceux qui répondent: vous m'avez déjà bcp aidé!
mais la, je bloque depuis 1 semaine...(j'ai plus bcp de cheveux!)
voici mon 1er userform...:
combobox depuis liste de données (qui ne remonte pas)
3 textbox
2 boutons
plusieurs choses:
la combobox est vide (il faudrait la colonne C de "données")
le curseur ne bouge pas et les boutons inactifs
Pb au lancement depuis bouton 182
une fois que cela marche, j'aimerai intégrer les données dans chaque feuille annuelle, à la suite du modèle précisée ds le combobox.... mais j'essaierai.
voici mon code: attention, c'est du patchwork!!
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize() 'parametrage USF
mon_userform.Height = 250
mon_userform.Width = 240
ComboBox_pompe.AddItem "AC-SPERHI Mystrale"
ComboBox_pompe.AddItem "AC-SPERHI Expert Autonome"
ComboBox_pompe.AddItem "AC-SPERHI Mystrale Autonome"
ComboBox_pompe.AddItem "C&S - SMART PUMP 1.6"
ComboBox_pompe.AddItem "C&S - SMART PUMP B"
ComboBox_pompe.AddItem "DELTANOVA GH18G3"
End Sub
Private Sub CommandButton2_Click() 'alerte erreur
If TextBox_serie.Value = "" Then
Label1.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_MES.Value = "" Then
Label2.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_etalonnage.Value = "" Then
Label3.ForeColor = RGB(255, 0, 0)
ElseIf ComboBox_pompe.Value = "" Then
Label.ComboBox_pompe.ForeColor = RGB(255, 0, 0)
Else
Dim modele As String, no_ligne As Long, lastrow As Long
If ComboBox_pompe.Value <> "" Then
modele = ComboBox_pompe.Value
lastrow = Range("B" & Rows.Count).End(xlUp).Row 'recherche emplacement insertion données
For i = lastrow To 8
If Cells(i - 1, 2) = modele Then
Row(i).Insert shift:=xlDown
Next
no_ligne = i + 1
Range(no_ligne, 1) = textbox_kalilab.Value 'insertion données
Range(no_ligne, 3) = TextBox_serie.Value
Range(no_ligne, 4) = TextBox_MES.Value
Range(no_ligne, 5) = TextBox_etalonnage.Value
OptionButton2.Value = True 'reinitialisation
TextBox_serie.Value = ""
TextBox_MES.Value = ""
TextBox_etalonnage.Value = ""
ComboBox_pompe.Value = ""
End Sub
merci d'avance.
fabrice