enregistrement tableau excel suivant les données entrées dans combobox

Version imprimable

24/05/2009, 09h57
mdambreville

enregistrement tableau excel suivant les données entrées dans combobox

bonjour le forum,

j'ai un usf (bons de livraison)avec 1 textbox(nombre),1 combobox(produit) , 1 textbox(poids)

j'ai un tableau avec : 1 colonne(écran)1souscolonne(poids)1souscolonne(nombre)
1 colonne(uc)1souscolonne(poids)1souscolonne(nombre).

je sais faire quand c'est des données 'fixes'

là par exemple si dans mon combobox1,j'ai "ecran" avec en nombre 10 et en poids 25, les données se mettent dans la bonne colonne.

Pouvez vous m'aiguiller car je suis complètement larguée
merci
24/05/2009, 10h30
Lynx92260

Clarifier par un exemple ...

Bonjour

J'avoue ne pas bien comprendre ton problème car tu n'expliques pas la nature

Un fichier à joindre dans ton message serait le bienvenu qui permettrait de mieux comprendre en bradant bien sur les données contenues .......

:ccool:
24/05/2009, 10h46
mdambreville

1 pièce(s) jointe(s)

je te joints mon fichier.

le usf à partir duquel je veux travailler c'est
menu general
clients
bons
le fichier excel rattaché c'est "entrée"
merci en attendant.

J'essaie de voir avec des if then else
mais je ne m'y connais pas trop
merci de ton aide

Je te propose

cette approche

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Private Sub CommandButton1_Click()
Dim Xls As Worksheet, lLig As Long
    Set Xls = ThisWorkbook.Worksheets("entrée")
    'Recherche la ligne disponible
 
    lLig = 3
    While Xls.Cells(lLig, 1) <> ""
        lLig = lLig + 1
    Wend
    ' insere les donnees de la commande des cinq premieres colonnes
    ..... code 
    ' Aiguillage selon la nature
    Select Case ComboBox55
        Case "uc"
        Xls.Cells(lLig, 6) = TextBox90.Value
        Xls.Cells(lLig, 7) = TextBox108.Value
        Case "ecran"
        Xls.Cells(lLig, 8) = TextBox90.Value
        Xls.Cells(lLig, 9) = TextBox108.Value
    End Select
 
    ' Fin d 'enrgistrement dans entrees
 
 
End If
 
End Sub

A plus :ccool:

le code marche impec

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub CommandButton1_Click()
Sheets("entrée").Activate
Dim Xls As Worksheet, lLig As Long
    Set Xls = ThisWorkbook.Worksheets("entrée")
    'Recherche la ligne disponible
    lLig = 3
    While Xls.Cells(lLig, 1) <> ""
        lLig = lLig + 1
    Wend
    ' insere les donnees de la commande des cinq premieres colonnes
   Xls.Cells(lLig, 1) = TextBox113.Value
    Xls.Cells(lLig, 3) = TextBox112.Value
   Xls.Cells(lLig, 4) = TextBox111.Value
   Xls.Cells(lLig, 5) = TextBox110.Value
    ' Aiguillage selon la nature
    Select Case ComboBox55
        Case "uc"
        Xls.Cells(lLig, 6) = TextBox90.Value
        Xls.Cells(lLig, 7) = TextBox108.Value
        Case "ecran"
        Xls.Cells(lLig, 8) = TextBox90.Value
        Xls.Cells(lLig, 9) = TextBox108.Value
    End Select
    ' Fin d 'enrgistrement dans entrees
Unload Me
End Sub

par contre vu que j'ai pas mal de combobox, est ce que je peux faire une boucle et peux tu me dire la marche à suivre car jamais fait ça (juste entendu)

Un peu d'organisation dans les noms

les noms des txtboxes et combox etc ..... ne sont vraiment pas significatifs !!!! et donc pas tres exploitables

Si tes controles étaient bien nommes on peut automatiser

exemple

TxtQte01.Text
CmbNat01.Text
TxtPds01.Text
TxtQte02.Text
TxtNat02.Text
TxtPds02.Text
......

enieme controles
TxtQtenn.Text
CmbNatnn.Text
TxtPdsnn.Text

Sinon pour répondre à ta question

un extrait
Code:

1 2 3 4 5 6 7 8 Dim Ctrl as Control ' a toi de l'adapter seloin tes besoins ' pour chacun des controls de l'userform ...... For Each Ctrl In Me.Controls ' Aiguillage selon la nature ' if Crt.Name Like "Txt...." then Select Case Ctrl
Sinon j'aurai fait sous la form d'une liste que j'ajoute au fur a mesure ....

:ccool:

j'ai reussi en appliquant la premiere solution meme si j'ai plein de combobox et ca marche.

Par contre j'ai un souci quand je veux afficher mes infos dans mon userform
Code:

1 2 3 4 5 6 7 8 9 10 11 If "Cells(0, 7)<0" Then Me.TextBox90 = c.Offset(0, 10) Me.TextBox108 = c.Offset(0, 11) Me.ComboBox55 = c.Offset(0, 9) 'ecran Else Me.TextBox90 = c.Offset(0, 7).Value Me.TextBox108 = c.Offset(0, 8).Value Me.ComboBox55 = c.Offset(0, 6).Text 'uc End If
c'est à dire je voudrais par exemple quand ma cellule H3de ma feuille excel est vide alors mes cellules k3,l3,j3("ecran") se mettent dans mon usf (ca c'est bon)par contre quand H3 n'est pas vide, alors ce sont mes cellules h3,i3,g3("uc")qui s'affichent mais là ca ne s'affiche pas.
Dans mon usf, c'est toujours "ecran" qui s'affiche : quand h3 est rempli.

Je ne sais pas si c'est trop clair

01/06/2009, 10h28
aalex_38

sans lire en détail :

Code:

If "Cells(0, 7)<0" Then

ne doit pas être entre "".

Ici tu ne test rien.