Je crée actuellement un outil de saisie de questionnaires permettant de compiler rapidement les resultats d'une étude.
Le probleme etant qu'une partie du questionnaire est basé sur des questions semi ouvertes nécessitant l'emploi de TextBox. Mon idée est de pouvoir a la fin de la saisie du qestionnaire clicker sur 1 commandbutton entrainant la creation d'une nouvelle feuille dans le classeur et prenant comme nom la valeur de la première TextBox.
Ce faisant, apres création de la nouvelle feuille et toujours dans le même évenement (CommandButton_click() )je souhaite pouvoir copier toutes les valeurs des textbox dans cette feuille.
J'ai un debut de code qui crée la nouvelle feuille mais le probleme est, qu'il crée en parallele une autre feuille nommée selon excel feuill5, 6 etc et me renvoie a la fin une erreur de type 1004.Je n'arrive pas non plus a trouver le bon script pour lancer la copie des valeurs des textbox ainsi que le collé sur la nouvelle feuille.
Je mets mon début de code pour etre un peu plus explicite:
Private Sub CommandButton2_Click()
Dim Obj As OLEObject
For Each Obj In Sheets("feuille de saisie").OLEObjects
If TypeOf Obj.Object Is msforms.TextBox Then
Sheets.Add
ActiveSheet.Name = TextBox1.Value
copy msforms.textbox.value
past ([msforms.textbox.value],sheetq("Textbox1.value")
End If
Next Obj
End Sub
Etant novice en VBA je me noie un peu,
Merci beaucoup par avance de votre aide pour mon petit problème!
