menu déroulant pour acrementer une base

[Amiral75]

Bonsoir à tous,

Etant novice, plus bidouillard qu'autre chose, j'ai besoin d'aide.....
Afin de pouvoir utiliser les tableaux croisés dynamique, il faut que j'acremante mon fichier de manière lineaire.
Pour facilité la saisie, j'ai bidouillé un vba, il n'y a pas de problème pour que les saisie s'enregistrent lineairement tant qu'il s'agit d'un texbox.
Lorsque j'utilise un menu déroulant je n'y arrive pas. ....

Merci de votre aide 🙂)

 

[ChTi'160]

Salut"Amiral"
que veux tu dire par
Lorsque j'utilise un menu déroulant je n'y arrive pas. ....
dans ton userform tu as deux listbox que veux tu en faire
merci
A+++
Jean Marie

 

[ChTi'160]

re
je viens de regarder ton code
lorsques tu as
For i = 1 To 10
Sheet1.Cells(L + i, 1) = Me.Controls("TextBox" & i)
Next
tu renvoies la valeur des control TexBox si tu remplace TexBox par ListBox
ce seront les valeurs des Listbox 1 à 10 si elles exitent bien sur
tu pourrais avoir
For i = 1 To 10
Sheet1.Cells(L + i, 1) = Me.Controls("Combobox" & i)
Next
si tes controls sont des combobox lol
j'ai dans les propriétés de tes comBobox supprimer l'action de Change
qui te mettait les valeurs dans les cellules C3 et D3
en esperant avoir fias avancer la chose
tiens nous au courant
A+++
Jean Marie

 

[ChTi'160]

Re
ton fichier modifieé il ne comprend que des ComBoBox
A+++
Jean Marie

 

[Amiral75]

Bonjour,

Merci de se pencher sur mon problème.

L'idée est de remplacer certaines textbox par des listbox mais en conservant la finalité.
C'est à dire que les informations saisis apparaissent dans la base de donnée de manière lineaire et qu'a chaque nouvelles saisis, elle se mettent en dessous de l'autre

Merci

@+

 

[ChTi'160]

re "Amiral75"
avec le peu d'info que j'ai (L'idée est de remplacer certaines textbox par des listbox)je t'ai bidouillé celà
2 Combobox et 8 textBox
qui remplissent ta base de données
tiens moi au courant
A+++
Jean Marie

 

[Amiral75]

Merci à toi c'est super

Tu vas penser que j'abuse

mais il y a un moyen qu' a chaque validation de la zone de saisie du masque celui-ci soit de nouveau vide afin d'éviter d'eventuel erreur lors d'une nouvel saisis.

Merci encore pour tous

 

[ChTi'160]

Re Salut
tu remplaces la procèdure du bouton Validation par celle ci
Private Sub CommandButton1_Click()
Dim y As Byte, i As Byte, x As Byte, L As Integer, C As Byte
Dim ctrl As Control
Application.ScreenUpdating = False
i = 1
L = Sheet1.Range("A35000").End(xlUp).Row + 1
For Each ctrl In Me.Controls
If TypeName(ctrl) = "ComboBox" Then
For C = 1 To 2
Sheet1.Cells(L, C) = Me.Controls("ComboBox" & C)

Next C

Else

If TypeName(ctrl) = "TextBox" Then
Sheet1.Cells(L, C) = Me.Controls("textbox" & i)
i = i + 1
End If
C = C + 1
End If
Next
For C = 1 To 2
Me.Controls("ComboBox" & C).Text = ""
Next
For i = 1 To 8
Me.Controls("textbox" & i) = ""
Next
Application.ScreenUpdating = True

End Sub
A+++
Jean Marie

 

[AMIRAL 75]

MERCI POUR TOUS
C'EST SUPER

BONNE SOIREE

@+