Discussion :

[vicelow]

je suis un petit nouveau sur le forum donc tout d'abord Bonjour à Tous!

Je sollicite les lumieres de cette grande communauté pour un petit probleme de code VBA.
Etant encore novice je tatonne encore beaucoup.
Bref, pour en venir au sujet, je développe actuellement un formulaire de saisie de questionnaires.

Je souhaite gràce à un command button pouvoir copié collé dans une nouvelle feuille tous les textes inscris dans des zones de texte du questionnaire.
Idealement l'événement click du command button doit a la fois générer une nouvelle feuille ainsi que le copié collé.

En tatonnant, j'ai réussi a trouver quelques pistes pour le début du code.
Je mets ce début à la suite.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
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 
			... etc ' la suite me pose pas mal de pb'
		End If 
	Next Obj 
End Sub

Si quelqu'un à une petite idée qui pourrait resoudre mon problème.

Merci d'avance pour toute future reponse!
a+

[JackOuYA]

bonsoir,

en lisant ton code j'ai l'impression qu'il ne correspond pas tout à fait à ce que tu décrit, veut-tu rajouter une feuille par objet textbox ? (tu as mis le sheet.add dans ta boucle ) , pourrai tu nous en dire plus sur les problémes que tu as avec ce code .?