Valeur des textbox, pas sur ligne vide

Pierrot93

XLDnaute Barbatruc

• 30 Août 2007

• #2

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 :

Code:

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
@+

 

Vote positif 0 Vote négatif

G

Geraldine

XLDnaute Occasionnel

• 30 Août 2007

• #3

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

 

Pièces jointes

• FICHIER Article.zip

  37.7 KB · Affichages: 22
• FICHIER Article.zip

  37.7 KB · Affichages: 33
• FICHIER Article.zip

  37.7 KB · Affichages: 29

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Août 2007

• #4

Re : Valeur des textbox, pas sur ligne vide

Re,

as tu lu mon message ?

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 30 Août 2007

• #5

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

 

Vote positif 0 Vote négatif

G

Geraldine

XLDnaute Occasionnel

• 30 Août 2007

• #6

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

 

Vote positif 0 Vote négatif

G

Geraldine

XLDnaute Occasionnel

• 30 Août 2007

• #7

Re : Valeur des textbox, pas sur ligne vide

je regarde de nouveau

 

Dernière édition: 30 Août 2007

Vote positif 0 Vote négatif

G

Geraldine

XLDnaute Occasionnel

• 30 Août 2007

• #8

Re : Valeur des textbox, pas sur ligne vide

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

 

Dernière édition: 30 Août 2007

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 30 Août 2007

• #9

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

 

Vote positif 0 Vote négatif

Excel_lent

XLDnaute Impliqué

• 30 Août 2007

• #10

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.

 

Pièces jointes

• FICHIER Article1.zip

  23.3 KB · Affichages: 29

Vote positif 0 Vote négatif

G

Geraldine

XLDnaute Occasionnel

• 30 Août 2007

• #11

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, @

 

Vote positif 0 Vote négatif