Transfert des saisies d'un formulaire dans Excel

[hidozo]

Bonjour,

Voici ma problématique :

J'ai une USERFORM avec des critères (7) et des actions (4).
L'objet de cet outil est d'évaluer des photos. pour chaque photo évaluée, je dois cocher le respect des 7 principes et les types d'actions.

Donc, j'ai plein de If, then, end if qui me permettent de déterminer un résultat en fonction des critères et des actions que je récupère dans une text box et dans Excel.

J'arrive pour une photo à "transférer" dans des cellules Excel les valeurs Vrai Faux. (par le controlsources des cases à cocher (note VRAI ou FAUX dans mes cellules Excel).

Simplement, je ne sais absolument pas comment faire pour qu'à la fin de chaque évaluation, je valide mon évaluation et que l'évaluation suivante aille sur la ligne qui se trouve dessous.

Information complémentaire : J'utilise une multipage qui me permet d'avoir 4 onglets (pour l'instant) et que j'utilise pour chaque photo. je voudrais valider à chaque onglet, mais de passer à la ligne suivante qu'à la fin des 4 pages

Merci de votre aide

hidozo

 

[jmd2]

Re : Transfert des saisies d'un formulaire dans Excel

hello

joindre ton fichier STP

******************************************************

 

[hidozo]

Re : Transfert des saisies d'un formulaire dans Excel

Bonjour,

Je voudrais bien, mais il est trop gras et ne passe pas ici. Mais je vais voir pour te faire un exemple simple

Hidozo

 

[hidozo]

Re : Transfert des saisies d'un formulaire dans Excel

essai d'envoi de fichier

 

[job75]

Re : Transfert des saisies d'un formulaire dans Excel

Bonsoir,
Je vois hidozo que vous avez changé de forum. Vous verrez, c'est plus cool ici.
A+

 

[Cousinhub]

Re : Transfert des saisies d'un formulaire dans Excel

Bonsoir,

tout d'abord, supprime toutes les propriétés "ControlSource" de tes "CheckBox", ainsi que de la TextBox

Puis regarde le fichier joint

 

[hidozo]

Re : Transfert des saisies d'un formulaire dans Excel

Bonjour,

Merci pour la réponse, ça fonctionne, c'est trop cool. Par contre j'ai rajouté à la fin du coude :

Private Sub CommandButton1_Click()
derlig = [A65000].End(xlUp).Row + 1
For i = 1 To 3
Cells(derlig, i) = IIf(Me.Controls("checkbox" & i), 1, 0)
Next i
Cells(derlig, 5) = Me.TextBox1
CheckBox1 = False
CheckBox2 = False
CheckBox3 = False
TextBox1 = ""
End Sub

afin que lorsque je lance une nouvelle saisie, l'ancienne s'efface du formulaire sinon, je vais m'y perdre.

J'ai quelques questions :
- Comment puis je pfaire pour revoir, via le formulaire les évaluations déja réalisées ?
- Comment intégrer un compteur sur le formulaire qui me dit : 1ère évaluation, 2ème...
et dernière :
- Là sur cet exemple je n'ai pas de souci, mais en fait, dans mon Userform, j'ai 3 multipages et la saisie des critères se fait sur les 3 ou une des trois. Puis-je utiliser la même technique ?

Cordialement

Yonnel