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

**mdambreville** · 24/05/2009, 09h57

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

**Lynx92260** · 24/05/2009, 10h30

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 .......

**mdambreville** · 24/05/2009, 10h46

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

**Lynx92260** · 24/05/2009, 10h47

cette approche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**mdambreville** · 24/05/2009, 12h45

le code marche impec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

**Lynx92260** · 24/05/2009, 13h36

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ....

**mdambreville** · 31/05/2009, 13h14

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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