[excel2007] erreur sur code userform

Fermé
ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 - 4 déc. 2011 à 19:11
ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 - 5 déc. 2011 à 15:54
Bonjour,
Suite à une précédente question sur un code userform, gbinforme m'à gentiment aidé en me fournissant le dit code
Je l'ai trouvé impeccable est j'ai donc mis en résolu pensant que je m'arrangerais du reste.
Mais j'ai quand même 3 petits soucis que je ne sais pas corrigé.

https://www.cjoint.com/?ALes46GGSgz

1 - Lors du remplissage du userform, si je sélectionne la référence 1 de chaque famille, j'ai un message d'erreur.

2 - Lors de la validation du userform vers la feuille "traitement", je souhaiterais qu'il ne s'inscrive uniquement que les données rentrées dans le userform. Hors là, sur la ligne créée apparaît les 3 prix(je ne voudrais que celui que j'ai sélectionné) ainsi que le stock(que je ne voudrais pas du tout)
De plus j'ai rajouter un textbox "quantité" que je rentre en manuel et j'aimerais qu'il figure dans la ligne créée.

3 - Je voudrais une vérification comme quoi toutes les cases du userform soit remplies avant la validation et si ce n'est pas le cas, mettre éventuellement un message indiquant qu'il manque une donnée.

Je suis désolé, cela fait beaucoup mais je ne sais pas me débrouillé par moi même en vba

Merci d'avance





A voir également:

2 réponses

ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 5
4 déc. 2011 à 19:42
Pour l'instant j'ai essayer cela pour la validation et la création de la ligne

Private Sub CommandButton1_Click()
With Sheets("traitement")
    .[A65536].End(xlUp).Offset(1, 0) = ComboBox2.Value
    .[B65536].End(xlUp).Offset(1, 0) = TextBox1.Value
    .[C65536].End(xlUp).Offset(1, 0) = TextBox2.Value
    .[D65536].End(xlUp).Offset(1, 0) = ComboBox3.Value
    .[E65536].End(xlUp).Offset(1, 0) = TextBox3.Value
End With
End Sub


Cela marche mais je n'ai pas la vérification
0
ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 5
5 déc. 2011 à 15:54
petit up pour de l'aide :)
0