High-Tech Santé Médecine Droit-Finances

Auto-Entrepreneur

Comment faire ?

Rechercher : dans
Par :

Problème formulaire excel

Dernière réponse le 23 nov 2007 à 09:24:50 guillaume72, le 21 nov 2007 à 15:09:26 
 Signaler ce message aux modérateurs

Bonjour,

Je m'adresse à vous pour débloquer un problème qui me tient en haleine depuis plusieurs jours.
J'ai créé une base de données sous Excel (obligation professionnelle) et j'ai un problème avec un formulaire.

En effet j'ai créé un formulaire avec différents userforms à compléter. A la fin du formulaire, l'utilisateur valide et les données sont transférées dans la base excel via la fonction suivante :

Range("A65536").End(xlUp).Offset(1, 0).Value = Nomconverti
Range("E65536").End(xlUp).Offset(1, 0).Value = Me.txtSAP.Text

Les données se positionnent dans les bonnes colonnes et en dans la première ligne en bas de ma base.

Le souci vient du transfert de ces données. Quand ce sont des données "text", elles sont bien transférées dans ma base Excel. Cependant quand ce sont des données résultant d'un choix parmi une list (listbox) les données ne sont pas transférées dans ma base.
J'utilise la même programmation que pr le texte :

Range("I65536").End(xlUp).Offset(1, 0).Value = Me.categorie2.List

J'imagine que mon problème vient de ce point mais Excel ne détecte aucun souci de programmation.

Alors merci d'avance à tous ceux qui pourront m'aider à résoudre ce problème.

Guillaume

Configuration: Windows XP
Internet Explorer 6.0

Meilleures réponses pour « problème formulaire excel » dans :
Servlets - Gestion des formulaires VoirIntroduction aux formulaires Les servlets rendent très simple la récupération de données envoyées par l'intermédiaire de formulaires HTML, c'est-à-dire une interface graphique permettant à l'utilisateur de saisir des données. Grâce à la balise...
Posez votre question Répondre

1

Lupin.A, le 21 nov 2007 à 15:39:27

Bonjour,

Pour l'élément sélectionné :
Range("I65536").End(xlUp).Offset(1, 0).Value = Me.categorie2.List(Me.categorie2.ListIndex)

Lupin

   
Répondre à Lupin.A

2

guillaume72, le 22 nov 2007 à 08:36:09

Bonjour Lupin ( et à tout le monde),

J'ai essayé ta solution sous deux formes :

Range("I65536").End(xlUp).Offset(1, 0).Value = Me.categorie2.List(Me.categorie2.ListIndex)

Range("I65536").End(xlUp).Offset(1, 0).Value = Me.categorie2.ListIndex

Et aucune des deux solutions ne fonctionne...

   
Répondre à guillaume72

3

guillaume72, le 22 nov 2007 à 09:51:52

Re-bonjour,

je reviens vers vous car mon problème a évolué. En effet, les données sélectionnées parmi les userforms "Listbox" sont bien transférées dans ma base Excel. Le souci est que seule la donnée "nom de l'entreprise" s'ajoute à la dernière ligne de ma base de données. Toutes les autres données s'affichent dans les premières lignes de ma base car elles sont vierges.

Comment réussir à rattacher toutes les données entrées sur une même ligne ?

   
Répondre à guillaume72

4

Lupin.A, le 22 nov 2007 à 14:43:08

Bonjour Guillaume,

Je ne suis pas sur de bien comprendre !

Cet instruction [ Range("I65536").End(xlUp).Offset(1, 0).Value = Me.categorie2.List(Me.categorie2.ListIndex) ]
fonctionne bien chez moi, fonctionne-t-elle chez toi ?

Si les données sont toutes transférer en même temps :

L'instruction :
Ligne = Range("A65536").End(xlUp).Offset(1, 0).Row
te donne la ligne , ensuite tu fais comme suit :


Range("A" & ligne).Value = Nomconverti
Range("E" & ligne).Value = Me.txtSAP.Text
Range("I" & ligne).Value = Me.categorie2.List(Me.categorie2.ListIndex)

etc ...

Si par contre, il s'agit de récupérer plus d'un colonne dans les "listbox" c'est différent :

Range("I" & ligne).Value = Me.categorie2.List(Me.categorie2.ListIndex, 0)
Range("J" & ligne).Value = Me.categorie2.List(Me.categorie2.ListIndex, 1)

Lupin

   
Répondre à Lupin.A

5

 guillaume72, le 23 nov 2007 à 09:24:50

Re-bonjour Lupin,

Merci pour ton aide. Finalement j'ai trouvé la solution en utilisant le programme suivant :

For i = 0 To (Me.categorie2.ListCount - 1)
If Me.categorie2.Selected(i) Then
Sheets("BQSE").Range("L65536").End(xlUp).Offset(1, 0).Value = Me.categorie2.List(i)
J = J + 1
End If
Next

Cela me permet de récupérer les données selectionnées dans ma listbox

Bonne journée à tous

   
Répondre à guillaume72
Posez votre question Répondre
Ils ont besoin de votre aide
Collection CommentÇaMarche.net