Valeur des textbox, pas sur ligne vide

[Geraldine]

Bonjour le forum,

J'ai une userform "CREATION ARTICLE", lors de sa validation, je veux que les infos en gras dans le code, soit sur la meme ligne que la ComboBoxCF, afin d'eviter si pas de données dans certaines textbox, quel les infos se melange. Merci Géraldine

Private Sub BT_Valider_Click()
Range("B65536").End(xlUp).Offset(1, 0).Value = UserFormArt.ComboBoxCF & ""
Range("F65536").End(xlUp).Offset(1, 0).Value = UserFormArt.ComboBoxM & ""
Range("D65536").End(xlUp).Offset(1, 0).Value = UserFormArt.TextBoxRef & ""
Range("H65536").End(xlUp).Offset(1, 0).Value = UserFormArt.TextBoxGam & ""
Range("I65536").End(xlUp).Offset(1, 0).Value = UserFormArt.TextBoxDes & ""
Range("J65536").End(xlUp).Offset(1, 0).Value = UserFormArt.TextBoxP & ""
Range("w65536").End(xlUp).Offset(1, 0).Value = UserFormArt.ComboBoxf3 & ""
Range("x65536").End(xlUp).Offset(1, 0).Value = UserFormArt.ComboBoxf4 & ""
Unload UserFormArt
End Sub

 

[Pierrot93]

Re : Valeur des textbox, pas sur ligne vide

Bonjour Geraldine

peut être en jouant avec les numéros de colonne des "offset" et en gardant la ligne b :

Private Sub BT_Valider_Click()
Range("B65536").End(xlUp).Offset(1, 0).Value = UserFormArt.ComboBoxCF & ""
Range("b65536").End(xlUp).Offset(0, 2).Value = UserFormArt.TextBoxRef & ""
Range("b65536").End(xlUp).Offset(0, 4).Value = UserFormArt.ComboBoxM & ""
Range("b65536").End(xlUp).Offset(0, 6).Value = UserFormArt.TextBoxGam & ""
Range("b65536").End(xlUp).Offset(0, 7).Value = UserFormArt.TextBoxDes & ""
Range("J65536").End(xlUp).Offset(0, 0).Value = UserFormArt.TextBoxP & ""
Range("b65536").End(xlUp).Offset(0, 21).Value = UserFormArt.ComboBoxf3 & ""
Range("b65536").End(xlUp).Offset(0, 22).Value = UserFormArt.ComboBoxf4 & ""
Unload UserFormArt
End Sub

bon après midi
@+

 

[Geraldine]

Re : Valeur des textbox, pas sur ligne vide

je me permet de mettre mon fichier en ligne, mes problèmes

- J'ai une userform "CREATION ARTICLE", lors de sa validation, je veux que les infos en gras dans le code, soit sur la meme ligne que la ComboBoxCF, afin d'eviter si pas de données dans certaines textbox, quel les infos se melange.
Par exemple si comboboxCF en ligne 11/colonneB, toutes les infos des textbox de la userform en ligne 11 / Colonne F, D, H ... etc ...

- modifier un article, choix d'un article dans combobox si article en ligne 12, rappel des infos ligne 12 / Colonne F, D, H ... etc ...

et encore merci à toutes vos contributions,

Cordialement Géraldine

 

[Pierrot93]

Re : Valeur des textbox, pas sur ligne vide

Re,

as tu lu mon message ?

 

[Bebere]

Re : Valeur des textbox, pas sur ligne vide

bonjour Geraldine,Pierrot

essaye le code suivant

Private Sub BT_Valider_Click()
Dim L As Long
If TextBoxRef = "" Or TextBoxGam = "" Or TextBoxDes = "" Or TextBoxP = "" Or TextBoxD = "" Or TextBoxPIC = "" Or TextBoxSC = "" Or TextBoxPOC = "" Or TextBoxCP = "" Or ComboBoxCF = "" Or ComboBoxM = "" Or ComboBoxF1 = "" Or ComboBoxf2 = "" Or ComboBoxf3 = "" Or ComboBoxf4 = "" Then
MsgBox "Veuillez remplir toutes les données"
Exit Sub
End If
L = UserFormArt.ComboBoxCF.ListIndex + 10
Range("B" & L).Value = UserFormArt.ComboBoxCF & ""
Range("F" & L).Value = UserFormArt.ComboBoxM & ""
Range("D" & L).Value = UserFormArt.TextBoxRef & ""
Range("H" & L).Value = UserFormArt.TextBoxGam & ""
Range("I" & L).Value = UserFormArt.TextBoxDes & ""
Range("J" & L).Value = UserFormArt.TextBoxP & ""
Range("w" & L).Value = UserFormArt.ComboBoxf3 & ""
Range("x" & L).Value = UserFormArt.ComboBoxf4 & ""
Unload UserFormArt
End Sub

