Userform : Récupération des données

[tofoo]

Hello !

Je continus mon apprentissage des user form et j'arrive a la récolte des données.

Une macro est assigné au bouton de fin (CommandButton1) qui est la suivante :

Private Sub CommandButton1_Click()
écrit les infos sur la première ligne libre de la feuille Result
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 17
.Cells(Li, Colonne) = Controls("Combobox" & Colonne - 4).Value
Next
End With
Unload userform1
End Sub


Et en fait ça ne récupérer qu'une partie des données.
Je met le squelette du questionnaire en PJ.

Quelqu'un comprends pourquoi il ne prends pas la totalité ?


http://cjoint.com/?hdtwwRJCAm

Merci

[skoobi]

Bonjour,

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

[tofoo]

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.

[skoobi]

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

[skoobi]

Re,

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

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?

[justine]

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?

[Lii]

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 :

     
...
For Colonne = 5 To 51'avec un dernier Combobox47
  .Cells(Li, Colonne) = Controls("Combobox" & Colonne - 4).Value
Next
...

[tofoo]

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

[Lii]

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)

[tofoo]

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