Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Excel et formulaire

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jo50160

XLDnaute Junior
Bonsoir à tous, voilà j'ai créé un Userform avec quelques textbox dans un classeur excel, tout va bien sauf quand je les enregistrer la feuille2 cela ne se fait, elle s'enregistre sur la feuille1, je dois garder cette feuille pour mon menu.
voici l'exemple de mon code. Si quelqu'un peut m'aidé. Merci


Private Sub cmdOK_Click()
'on teste la saisie date...'
If Me.TextBox1.Text = "" Then
MsgBox "entrer la date."
Me.TextBox1.SetFocus
Exit Sub
End If

Sheets("feuil2").Range("A3").Value = Me.TextBox1
Sheets("Feuil2").Range("B3").Value = Me.TextBox2
Sheets("Feuil2").Range("C3").Value = Me.TextBox3
Sheets("feuil2").Range("D3").Value = Me.CheckBox1
Sheets("Feuil2").Range("E3").Value = Me.CheckBox5
Sheets("Feuil2").Range("F3").Value = Me.CheckBox8
Sheets("feuil2").Range("G3").Value = Me.CheckBox6
Unload Me

'Mise en place des valeurs saisies'

Range("A65536").End(xlUp).Offset(1, 0).Value = TextBox1
Range("B65536").End(xlUp).Offset(1, 0).Value = TextBox2
Range("C65536").End(xlUp).Offset(1, 0).Value = TextBox3
Range("D65536").End(xlUp).Offset(1, 0).Value = CheckBox1
Range("E65536").End(xlUp).Offset(1, 0).Value = CheckBox5
Range("F65536").End(xlUp).Offset(1, 0).Value = CheckBox8
Range("G65536").End(xlUp).Offset(1, 0).Value = CheckBox6
Onload Me

End SubConfiguration: Windows XP
Internet Explorer 7.0
Office 2000
 
Re : Excel et formulaire

Bonjour jo

pas sur d'avoir tout compris, mais peut être en précisant le nom de la feuille comme dans l'instruction ci-dessous :

Code:
Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0).Value = TextBox1

bonne journée
@+
 
Re : Excel et formulaire

bonjour jo50160 pierrot le forum je comprends copy sur la feuille 1 a la place de la feuille 2 essai de le faire par son numero

remplace
Sheets("feuil2").Range("A3").Value = Me.TextBox1
par
Sheets(2).Range("A3").Value = Me.TextBox1
ect...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
757
Réponses
3
Affichages
924
Réponses
12
Affichages
732
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…