à bientôt

 

[Geraldine]

Re : Valeur des textbox, pas sur ligne vide

re bebere et pierrot93 et désolé pierrot je n'avais pas vu, je regarde vos deux propositions

 

[Geraldine]

Re : Valeur des textbox, pas sur ligne vide

je regarde de nouveau

 

[Geraldine]

Re : Valeur des textbox, pas sur ligne vide

donc non après plusieurs essais, bebere ça marche pas ,mais pierrot93 peut etre que oui
@

 

[Bebere]

Re : Valeur des textbox, pas sur ligne vide

salut

et ce qui suit


Private Sub BT_Valider_Click()
If TextBoxRef = "" Or TextBoxGam = "" Or TextBoxDes = "" Or TextBoxP = "" Or TextBoxD = "" Or TextBoxPIC = "" Or TextBoxSC = "" Or TextBoxPOC = "" Or TextBoxCP = "" Or ComboBoxCF = "" Or ComboBoxM = "" Or ComboBoxF1 = "" Or ComboBoxf2 = "" Or ComboBoxf3 = "" Or ComboBoxf4 = "" Then
MsgBox "Veuillez remplir toutes les données"
Exit Sub
End If
with Sheets("Article")
1ère ligne vide de la feuille article
L = .Range("B65536").End(xlUp).Row + 1
.Range("B" & L).Value = UserFormArt.ComboBoxCF
.Range("F" & L).Value = UserFormArt.ComboBoxM
.Range("D" & L).Value = UserFormArt.TextBoxRef
.Range("H" & L).Value = UserFormArt.TextBoxGam
.Range("I" & L).Value = UserFormArt.TextBoxDes
.Range("J" & L).Value = UserFormArt.TextBoxP
.Range("w" & L).Value = UserFormArt.ComboBoxf3
.Range("x" & L).Value = UserFormArt.ComboBoxf4
End With

Unload UserFormArt

End Sub

à bientôt

 

[Excel_lent]

Re : Valeur des textbox, pas sur ligne vide

Salut à tous et aux autres,

Pour éviter d'écraser des données il serait intéressant d'écrire les nouvelles sur la plus grande des dernièreslignes non vides des colonnes.
Pourquoi ce bouton "Modifier" ?
Une MFC permet de voir si une ligne est complète ou pas.
Tu as, sur une ligne, au moins 8 colonnes vides avec ta présentation. Un test sur ce
nombre (colonne Y cachée) permet de savoir si des lignes ne sont pas remplies.

Vois et dis nous.

 

[Geraldine]

Re : Valeur des textbox, pas sur ligne vide

alors bonjour excel-lent,

re bebere, ça fonctionne aussi merci.

excel-lent > BT_Modifier afin de pouvoir modifier les fiches articles et colonnes cachées oui c'est la roue de secours, si besoin de colonnes dans le temps, c'est possible. J'ai deja eu le cas, rajouté des colonnes et après c'est partis pour la regul de tous les codes puisque tout est decalé. En plus je ne veux pas forcer la saisie.

J'ai modifié le fichier, ma ligne de reference n'est plus le "code famille" (ComboBoxCF) mais "la référence" (ComboBoxRef) en colonne B. J'ai inversé les deux colonnes.
J'avais mis un bouton modifier, pour justement modifier un article.
Dans la comboboxRef, je peux selectionner une reference existente, toutes les données s'insere, et c'est la mon deuxieme problème, c'est que je veux enregistrer les modifications, alors que pour l'instant, il me crée une nouvelle fiche, forcément, donc je reflechis, mais je tourne en rond....

merci, @