Userform : Récupération des données

skoobi

XLDnaute Barbatruc

• 4 Juillet 2008

• #2

Re : Userform : Récupération des données

Bonjour,

C'est pas sympa de faire du multipost 🙁 ici la source

 

Vote positif 0 Vote négatif

T

tofoo

Guest

• 4 Juillet 2008

• #3

Re : Userform : Récupération des données

je sais que c'est contraire aux règles du forum et je m'en excuse mais mon 1er post est un peu tombé aux oubliettes et il ne correspondait plus vraiment au titre de départ. 🙂

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 4 Juillet 2008

• #4

Re : Userform : Récupération des données

Re,

Non je ne crois pas vois-tu vu que Hasco t'as répondu et la preuve je l'ai cité (le message). Dans ce cas mets-y un lien vers celui-ci pour que Hasco soit au courant si jamais il répond tout de même (ce qui va surement arriver).

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 4 Juillet 2008

• #5

Re : Userform : Récupération des données

Re,

Et en fait ça ne récupérer qu'une partie des données.

Cliquez pour agrandir...

Quelles données ne sont pas récupérés?
Si tu pouvais nous lister ceux qui posent problème.
Avec certains boutons "Next", tu écris déjà le résultat dans la feuille "Result" donc si tu refais la même chose avec le bouton "End", il y aura des doublons non?

 

Vote positif 0 Vote négatif

justine

XLDnaute Occasionnel

• 4 Juillet 2008

• #6

Re : Userform : Récupération des données

bonsoir le forum.
je crois que tu desires faire une boucle imbriquée
si c'est cela, enleve ton premier next et place le juste apres le second.
ai je bien saisi ton probleme?

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 4 Juillet 2008

• #7

Re : Userform : Récupération des données

Bonsoir,

Je trouve embêtant de changer le contenu de certaines cellules avant d’être sûr du résultat.
Voilà pourquoi je t’ai proposé une autre façon de récupérer les contenus des contrôles (à la fin des saisies, bouton END).

Si tu rajoutes des contrôles, il te suffit de changer les nombres dans la procédure. par exemple :

Code:

...
For Colonne = 5 To [COLOR=Red][B]51[/B][COLOR=Black]'avec un dernier Combobox[B]47[/B][/COLOR][/COLOR]
  .Cells(Li, Colonne) = Controls("Combobox" & Colonne - 4).Value
Next
...

 

Vote positif 0 Vote négatif

T

tofoo

Guest

• 9 Juillet 2008

• #8

Re : Userform : Récupération des données

Bonjour a tous,

merci pour vos réponses.

Voici ce que j'ai fais :

With Sheets("Result")
Li = .Range("A65536").End(xlUp).Row + 1
For Colonne = 1 To 4
.Cells(Li, Colonne) = Controls("Textbox" & Colonne).Value
Next
For Colonne = 5 To 58
.Cells(Li, Colonne) = Controls("Combobox" & Colonne - 4).Value
Next
For Colonne = 59 To 88
.Cells(Li, Colonne) = Controls("Textbox" & Colonne - 58).Value
Next
End With

ça marche à peu prés même s'il y a encore qq réponses incohérentes...

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 9 Juillet 2008

• #9

Re : Userform : Récupération des données

Bonsoir,

Tes numéros de colonnes correspondent aux numéros de tes contrôles.
Modifie ces derniers pour la cohérence d'affichage (voir image dans fichier joint)

 

Pièces jointes

• ControlesColonnes.xls

  15.5 KB · Affichages: 117

Vote positif 0 Vote négatif

T

tofoo

Guest

• 10 Juillet 2008

• #10

Re : Userform : Récupération des données

Salut,

Voila c'est tout à fait ça.
Il récupère l'intégralité des données mais les colonnes 59 à 62 font doublon à rapport aux colonnes 1 à 4.

C'est pas très grave mais quelle est la bonne formule alors pour ne plus avoir cela ?

Merci

 

Vote positif 0 Vote négatif