XL 2010 reglage userform

[fabrice31]

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

 

[fabrice31]

parfait.

Merci!

 

[fabrice31]

salut,

nouveau blocage.
j'ai un 'while/went' qui fonctionne tres bien.
par contre, je ne trouve pas comment gerer le fait de ne rien trouver.

je boucle en remontant ds ma colonne jusqu'à trouver la première cellule avec un valeur. si elle trouve la valeur, j’insère un nouvelle ligne dessous. Si aucune cellule ne contient cette valeur, j'aimerai créer une nouvelle ligne à la fin du tableau.

mais le while me plante le process au lieu de continuer à vide...

si vous avez des idées...

merci